hebräische verschlüsselung

[JP29]

hey leute ich schreibe grad ein programm, was einen text verschlüsseln soll, mittels hebräischer verschlüsselung, aber irgendwie funktioniert es nicht, es kommen aber auch keine fehlermeldungen.
Bitte um hilfe.

hier der quelltext:

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);
 laenge1:=sqrt(laenge);
 laenge2:=round(laenge1);
 arrayzahl:=trunc(laenge2);
 x1:=0;
 y1:=0;
 s:=1;
  for i:=1 to arrayzahl do begin
   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
   text2:=text2+tabelle[x2,y2];
   y2:=y2+1;
    if y2=arrayzahl then begin
     y2:=0;
     x2:=x2+1;
    end;
  end;
 edit2.Text:=text2;
end;

[DeddyH]

Zitat:

Zitat von JP29 (Beitrag 1138445)

Delphi-Quellcode:

...
var  ...
     tabelle : array of string;
     text2, text : string ;
begin
  ...
  for i:=1 to arrayzahl do begin
   tabelle[x1,y1]:=text[s];
...
end;

Das knallt nicht, obwohl Du nirgends mit SetLength Speicher für das Array angefordert hast?

[Sir Rufo]

Wie soll das knallen, es wird ja niemals aufgerufen :mrgreen:

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;

[DeddyH]

Stümmt, das hätte man beim Debuggen aber sicherlich herausgefunden :zwinker: