combobox загрузка из тхт

@tager3 · Регистрация: 02.11.2010

Author24 — интернет-сервис помощи студентам

как загрузить из тхт файла список в комбобокс ????

@Чёрный Медведь · 08.11.2010, 13:05

Добрый день. Например, вот так

Delphi

1	Combobox.Items.LoadFromFile('List.txt');

@tager3 · 08.11.2010, 13:11 **[ТС]**

Сообщение от Чёрный Медведь

Добрый день. Например, вот так

Delphi

1	Combobox.Items.LoadFromFile('List.txt');

так это я знаю, но он пишет ошибку что тип там стринг энд текст что то невозможно

@Чёрный Медведь · 08.11.2010, 13:21

Сообщение от tager3

так это я знаю, но он пишет ошибку что тип там стринг энд текст что то невозможно

Уважаемый автор, формулируйте свои вопросы исходя из того, что люди, которые готовы Вам помочь не знают всех тонкостей Вашей проблемы и ошибка "там стринг энд текст что то невозможно" ни о чём нам не говорит.

Покажите:
1) текстовый файл
2) код, выполняющий загрузку
3) полный текст ошибки как он есть в оригинале

@anonimus · 08.11.2010, 13:23

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var Tfile:Textfile;
text:string;
begin
if not OpenDialog1.Execute then exit;
 
AssignFile(Tfile, OpenDialog1.FileName);
Reset(Tfile);
while not Eof(Tfile) do
  begin
    ReadLn(Tfile, text);
    ComboBox1.Items.Add(text);
  end;
CloseFile(Tfile);
end;

@John_Pa9JIbHuK · 08.11.2010, 13:25

Сообщение от tager3

пишет ошибку что тип там стринг энд текст что то невозможно

Грамотный перевод... Путь к файлу правильно указали?

@tager3 · 08.11.2010, 14:10 **[ТС]**

все в порядке проблему решил, теперь другая проблема, какая функция позволяет очищать текстовый файл, просто например я ввожу имя нажимаю создать оно добавляется в комбобокс, при этом автоматом записывается в текстовый файл, а когда нажимаю комбобокс.итемс.делете. он удаляет из комбобокса и а из текстового файла нет, и получается что при открытии программы опять весь список появляется, проше говоря как сделать чтобы в комбобоксе удаляешь строку ( она же удаляется и в текстовом файле) ,

Добавлено через 7 минут

SQL

PROCEDURE TForm1.Button5Click(Sender: TObject);
var
f: textfile;
s: string;
BEGIN
comboBox1.Items.Delete(comboBox1.ItemIndex);
AssignFile(F, 'spisok.txt');
rewrite(F);
S := combobox1.text;
WriteLn(F,S);
CloseFile(F);
END;

вот примерно работает норм, но проблема одна , он записывает в новый текстовый файл только текущую строку комбобокса, а нужно что бы все строки комбобокса писал

@John_Pa9JIbHuK · 08.11.2010, 14:31

WriteLn(F,Combobox1.items.text);

@tager3 · 08.11.2010, 14:36 **[ТС]**

спасибо от души)

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
		1
	combobox загрузка из тхт 08.11.2010, 12:59. Показов 13081. Ответов 8 Метки нет (Все метки) как загрузить из тхт файла список в комбобокс ???? 0

@Чёрный Медведь 233 / 95 / 15 Регистрация: 31.12.2009 Сообщений: 224
	08.11.2010, 13:21	4
	Сообщение от tager3 так это я знаю, но он пишет ошибку что тип там стринг энд текст что то невозможно Уважаемый автор, формулируйте свои вопросы исходя из того, что люди, которые готовы Вам помочь не знают всех тонкостей Вашей проблемы и ошибка "там стринг энд текст что то невозможно" ни о чём нам не говорит. Покажите: 1) текстовый файл 2) код, выполняющий загрузку 3) полный текст ошибки как он есть в оригинале 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	08.11.2010, 13:25	6
	Сообщение от tager3 пишет ошибку что тип там стринг энд текст что то невозможно Грамотный перевод... Путь к файлу правильно указали? 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	08.11.2010, 14:31	8
	WriteLn(F,Combobox1.items.text); 0

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
	08.11.2010, 14:36 [ТС]	9
	спасибо от души) 0