Ordner mit Liste in TadvStringgrid vergleichen u Thumbnails

[marabu]

Hallo Vito,

Tom schrieb, dass deine Laufvariable auch in der Schleife benutzt werden muss:

Delphi-Quellcode:

var
  exePath, fn, imgName, imgPath: string;
  iRow: integer;
begin
  exePath := ExtractFilePath(Application.ExeName);
  for iRow := 0 to Pred(AdvStringGrid1.RowCount) do
  begin
    imgName := AdvStringGrid1.Cells[0, iRow];
    imgPath := AdvStringGrid2.Cells[0, iRow];
    fn := exePath + IncludeTrailingPathDelimiter(imgPath) + imgName + '.jpg';
    if FileExists(fn) 
      then AdvStringGrid1.AddDataImage(3, iRow, 8, haBeforeText, vaTop)
      else AdvStringGrid1.Cells[3, iRow] := '? ' + fn;
  end;
end;

Dein Code passt aber irgendwie nicht zu deiner Problembeschreibung, nach der du eigentlich einen Bild-Namen '123.jpg' hast und die zugehörige Bild-Datei in einem bestimmten Ordner suchen und laden möchtest. In deinem Code scheinst du den vollständigen Namen schon zu kennen und Name und Pfad auf zwei Grids verteilt zu haben. Du musst dann ja nicht mehr nach der Datei zu suchen.

Freundliche Grüße