greenpc
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var
Buffer : array[0..1024] of char;
BytesRead : DWORD;
In_F : File;
..........................
if OpenDialog1.Execute then begin
Reset(In_F, 1);
repeat
FillChar(Buffer, SizeOf(Buffer), 0); // не обязательно
BlockRead(In_f, Buffer, SizeOf(Buffer), BytesRead);
for i := 0 to BytesRead do begin
/// проверки
if Buffer[i]=.... then
end; // for
until BytesRead = 0;
CloseFile(In_f);
|
Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 11:42 05-07-2006 | Исправлено: greenpc, 11:43 05-07-2006 |
|
