Glätten eines neuen Feldes das zusammengesetzt ist

[tylix]

Hallo zusammen,

ich steh vor nehm kleinen Problem.
Ich hab z.B. das Feld Nameges.
Dieses möchte ich mit den Feldinhalten aus Feld "Anrede" + " " + "Titel" + " " + "Vorname" + " " + "Nachame" füllen.
Jeoch hab ich momentan noch das Problem, ich kann zwar alle zusammensetzen,
jedoch wenn ich nur Anrede, Vorname, Nachname hab, habe ich zwischen Anrede und Vorname - 2 Blanks.

Gibt es wie in Excel die Funktion von Glätten?

Ich weiss zwar die Möglichkeit mit vielen if ...then else. aber des ist mir für ein Feld fast zuviel text, und ich denke mir da müsste es doch was einfacheres geben, oder?

Dank euch.

Grüße


Tylix

[alcaeus]

Hi tylix,

du könntest jedes Vorkommnis von ' ' (zwei Leerzeichen) durch ' ' ersetzen. Die Funktion dafür heißt StringReplace.

Greetz
alcaeus

[tylix]

nur was ist, wenn ich z.b. Titel + Vorname + Nachname habe, dann hab ich ein vorstehendes blank.

Habt Ihr sonst noch Ideen?

Grüße

tylix

[shmia]

Delphi-Quellcode:

var
   gesamt : string;
begin
  gesamt := Trim(Anrede+' '+Titel);
  gesamt := Trim(gesamt+ ' ' + vorname);
  gesamt := Trim(gesamt+ ' ' + nachname);
end;

[jim_raynor]

Dafür gibt es noch die Funktion Trim um vor und nachstehende Blanks zu entfernen.

[alcaeus]

Hi tylix,

dann verwende StringReplace in Kombination mit Trim. Trim schneidet dir Leerzeichen am Anfang und Ende des Strings ab:

Delphi-Quellcode:

ShowMessage(StringReplace(Trim(Anrede+' '+Titel+' '+Vorname+' '+Nachname), '  ', ' ', [rfReplaceAll]));

Greetz
alcaeus

[tylix]

SUPER; DANKE HAT FUNKTIONIERT!!!!