String zusammenfügen

[MadMax]

Hallo,

Möchte den Inhalt eines Arrays ausgeben.

Die werte sollen auf dem Label von links nach rechts geschrieben werden nicht wie sie im Array stehen also nicht von oben nach unten. Wollte die Array werte (einzelne Buchstaben, in jeder zeile einer) per For schleife in eine Globale Variable schreiben und dann auf einem Label ausgeben. Funktioniert leider nicht. Wie könnte ich das noch lösen ?

[Hansa]

Code:

+

[Christian Seehase]

Moin MadMax,

Zitat von MadMax:

Funktioniert leider nicht.

und was funktioniert nicht, bzw. wie machst Du's?

[MadMax]

Zitat von Hansa:

Code:

+

Ach hab was vergessen die größe ändert sich natürlich darum fällt das plus weg.

[MadMax]

Zitat von Christian Seehase:

Moin MadMax,

Zitat von MadMax:

Funktioniert leider nicht.

und was funktioniert nicht, bzw. wie machst Du's?

Code:

for b:=1 to buchs do begin
  ausgabe := Tip[b]
end;

[hummer]

Müsste so funktionieren.

Zuerst einen Type definieren:

Code:

Type tArray : Array[1..x] of string[1];

laenge ist die Länge des arrays

Delphi-Quellcode:

procedure ausgeben (eingabe : tArray; laenge : integer; var ausgabe : string);
var position: integer;
    hilf : string[1];
begin
 eingabe := '';
 for position := laenge downto 1 do
  begin
   hilf := eingabe[position] ;
   eingabe := concat(eingabe,hilf);
  end;
end;

label1.caption := eingabe;

[Hansa]

Das ist concat:

Code:

+

Damit der Thread aber nicht als der mit den kürzesten Antworten in die Geschichte eingeht, müßtest Du schon sagen was Du willst.