Hmm hab noch ein Fehler drin
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var cPfad : string;
aListe : TStrings;
n : integer;
begin
cPfad := 'c:/test/';
FileList(cPfad, '*.jpg', True, aListe);
for n := 0 to aListe.Count do begin
inc(nBild);
Grid.RowCount := Grid.RowCount+1;
Grid.Cells[0,nBild] := 'test1';
Grid.Rows[1].Assign(aListe);
Grid.Cells[2,nBild] := 'test3';
end;
end;
die meldung
Zitat:
Variable "aListe" ist möglicherweise nicht initialisiert worden
hmm aber ist sie doch oder ??
aListe : TStrings;
oder irre ich mich ?