Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.06 c
4-1100860875
PRM
2004-11-19 13:41
2005.01.09
Как запустить xcopy


14-1103518213
Гарри Поттер
2004-12-20 07:50
2005.01.09
Гы.. Давно так над спамом не смеялся.


1-1103033135
BigDAN
2004-12-14 17:05
2005.01.09
MDI-форма, но не главная форма!!!


1-1103802908
Lamka
2004-12-23 14:55
2005.01.09
Помогите с созданием игры


1-1103823883
focor
2004-12-23 20:44
2005.01.09
EnabledButton