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;
///////////////////////////////////////////////////////////