Главная страница
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.041 c
9-1094976575
Ландграф Павел
2004-09-12 12:09
2005.01.09
Реалистичное текстурирование ландшафта в 3DSMAX


14-1103553331
frEE)stylEr
2004-12-20 17:35
2005.01.09
ПРОБЛЕМЫ с модемом!!!!


8-1096928262
Odem
2004-10-05 02:17
2005.01.09
WMD MIDI Emulator


4-1101192062
Vaitek
2004-11-23 09:41
2005.01.09
Хуки на клавиатуру или мааленькие грабли.


14-1103021793
Alexander Panov
2004-12-14 13:56
2005.01.09
Выборы в Украине. Противостояние. (Продолжение 4)