weil die einzelnen Zeichen von einander getrennt sein müssen.
Ich habe es jetzt so gelöst ich hoffe das stimmt alles.
Delphi-Quellcode:
//1 addition
Zahl:= length(Zeichenliste2_2_2);
for i:= 1 to Zahl do
begin
ZeichenListe2[i]:= Zeichenliste2_2_2[i];
end;
//2 addition
Zahl:= Zahl+length(Zeichenliste2_2_1);
for i:= length(Zeichenliste2_2_2) to Zahl do
begin
ZeichenListe2[i]:= Zeichenliste2_2_1[i-length(Zeichenliste2_2_2)];
end;
//3 addition
Zahl:= Zahl+length(Zeichenliste2_1_2);
for i:= length(Zeichenliste2_2_1) to Zahl do
begin
ZeichenListe2[i]:= Zeichenliste2_1_2[i-length(Zeichenliste2_2_2)-length(Zeichenliste2_2_1)];
end;
//4 addition
Zahl:= Zahl+length(Zeichenliste2_1_1);
for i:= length(Zeichenliste2_1_2) to Zahl do
begin
ZeichenListe2[i]:= Zeichenliste2_1_1[i-length(Zeichenliste2_2_2)-length(Zeichenliste2_2_1)-length(Zeichenliste2_1_2)];
end;