Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-1102414645
Dmitriy O.
2004-12-07 13:17
2005.01.09
DataSourse у Query


1-1103826637
Пыч
2004-12-23 21:30
2005.01.09
Project>Resources


14-1103475077
DeMoN-777
2004-12-19 19:51
2005.01.09
Мой кот


1-1103719374
kaktus
2004-12-22 15:42
2005.01.09
Очистка буфера обмена.


3-1102584798
Malevia
2004-12-09 12:33
2005.01.09
Перемещение по датасету в DBGridEx





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский