Das ist aber kein Pascal das ist Delphi.
und außerdem habe ich das nicht einfach so kopiert.
Sondern es sieht bei mir so aus:
Delphi-Quellcode:
procedure TForm9.test(Sender: TObject);
//Auslesen des Pfades
Pfad :=ADOQuery1.FieldByName('Pfad').AsString;
//Versuchen, die Grafik ins Image zu laden
try
aJPG := TJPEGImage.Create;
try
aJPG.LoadFromFile(Pfad);
Image1.Picture.Graphic := aJPG;
except
ShowMessage('Fehler beim Laden der Grafik');
end;
finally
aJPG.Free;
end;
end;
end;
Wie definiere ich die Variable Pfad?