Einzelnen Beitrag anzeigen

RedOne

Registriert seit: 2. Jun 2008
71 Beiträge
 
Delphi XE2 Professional
 
#1

String's zusammenfügen mit Trennzeichen falls String nicht leer

  Alt 27. Jul 2011, 13:16
Titel sagt schon alles, oder nicht?

Es muss doch solch eine Funktion geben...
Ich habe verschiedene Strings die ich zu einem String zusammenführen möchte und zwar wie folgt:
"Kontakt: Vorname Name, TelG, Tel, Mobil"
z.b.: "Kontakt: Peter Müller, 0800800800, 0900900900, 0815885522
Nur kann jeder dieser Werte auch leer sein und ich hätte ein Komma oder Leerschlag zuviel. Klar kann ich jetzt mühsam jeden String auf seine Existenz prüfen (sein oder nicht sein, das ist die Frage!) aber irgendwie bin ich dazu zu faul
Bei einem Framework gab es eine Funktion in der man ein Template und die verschiedenen Strings übergeben konnte:
Delphi-Quellcode:
template:= "Kontakt: {[Vorname] }[Nachname]{, [TelG]}{, [TelP]}{, [Mobile]}";
LabelBla.Caption:= FormatString( template, [ Vorname, Nachname, TelG, TelP, Mobile ]);
Die eckigen Klammern [] sind die Feldnamen. Der Inhalt der Geschwungenen {} wird nur angezeigt, wenn mindestens ein Wert darin vorhanden ist. Also: {, [Name]} wird nur ausgegeben, wenn ein Name vorhanden ist, ansonsten fällt das Komma weg.

Langer Rede kurzer Sinn: Irgend so etwas suche ich
Gibt es sowas?

Thanks!
  Mit Zitat antworten Zitat