Was ist daran ShortString??

[TitanNano]

Hallo,
ich habe diese Arrays in meiner neuen Komponente,

Delphi-Quellcode:

 
 ZeichenListe1, ZeichenListe2 : Array[1..223] of char;
 ZeichenListe2_1 : Array[1..112] of Char;
 ZeichenListe2_2 : Array[1..111] of char;
 ZeichenListe2_1_2, ZeichenListe2_2_2 : Array[1..56] of Char;
 ZeichenListe2_1_1, ZeichenListe2_2_1 : Array[1..55] of Char;

Ich lade in ZeichenListe1 und ZeichenListe2 alle wesentlichen Zeichen rein.

Delphi-Quellcode:

y:=1;
 for i:=032 to 255 do
 begin
  ZeichenListe1[y]:=char(i);
  Y:=y+1;
  end;

y:= 223;
 for i:=255 downto 032 do
 begin
  ZeichenListe2[y]:=char(i);
  Y:=y-1;
  end;

Nun, kopiere ich die erste Hälfte von Zeichenliste2 in Zeichenliste2_1, und die Zweite Hälfte in Zeichenliste2_2.

Delphi-Quellcode:

 for i:= 1 to 112 do
 begin
  ZeichenListe2_1[i]:= Zeichenliste2[i];
  end;

for i:= 112 to 223 do
 begin
  ZeichenListe2_2[i]:= Zeichenliste2[i];
  end;

Jetzt teile ich noch einmal jedes Array durch zwei.

Delphi-Quellcode:

for i:= 1 to 56 do
 begin
  ZeichenListe2_1_1[i]:= Zeichenliste2_1[i];
  end;
 for i:= 56 to 112 do
 begin
  ZeichenListe2_1_2[i]:= Zeichenliste2_1[i];
  end;

for i:= 1 to 55 do
 begin
  ZeichenListe2_2_1[i]:= Zeichenliste2_2[i];
  end;
 for i:= 55 to 111 do
 begin
  ZeichenListe2_2_2[i]:= Zeichenliste2_2[i];
  end;

So, und zum Schluss möchte ich die Arrays in einer anderen reihen folge wieder zusammen setzen,
ZeichenListe2:= Zeichenliste2_2_2+Zeichenliste2_2_1+Zeichenliste2_1_2+Zeichenliste2_1_1; doch da bekomme ich immer den Fehler, "E2010 Inkompatible Typen: 'Array' und 'ShortString'". Doch ich habe da doch nur Arrays oder??
wenn icht wie verwandle ich die/den ShortString/s wieder in Arrays??

[mkinzler]

Du kannst Arrays nicht einfach addieren.

[TitanNano]

ach so !! okay danke!!

[sirius]

Warum nimmst du nicht gleich einen Shortstring:
var x:string[112]; ?

[TitanNano]

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;

[DeddyH]

Das sieht mir unnötig kompliziert aus. Ich würde auch anstatt der Arrays Shortstrings verwenden, wie sirius bereits angedeutet hat, die lassen sich genauso behandeln und ganz easy aneinanderhängen (man muss nur darauf achten, dass entweder der Zielstring 255 Zeichen nicht überschreitet oder einen Ansistring verwenden).

[Christian Seehase]

Zitat von TitanNano:

weil die einzelnen Zeichen von einander getrennt sein müssen.

Ja und?
Du kannst auch bei einem ShortString (und allen übrigen Strings) die Zeichen einzeln ansprechen

In Anlehnung an Detlef:
Da ich durch den Code nicht durchsteige (=> den Sinn nicht verstehe):
Was soll es denn werden, wenn's fertig ist.