Ergebnis der Suchanfrage

• Forum: Lazarus (IDE)

  AW: Schleifen-Problem

   
    by EineFrage, 3. Nov 2013
  Wenn ich das richtig verstanden habe, ungefähr so (sicher nicht perfekt, aber funktioniert und für einen Info-Kurs völlig ausreichend):
  
  
  // for
  procedure TForm1.Button1Click(Sender: TObject);
  var
  a, c: Double;
  i: Integer;
  begin
  a := StrToFloat(Edit1.Text);