Verschiedene Inhalte aus einer DB in eine MEMO zusammenfügen

[ZeroQool007]

Hallo!

Ich will aus einem Memofenster eine Art Vorschau machen. Habe folgender Maßen angefangen:

Delphi-Quellcode:

  Memo1.Text := '';
  Memo1.Lines.Add(ADODataSet_Suchen.FindField(cvCh20_Anrede).AsString);
  Memo1.Lines.Add(ADODataSet_Suchen.FindField(cvCh50_Vorname).AsString + ' ' + ADODataSet_Suchen.FindField(cvCh100_NameFirma).AsString);
  Memo1.Lines.Add(ADODataSet_Suchen.FindField(cvCh50_Strasse).AsString);
  Memo1.Lines.Add(ADODataSet_Suchen.FindField(cvCh10_PLZ).AsString + ' ' + ADODataSet_Suchen.FindField(cvCh50_Ort).AsString);
  Memo1.Lines.Add('');

Nun will ich aber noch Abfragen reinbringen z.B. Falls eine Frau ist soll "Sehr geehrte Frau blablbla" stehen u wenn Mann "Sehr geehrter Herr blablbla"
Wollte es zuerst so realiseren, aber es geht nicht. hat jemand einen Vorschlag?! danke im voraus

Delphi-Quellcode:

  Memo1.Lines.Add('Sehr ' if ADODataSet_Suchen.FindField(cvCh20_Anrede).AsString = 'Frau' then + 'geehrte' else + 'geehrter');

[ZeroQool007]

Hmm...ich Depp....

Delphi-Quellcode:

  if ADODataSet_Suchen.FindField(cvCh20_Anrede).AsString = 'Frau' then
  begin
    Memo1.Lines.Add('Sehr geehrte Frau ' + ADODataSet_Suchen.FindField(cvCh100_NameFirma).AsString);
  end else
  begin
    Memo1.Lines.Add('Sehr geehrter Herr '+ ADODataSet_Suchen.FindField(cvCh100_NameFirma).AsString);
  end;

[Catbytes]

Tach,

und was ist, wenn weder "Frau" noch "Herr" im entsprechenden Feld steht?

Das würde ich auch abfangen (außer die Datenbanklogik kennt nichts anderes und es ist ein Pflichtfeld).

[ZeroQool007]

Hast du einen Vorschlag wie ich das Abfangen könnte?