StrikeOut und DBEdit.Text

[norbert3]

Hey Leute,

ich habe wiedermal ein Problem. Ich möchte in einem DBEdit-Feld den Text durch streichen.
Dies klappt auch.

Delphi-Quellcode:

procedure TForm3.Button4Click(Sender: TObject);
begin
        with DBEdit4 do begin
        Font.Style := Font.Style + [fsStrikeOut];
        end;
  
end;

Doch lässt sich diese Formatierung in der Datenbank nicht abspeichern. Versucht habe ich es so:

Delphi-Quellcode:

DataModule1.ABStblVideo.FieldValues['ausgeliehen'] := DBEdit4.Text;

Irgendwo habe ich da einen Fehler, ich weiss aber nicht wo?
Habt ihr eine Lösung dafür? Oder können Stringfelder diese Formatierung garnicht übernehmen?

Mfg Norbert

[mkinzler]

In der Datenbank wird ja nur der Text abgespeichert nicht die Formatierung du könntest den Text in HTML/RTF ablegen, dann ist die Formatierung Teil des Textes.

[norbert3]

Danke erstmal für die schnelle Antwort. Doch leider ist es nicht das, was ich gesucht habe.

In meinem Videoprogramm trage ich den Namen ein, an den ich das Video ausgeliehen habe. Wenn ich das Video zurück bekomme möchte ich diesen Namen durchstreichen und nicht löschen.
Angezeigt werden alle Videos in einem DBGrid als Übersicht.

Wenn ich das Video zurück bekomme speichere ich das Datum mit ab. Vielleicht kann man das mit nutzen.
So in der Art:

Delphi-Quellcode:

if (DataSource.DataSet.FieldByName('am').AsDateTime <= date) then
      begin
        Canvas.Brush.Color := clWhite;
      end
      else
      begin
        Canvas.Brush.Color := clTeal;
        Canvas.Font.Color := clwindow;
        Canvas.Font.Style := [fsStrikeOut];
        end;

Mfg Norbert