Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: hebräische verschlüsselung

   
    by Sir Rufo, 29. Nov 2011
  Wie soll das knallen, es wird ja niemals aufgerufen :mrgreen:
  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