Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Как получить количество строк в файле (консольный вариант)   Найти похожие ветки 

 
Test   (2003-05-17 15:20) [0]

Подскажите как - Subj!


 
Skier ©   (2003-05-17 15:24) [1]

Ну ежели без VCL, то
посмотри как реализован метод LoadFromFile у TStringList-a и
перетащи оттуда всё что нужно (думаю тащить придётся много...)


 
MBo ©   (2003-05-17 15:37) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10366


 
Song ©   (2003-05-17 15:40) [3]

© Мой
]Function TPricesForm.GetLinesQuanity(S,St: String): LongInt;
Var P,PMap: PByte;
FileH,MapH: THandle;
Size: LongInt;
Begin
ProgressForm.Init("Предварительная обработка...",St,S);
Result:=0;
try
FileH:=FileOpen(S,fmOpenRead);
IF FileH<>INVALID_HANDLE_VALUE then
Begin
Size:=GetFileSize(FileH,nil);
MapH:=CreateFileMapping(FileH,nil,PAGE_READONLY,0,Size,nil);
IF MapH<>0 then
Begin
PMap:=MapViewOfFile(MapH,FILE_MAP_READ,0,0,Size);
P:=PMap;
IF Assigned(P) then
While (P^<>0) Do
Begin
IF P^=13 then Inc(Result);
Inc(P);
Application.ProcessMessages;
End;
UnmapViewOfFile(PMap);
End;
CloseHandle(MapH);
End;
CloseHandle(FileH);
except
IF Assigned(ProgressForm) and (ProgressForm.Visible) then ProgressForm.Close;
MessageDlg("Не удаётся открыть файл "+S+ ". Возможно файл занят другой программой или пользователем или отсутствует. Код ошибки: ""+SysErrorMessage(GetLastError)+""",mtError,[mbOk],0);
Abort;
end;
ProgressForm.Close;
End;



 
Anatoly Podgoretsky ©   (2003-05-17 15:43) [4]

Readln в цикле



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

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-95003
MDFE
2003-05-10 14:06
2003.05.29
Редактор дайджестов форума


14-95080
Soft
2003-05-07 17:25
2003.05.29
Свободу NetBreaker666


3-94739
foxsi
2003-05-09 20:29
2003.05.29
нумерация


3-94719
kostas
2003-05-08 12:26
2003.05.29
Запросы TIBQuery в разных потоках (нитях.TTheard)


1-94965
Test
2003-05-18 18:01
2003.05.29
Как в консоле устанавливать цвета? Очистка экрана и т.п.????