hebräische verschlüsselung

[Sir Rufo]

Wie soll das knallen, es wird ja niemals aufgerufen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var laenge, laenge1, laenge2 : Real;
     arrayzahl, x1, y1, x2, y2, s, i : Integer;
     tabelle : array of string;
     text2, text : string ;
begin
 laenge:=length(text); // text nicht definiert, also 0
 laenge1:=sqrt(laenge); // =0
 laenge2:=round(laenge1); // =0
 arrayzahl:=trunc(laenge2); // =0
 x1:=0;
 y1:=0;
 s:=1;
  for i:=1 to arrayzahl do begin // arrayzahl=0 also kein durchlauf
   tabelle[x1,y1]:=text[s];
   x1:=x1+1;
   s:=s+1;
    if x1=arrayzahl then begin
     x1:=0;
     y1:=y1+1;
    end;
  end;
 x2:=0;
 y2:=0;
  for i:=1 to arrayzahl do begin // arrayzahl=0 also kein durchlauf
   text2:=text2+tabelle[x2,y2];
   y2:=y2+1;
    if y2=arrayzahl then begin
     y2:=0;
     x2:=x2+1;
    end;
  end;
 edit2.Text:=text2; // text2 ist leer, also 
end;