Visual Basic VS Delphi -> String Encode / Decode

[agm65]

bei mir sieht das jetzt so aus

Delphi-Quellcode:

function Encode(what: string): string;
var
Zeile: string;
PW: string;
U: integer;
P: integer;
k: integer;
z2: string;

 begin
  Zeile := What;
  PW := 'Password';
  U := 0;
  P := 0;

  repeat Until Length(Zeile) = P;
   k := k + 1;
   U := U + 1;
   P := P + 1;

   If k = Length(PW) Then k := 1;
   Z2 := Copy(PW, k, 1);
      If Z2 = ' ' Then;
    Z2 := Copy(PW, k + 1, 1);
    k := k + 1;
    End;
   Zeichen := Copy(Zeile, P, 1); <--- hier sagt er mir: auf u zugewiesener wert wird niemals benutzt
   NewChar := Ord(Zeichen) + Ord(Z2);
   If NewChar > 255 Then NewChar = NewChar - 255;
   Crypt = Crypt + Chr$(NewChar);
  Loop;
  Encode = Crypt;

end;

[edit=MrSpock]Code Tags durch Delphi Tags ersetzt. Mfg, MrSpock[/edit]