Dateigröße ermitteln ohne Datei zu öffnen

[Luckie]

Ups. Du hattes dich selber noch mal zitiert anstatt zu editieren. Und den habe ich gelöscht ohne ihn genau zu lesen. :oops:

[Hawkeye219]

In der ersten if-Anweisung wird die Routine verlassen, falls FindFirstFile fehlschlägt. In diesem Fall muß nichts freigegeben werden.

Die letzte if-Anweisung wird meiner Meinung nach nur ausgeführt, wenn FindFirstFile nicht fehlschlägt. In diesem Fall sollte das Handle doch wieder freigegeben werden, oder sehe ich das falsch? :gruebel:

[Luckie]

Wird es ja auch. Mit result verläßt man ja die Routine nicht.

[Hawkeye219]

Stimmt, das war ja genau mein Vorschlag (Beitrag #16)!
Im Code von Flocke (Beitrag #15) stand vor der Zuweisung zu Result ein bedingtes Exit.
Damit wurde die Routine im Erfolgsfall verlassen, ohne das Handle freizugeben.

[Luckie]

Upps. Dieser kleine Unterschied ist mir entgangen. ;)

[Flocke]

Zitat:

Zitat von Hawkeye219

...aber dabei keine neuen Speicherlöcher erzeugen! :zwinker:

Ui, stimmt :stupid:

Beim Umformatieren für das Posting war das FindClose wieder nach unten gerutscht (das hatte ich eigentlich direkt nach dem Test auf INVALID_HANDLE_VALUE).

[danku]

hab ein problemchen:

ich will die files aus einem opendialog1 in die 2.spalte einer stringgrid bekommen:
my try:

Delphi-Quellcode:

...
 //Füllen der StringGrid mit Opendialog1Daten
   sgfiles.RowCount := OpenDialog1.Files.Count + 1;

   for i := 0 to  OpenDialog1.Files.Count - 1 do
     begin
     sgfiles.cells[0,1 + i]:= OpenDialog1.Files[i];
     filesize(OpenDialog1.Files.Count - 1):=(sgfiles.cells[0,1+i]);

          end;
      end;
   end;

///////////////////////////////////////////////////////////

function Tfmformat.FileSize(fn: TFileName): Int64;
var
  sr: TSearchRec;
  i:byte;
begin
  if FindFirst(fn, faArchive, sr) = 0 then
  begin
    with sr.FindData do
      Result := Int64(nFileSizeHigh) shl 32 + nFileSizeLow;
    FindClose(sr);

   { else
    Result := 0; }
end;
end;

///////////////////////////////////////////////////////////

[danku]

beziehe mich auf diese site:
http://www.swissdelphicenter.ch/de/showcode.php?id=149

auzug aus meinen code:

Delphi-Quellcode:

...
//MP3
sgfiles.cells[0,1 + i]:= OpenDialog1.Files[i]; 

//Größe der MP3
sgfiles.cells[1,1+i] := floattostr(GetDirSize(opendialog1.Files.Strings[i],true));

wie kann ich erreichen, das genau von der datei aus sgfiles.cells[0,1 + i] die größe in sgfiles.cells[1,1 + i] geschrieben wird?

[jim_raynor]

Und wo ist dein Problem? Ich kann bei dein Code im Letzten Beitrag sieht soweit gut aus. Du musst nur statt GetDirSize FileSize nutzen ...

[danku]

:gruebel: hm ... habsch ein bissel gepennt :stupid: :cyclops:

kann man bei einer Tstringgrid die option "goediting" unterschiedliche auf 2spalten anwenden? die 1 true die andere false, oder gilt das komplett?