Einzelnen Beitrag anzeigen

Benutzerbild von eddy
eddy

Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#2

Re: Mehrere Datenbankfelder zu einem kopieren

  Alt 8. Jan 2004, 11:03
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
  Mit Zitat antworten Zitat