| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с текстом [D7, WinXP]

Shnabs ©   (2004-12-21 19:10:00) 

Здрасти, добрые люди.
Подскажите пожалуйста как при считывании текстового файла в TListBox записать каждое слово этого файла.

---

begin...end   (2004-12-21 19:47:00) [1]

> [1] Shnabs   (21.12.04 19:38)

Судя по коду, файл как раз-таки НЕ текстовый.

Подсказываю: если разделителем между словами является одиночный пробел, то, возможно, можно так:

var
 BigS, S: String;
 MyFile: TextFile;
begin
 // Тут AssignFile и Reset
 while not EOF(MyFile) do
 begin
   ReadLn(MyFile, S);
   BigS := BigS + S
 end;
 // Тут CloseFile
 ListBox.Items.Delimiter := ' ';
 ListBox.Items.DelimitedText := BigS
end.

---

Shnabs   (2004-12-21 19:38:00) [2]

Sorry. Я тут запятую не поставил.
var ch:char;
s:string;
while not Eof(file) do
begin
  Read(file, ch);
  ...А вот тут надо дописать.
  Listbox1.add(s);
end;
Подскажите.

---

Наверх