file

jak sprawdzic wielkosc pliku nie otwierajac go?
FileSize wymaga uprzednio(assign..)

function filesize(scr:string):integer;
var fi : File;
begin
AssignFile(fi,scr);
Reset(fi);
result:=FileSize(fi);
end;

czemu toniedziala ?
pisze ze zly typ : string i file

pisze ze zly typ : string i file

bo używasz dla swojej funkcji takiej samej
nazwy jak ma funkcja FileSize - tak ładniej:

function SizeOfFile(const Fn: string): Integer;
var
  F: file;
begin
  AssignFile(F, Fn);
  FileMode := 0;
  {$I-} Reset(F, 1); {$I+}
  if IOResult = 0 then
  begin
    Result := FileSize(F);
    CloseFile(F);
  end else
    Result := 0;
end;

bez otwierania pliku? FindFirst() (+FindClose())

do postu poniżej (o ile dobrze pamiętam):

function getfilesize(name:string):longint;
var r:tsearchrec;
begin
  FindFirst(name,$ff,r);
  getfilesize:=r.size;
  FindClose(r);
end;

jak za pomoca Find mam sprawdzic wielkosc ? szukac pliku od 0kb do 6GB <lol> ?

Szukasz pliku o danej nazwie.

Nie bądź bezmyślny. To bardzo dobrze, że wiesz, gdzie jest ten plik.

if FindFirst('tutaj ścieżka do pliku', faAnyFile, sr) = 0 then
    ShowMessage(IntToStr(sr.Size));

gdzie :
sr : TSearchRec;

ok dzieki wielkie

A nie ResetFile() ? ;p

// Drajwer, wbrew pozorom pascalowe: assign, reset, rewrite, close - wszystkie są przez delphi kompilowane, więc nie ma znaczenia ;) [mf]