OK, also ich habe das jetzt so gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
begin
with ListView1.Items.Add do
begin
findfirst(Edit1.Text+'\*.*',faanyfile,sr);
Caption := (sr.Name);
Subitems.Add(inttostr((sr.Size) div 1024));
end;
findclose(sr)
end;
Wie mache ich das, damit er alle Dateien des Ordners auflistet ? So macht er nur die erste datei. Irgendwie komm ich net drauf und mit ner for-do schleife bekomm ichs net hin.
Und bei
div 1024 habe ich das problem, dass bei einer datei, die z.B. 7,49 KB hat, nur 7 angezeigt wird. Wie gehts, dass auch zwei dezimalstellen gezeigt werden ?
MFG