Thema: Delphi Extended Problem

Einzelnen Beitrag anzeigen

CT86

Registriert seit: 24. Aug 2004
Ort: Wo immer mein PC steht
21 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Extended Problem

  Alt 26. Aug 2004, 14:22
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
Wenige Menschen denken, und doch wollen alle entscheiden.
  Mit Zitat antworten Zitat