@Benjamin:
Deine Code würde aber wenn Length(klartext) gerade wäre nicht richtig funktionieren machs lieber so :
procedure Verschluessle;
var
l: Integer;
text1, text2: string;
begin
l := Length(klartext);
text1 := Copy(klartext, 1, l div 2);
text2 := Copy(klartext, l div 2 + 1, l);
if Length(klartext) mod 2 = 0 then
text2 := Copy(klartext, l div 2 + 1, l);
end;
Vergiss es hab drei Quelltexte die ich hier zum testen geschrieben hab zusammen gemischt und ... naja ... man sieht ja was dabei herausgekommen ist
MfG Mike
PS:
Diese vier Zeilen :
Delphi-Quellcode:
Zeichen := 'A';
Hilfstext := Hilfstext + Zeichen;
Zeichen := 'E';
Hilfstext := Hilfstext + Zeichen;
könnte man auch einfach so schreiben (wegen der Übersichtlichkeit) :
Hilfstext := Hilfstext + 'AE'