TStrings Liste

[tmrxxoja]

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 ?