Ok kod już stworzyłem nawet dziala i przy plikach textowych przy któryh
notepad kopie w kalendaż mój kod radzi sobie bardzo dobrze ale jet jedno ale
:-)
1.czy to co ja napisałem jest dobre bo to że działa nie znaczy że jest
dobrze napisane
2.jak ustawić żeby otwierał mój wymyślony format np. *.lom
3.co oznacza "cos:integer" napisałem to bo bez tego nie chce działać ale
chciałbym wiedzieć co ten wpis oznacza a i jedna żecz jaki najlepiej
określić rozmiar bufora
4.co oznacza jedynka przy resecie wyczytałem że chodzi coś o rozmiarze ale nie wiem dokładnie co ?
5. i mniej ważne pytanie zapis Edit1.Text:=FloatTostrF(Koniec,ffNumber,4,9);
wyświetla mi wynik w sekundach czy milisekundach ??
*--------------- Otwieranie -------------------------------------------------
var
start,koniec:real;
Plik : file;
cos : integer;
Buforek: array[1..2048] of Longint;
begin
if Opendialog1.Execute then
begin
start:=Time;
AssignFile(Plik, OpenDialog1.FileName);
Memo1.Lines.LoadFromFile(Opendialog1.FileName);
try
FileMode:=2;
Reset(Plik,1);
repeat
BlockRead(Plik, buforek, SizeOf(buforek),cos);
Koniec:=Time-start;;
Edit1.Text:=FloatTostrF(Koniec,ffNumber,4,9);
until (cos = 0);
finally
closefile(plik);
end;
end;
end;
*-------------------------- koniec ------------------------------------= pozdrawiam Oskar =- (delphi 6 GG:2792614)