Главная страница
    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.008 c
3-64022
Kurt_
2003-03-01 15:01
2003.03.20
Не подскажите как в АДО фильтр на квери поставить типа name is N


3-63994
Delphman
2003-02-27 15:53
2003.03.20
Какие файлы использует BDE ?


1-64092
SkyQuake
2003-03-04 08:02
2003.03.20
Ключевое слово object


14-64369
Delph
2003-03-05 15:20
2003.03.20
Исходники TextDataSet.pas


6-64275
KeLT
2003-01-29 13:17
2003.03.20
Помогите с ExitWindowsEx





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