Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];
ВнизРабота с текстом Найти похожие ветки
← →
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;
Подскажите.
← →
begin...end © (2004-12-21 19:47) [2]> [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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c