Работа с текстом

← →
Shnabs (2004-12-21 19:10) [0]

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

← →
Shnabs (2004-12-21 19:38) [1]

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

> [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.

Работа с текстом Найти похожие ветки