Delphi-Quellcode:
var
l: Integer;
text1, text2: string;
klartext : string;
begin
klartext := '123456';
l := Length(klartext);
text1 := Copy(klartext, 1, l div 2);
text2 := Copy(klartext, l div 2 + 1, l);
ShowMessage(text1);
ShowMessage(text2);
end;
Zitat von
Mikescher:
@Benjamin:
Deine Code würde aber wenn Length(klartext) gerade wäre nicht richtig funktionieren machs lieber so :
Wieso. Bei dem Quelltext da oben gibt er 123 und 456 aus.