Forum: Object-Pascal / Delphi-Language
Delphi
by Blup,
19. Dez 2008
Bei genauerer Betrachtung kann die Bedingung doch erfüllt sein.
Der Vergleich wird so übersetzt: what = Char(0).
Der Vergleich ist an dieser Stelle nur sachlich falsch, da Nullzeichen auch im String vorkommen können.
Forum: Object-Pascal / Delphi-Language
Delphi
by Blup,
19. Dez 2008
Korrekturen und Komentare im Quelltext
function Encode(what: string; key: Integer): WideString;
var
i, o: integer;
res: string;
begin
i:= 1; // String beginnt mit Index 1
while i <= length(what) do // Das letzte Zeichen auch verschlüsseln
begin