LeerString überspringen ?!

[aaaaaaaaaa_10]

Ich möchte mehrere Strings aneinanderhängen zu einem Gesamtstring (Total):

Delphi-Quellcode:

var String1,String2,String3 : string
begin
  String1 := 'Eins';
  String2 := 'Zwei';
  String3 := 'Drei';
  Total := String1+String2+String3; 
end;

ergibt also : Total : 'Eins Zwei Drei'

Nun zu meinem Problem. Es kann sein, dass z.B. String2 leer ist. Dann erhalte ich für Total : 'Eins Drei'
Es wird also der leere String eingefügt, ich möchte aber gerne, wenn der String leer ist, dass dann der nächste String aufrückt.

[Die Muhkuh]

Was bedeutet leer bei Dir?

Delphi-Quellcode:

String2 := ' ';
// Oder
String2 := '';

Ansonsten:

Delphi-Quellcode:

var String1,String2,String3 : string
begin
  String1 := 'Eins';
  String2 := 'Zwei';
  String3 := 'Drei';
  Total := Trim(String1) + Trim(String2) + Trim(String3);
end;

[aaaaaaaaaa_10]

Zitat:

Was bedeutet leer bei Dir?

Delphi-Quellcode:

String2 := '';

[Die Muhkuh]

Dann ensteht auch keine Lücke.

[mkinzler]

Dann Frage dieses doch ab. Oder ersetzte anschliessend ' ' durch ' '

[aaaaaaaaaa_10]

Wie soll ich was abfragen?

[Brainshock]

@aaa....: Dein Beispiel ergibt doch 'EinsZweiDrei' und nicht 'Eins Zwei Drei'. Und zu deiner Frage fällt mir nur ein "Hä?".

[aaaaaaaaaa_10]

Delphi-Quellcode:

Total := String1+#9+String2+#9+String3;

ergibt aber 'Eins Zwei Drei'.

[mkinzler]

Das stand aber nicht in deinem ursprünglichen Code!
Dann musst du halt vorher überprüfen, ob etwas in den Variaben steht.

[aaaaaaaaaa_10]

Hab ich auch eben erst ergänzt...den code
Das prüfen an sich ist klar,aber was wenn nix drin steht?

[mkinzler]

Dann steht nichts drin

Delphi-Quellcode:

if Trim(<Variable>) = '' then ... //String ist leer!

[Brainshock]

Boah, dann nichts anhängen. :wall: