Mehrere Datenbankfelder zu einem kopieren

[eddy]

Hallo tylix,

ich habe z.B. die Felder Anrede, Titel, Vorname, Nachname in verscheidenen Datenbankfeldern.

Nun möchte im Feld Nameges alle 4 Felder zusammenfügen,
dass z.B. steht "Herrn Dr. Max Mustermann", je nach Feldinhalt.

Code:

....
anr := trim(Tab.FieldByName('Anrede').AsString);
tit  := trim(Tab.FieldByName('Titel').AsString);
vna := trim(Tab.FieldByName('Vorname').AsString);  
nna := trim(Tab.FieldByName('Nachname').AsString);

nges := '';
if anr <> '' then nges := anr + ' ';
if tit <> '' then nges := nges + tit + ' ';
if vna <> '' then nges := nges + vna + ' ';
if nna <> '' then nges := nges + nna;

Tab.Edit;
Tab.FieldByName('Nameges').AsString := trim(nges);
Tab.Post;

oder so ähnlich.

mfg
eddy