Visual Basic VS Delphi -> String Encode / Decode

[MrSpock]

Hallo agm65,

das ist gar nicht so schwer:

Code:

VB              PASCAL
=               :=
Len             Length
Mid(s, ab, anz) Copy(s, ab, anz)
Asc             Ord
Do Until...Loop repeat ... until bedingung

Und Function Encode(What As String) As String wird zu

Delphi-Quellcode:

function Encode(what: string): string;
var
  ...
begin

end;