Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.035 c