Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];

Вниз

Чтение файла.   Найти похожие ветки 

 
DAV   (2003-01-24 18:53) [0]

Как прочитать файл по 1 символу перебором? Не могу найти. ;-(


 
Александр Спелицин   (2003-01-24 21:26) [1]

См. ReadFile (MSDN).


 
atmospheric   (2003-01-24 23:10) [2]

хм, а так что не пойдет -
var
c: char;
f: textfile;
begin
...
while not eof(f)
Read(f,c);

end;


 
DAV   (2003-01-25 08:41) [3]

Это понятно на обычных txt-ках, но у меня лог файл, и по Read(f,c) читает несколько строк и всё. Хотя файл здоровый.
Делаю допустим Memo1.Lines.LoadFromFile("msg.dat"), загружает только первую букву и всё.
Может кто поможет?


 
cyborg   (2003-01-25 10:50) [4]

Var
F : File;
Ch : Char;
begin
AssignFile(F,"msg.dat");
Reset(f,1);
While not eof(f)
begin
Blockread(f,Ch,1);
//c Ch чего нибудь делаешь
end;
closefile(f);
end;

Только посимвольно будет очень медленно, читай сразу блоками например по 4 кб. в массив, а затем уже смотри массив посимвольно.


 
DAV   (2003-01-26 09:53) [5]

Спасибо. Работает. Тока почему то Memo половину записей обрубает.


 
Моисей   (2003-01-26 11:06) [6]

у тебя там наверное бинарная гадость какая-нибудь попадается,
вот StringList и путается


 
stranger71   (2003-01-27 10:02) [7]

Дело в том, что файл типа Text может содержать только алфавитно-цифровые и некоторые управляющие (перевод строки, прогон листа) символы. Если же это бинарник, то вполне может встретиться и символ конца файла (для текстовых есть и такой). И тогда конструкция While not eof do ... завершится на первом таком символе, хотя файл не закончился. Вычитывать такие файлы нужно обычными файлами - либо так, как показал Cyborg, либо используя файл с указанным типом данных ( File of char например). Для Memo - та же петрушка, там можно использовать алфавитно-цифровые символы и символы #10#13 - остальное Мемо откажется выводить


 
Anatoly Podgoretsky   (2003-01-27 10:16) [8]

DAV © (25.01.03 08:41)
У тебя не текстовый файл поэтому и обрывает.


 
MegaVolt   (2003-01-27 10:26) [9]

Кстати Memo может обрубать из-за превывшения максимального размера текста :( Пользую RichEdit там ограничения побольше.


 
Victor_Cr   (2003-01-27 19:10) [10]

TextFile и File of Char синонимы одного и того же типа
А вот File of Byte круче...


 
gsu   (2003-01-27 19:13) [11]

а File еще круче (-:|~



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
1-64191
KpeHgeJIb
2003-03-08 01:39
2003.03.20
Вопрос по TListView...


7-64411
tim5
2003-01-26 20:54
2003.03.20
Скрытие кнопку Пуск


4-64449
ZOLTIAN
2003-01-26 14:08
2003.03.20
MENU


14-64331
sancho{ne_hochu_parol_v_ceshe_ostavit'}
2003-03-04 21:47
2003.03.20
Аудиоплейр


14-64345
Дмитрий К.К.
2003-03-05 06:21
2003.03.20
Именинники 5 марта





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский