Wort zerlegen

[Mitternachtsfalke]

Hallo
Wie kann ich ein Wort (in einem Edit) in
einzelne Buchstaben zerlegen, die dann je einem label als Caption zugeordnet
werden, also dass dann jedes Label (es existieren dann davon soviele wie Buchstaben)
einen Buchstaben des Wortes als Caption anzeigen.
Kann mir da einer helfen? :?:

MITTERNACHTSFALKE

[glkgereon]

soweit ich weiss geht das so:

Delphi-Quellcode:

s:string;{eingelesen}
a:array of char;
x:integer;{zaehler}
begin
a.setlength(length(s));{ich hoffe du weist was ich mein?}
for x:=1 to length(s) do a[x]:=s[x];
end;

das entscheidende für dich ist hierbei da

Delphi-Quellcode:

derarray[x]:=derstring[x];{ich mein so würd das gehen}

ich hoffe das stimmt so weit alles

[glkgereon]

achso
ja,

Delphi-Quellcode:

derstring:=edit1.text;
{jetzt das von oben}
label1.caption:=derarray[1];
label2.caption:=derarray[2];
label3.caption:=derarray[3];
label4.caption:=derarray[4];
{um das variabel genug zu machen, musst du die label durchzählen, ich glaub mit pointer, da hab ich aber keinen dunst von}

[yankee]

Wenn ich das richtig verstanden habe, würde ich das so machen:

Delphi-Quellcode:

procedure StringZerlegen;
var str:string;
begin
label1.caption :=str[1];
label2.caption :=str[2];
label3.caption :=str[3];
...
labeln.caption :=str[n];
end;

[glkgereon]

irgendwie (ich kann mir nicht helfen) hat yankee recht
bleibt trotzdem das problem, wie du das variabel machst (ich hoffe du hast meinen ansatz verstanden)

[Mitternachtsfalke]

Klasse! es funktioniert!
Dankke Yankee und auch danke glkbkk :thuimb:

[Mirilin]

:hi:

*Findcomponent inklusive Schleife in den Raum wirft*

mfg Tobias