Fehler beim Stringvergleich/Erkennt Objekt nicht

[mashutu]

Zitat von varzil:

Hi,
Wenn ich jetzt mit folgender Funktion den Text verschüsseln will,

Delphi-Quellcode:

function stringcode (a,b:string):string;
var
x,y,i:integer;
stringbuffer:string;
begin
  repeat
    a:=a+a;
  until length(a)>=length(b);

  for i:=1 to length(b) do
  begin
    while not a[i]=grid.cells[x,0] do
      x:=x+1;                             //!!! Fehler 1: x wurde nirgends initialisiert
                                          //!!! Fehler 2: while ... es wird nirgends geprueft ob x noch im Range des Grid ist

    while not b[i]=grid.cells[0,y] do
    y=y+1;                                //!!! Fehler 3: y wurde nirgends initialisiert
                                          //!!! Fehler 4: while ... es wird nirgends geprueft ob y noch im Range des Grid ist

    stringbuffer:=stringbuffer+grid.cells[x,y]; //rpoduziert hier ggf. Muell
    x:=0;                                 //zu spaet
    y:=0;
  end;
  result:=stringbuffer;
end;