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 ?

markieren

Code:

+

Moin MadMax,

Zitat von MadMax:

Funktioniert leider nicht.

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

Zitat von Hansa:

markieren

Code:

+

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

Zitat von Christian Seehase:

Moin MadMax,

Zitat von MadMax:

Funktioniert leider nicht.

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

markieren

Code:

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

Müsste so funktionieren.

Zuerst einen Type definieren:

markieren

Code:

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

laenge ist die Länge des arrays

zusammenfalten · markieren

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;

Das ist concat:

markieren

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.