Jpg aus DB wird nicht aktualisiert

[Kralle]

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

[Bummi]

else Image1.Picture := nil

[Kralle]

Hallo Bummi,

Zitat von Bummi:

else Image1.Picture := nil

Aua. An dieses "nil" denke ich immer wieder mal nicht.
Danke.

Gruß Heiko

[shmia]

Das .Refresh kannst du Dir sparen, dass macht die Image Komponente automatisch.

Und ausserdem:

Delphi-Quellcode:

procedure TDataModule1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if FileExists(DataModule1.DataSource1.DataSet.FieldbyName('FotoNord').AsString) then
                ^^^^^^^^^^^^  <==== weglassen !

  // so ist es besser
  if FileExists(DataSource1.DataSet.FieldbyName('FotoNord').AsString) then

Wenn du innerhalb der Klasse TDataModule1 bist, dann darfst du nicht über die Variable DataModule1 zugreifen.
Das ist eine ganz böse Falle und wurde schon häufig hier im Forum diskutiert.

[Kralle]

Moin,

[QUOTE=shmia;1057005]Das .Refresh kannst du Dir sparen, dass macht die Image Komponente automatisch.
Okay, das wusste ich nicht.

Zitat:

Wenn du innerhalb der Klasse TDataModule1 bist, dann darfst du nicht über die Variable DataModule1 zugreifen.
Das ist eine ganz böse Falle und wurde schon häufig hier im Forum diskutiert.

Ist schon wieder raus. War noch ein Kopierfehler.

MfG
Heiko