Extended Problem

[CT86]

Hey Toxman, hier ist die Procedure, ich will ddie Ergebniss in einem StringGrid anzeigen und nicht in einem Memo. Und dahin kommt noch dazu, dass die x-Werte zur Laufzeit eingegeben werden sollten/können nicht müssen. Also wäre es doch gut wenn das ganze dann in einer Schleife stehen würde, Oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
     var x,y: extended;
       term: string;
begin
   term := edit1.text;
// Das ist unwichtig!!!
//   memo1.text := 'x      f(x)';
//   memo1.Font.Name := 'Courier New';
   x := -5;
   repeat
     y := termToReal(term,x);
     memo1.lines.Add(formatfloat(' 0.0   ;-0.0   ', x) + formatfloat('0.###',y));
     x := x + 1/2;
   until x > 5; 
end;

mfg
CT86