Hallo Toms,
Danke für deine Hilfe.
Ich habe die Variable bilddatei nun verwendet.
Mit
if FileExists(ExePath +lokalbildpfad+'\'+bilddatei+'.jpg') then
wird ja nur überprüft was in dem Ordner ist, ich denke es fehlt der vergleich mit dem Dateinamen im Stringgrid, oder?
Delphi-Quellcode:
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:=0 to advstringgrid1.rowcount-1 do
if FileExists(ExePath +lokalbildpfad+'\'+bilddatei+'.jpg') then
// showmessage(ExePath +lokalbildpfad+'\'+bilddatei+'.jpg');
advstringgrid1.AddDataImage(3,i,8,habeforetext,vaTop); // Grafik einfügen
end;
Meine Schleife ist doch richtig so?
Ich bekomme nichts angezeigt, auch showmessage zeigt nichts an