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,

Delphi-Quellcode:

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 :wall: !! okay danke!!

[sirius]

Warum nimmst du nicht gleich einen Shortstring:

Delphi-Quellcode:

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:

Zitat von TitanNano (Beitrag 1029643)

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.

[TitanNano]

Es kann sein, das es sehr kompliziert ist, aber ich habe keine Lust wieder alles zu ändern. Vielleicht beim nächsten mal.

@Christian Seehase: eigentlich wollte ich das ja nicht sagen, aber da es eh niemand versteht ich Verschlüssle einen Text.

[xZise]

Wenn ich nicht falsch liege, ist es doch egal ob dort

Delphi-Quellcode:

x : array [0..42] of char

oder

Delphi-Quellcode:

x : ShortString[43]

steht? Der Zugriff nachher ist äquivalent?

Und zusammenfügen kannst du auch mit System.Move. Und wenn das eine Verschlüsselung werden soll, dann mach es doch richtig? Ich meine sehr gut wird sie ja nicht sein und da kannst du dann wenigstens eher was von lernen, wenn du den Code besser gestaltest, als eine Frickellösung zu haben.

Wenn dir nur wichtig ist, dass er verschlüsselt, dann nutze das DEC mit AES oder Twofish.

MfG
Fabian