Ordner mit Liste in TadvStringgrid vergleichen u Thumbnails

[capo]

Hallo,

merke nun, dass es nicht so einfach ist wie ich es mir vorgestellt habe;

Delphi-Quellcode:

procedure TForm1.InitGraphicGrid;
var
ExePath,bilddatei,lokalbildpfad: string;
i:integer;
begin
  ExePath := ExtractFilePath(Application.ExeName);
   bilddatei := Form1.AdvStringGrid1.Cells[0, Form1.AdvStringGrid1.Row];
    lokalbildpfad:= Form1.AdvStringGrid2.Cells[0, Form1.AdvStringGrid2.Row];
      for i:=1 to advstringgrid1.rowcount-1 do
     if FileExists(ExePath +lokalbildpfad+'\'+bild+'.jpg') then
       begin
       advstringgrid1.AddDataImage(3,i,0,habeforetext,vaTop); // Grafik einfügen
     end;
end;

Es wird immer in jeder zeile eine Grafik eingefügt.

Gruß
Capo