Einzelnen Beitrag anzeigen

Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#1

Jpg aus DB wird nicht aktualisiert

  Alt 21. Okt 2010, 17:26
Datenbank: MyBase • Version: 1 • Zugriff über: Local
Moin,

da bin ich schon wieder.

Delphi-Quellcode:
procedure TDataModule1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if FileExists(DataModule1.DataSource1.DataSet.FieldbyName('FotoNord').AsString) then
  Hauptformular.Hauptfenster.Image1.Picture.LoadFromFile(DataModule1.DataSource1.DataSet.FieldbyName('FotoNord').AsString);
else
 //Bild löschen

 // Bild neu zeichnen
  Hauptformular.Hauptfenster.image1.Refresh;
end;
Bleibt das letzte Bild der Spalte "FotoNord" angezeigt. Auch wenn ich einen neuen Datensatz erstelle und dort kein Bildernamen eintrage.
Irgendwie sehe ich grade keinen Weg wie ich das Bild löschen kann, ausser ein leeres Bild zuzuweisen.
Geht das auch anders?

Gruß Heiko

Geändert von Kralle (21. Okt 2010 um 17:27 Uhr) Grund: Benachritigungshaken vergessen
  Mit Zitat antworten Zitat