Graph Canvas

shrubman · Beiträge: 47

Hi,
Ich habe folgenes geschrieben :

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var x,u:extended;
    y,zaehler:integer;
    z:string;
begin
y:=strtoint(Edit2.Text);
x:=-3;
zaehler:=0;
StringGrid1.cells[0,0]:='x';
StringGrid1.cells[1,0]:='y';
repeat
u:=power(x,y);
Zaehler:=zaehler+1;
StringGrid1.RowCount:=zaehler+1;
StringGrid1.Cells[0,Zaehler]:=floattostr(x);
StringGrid1.Cells[1,Zaehler]:=floattostr(u);
x:=x+1;
until zaehler=7
end;

wie lasse ich das jetzt in Image1.Canvas anzeigen also den Graphen... ich habe schon einige threads darüber gelesen aber nicht richtig verstanden ( nur der ansatz reicht schon normal lerne ich schnell )
Ich hoffe ihr könnt mir da weiterhelfen

Kroni · Beiträge: 720 Win 98, Win ME, Win2k, Win XP D3 Pro

Den Graphen der Tabelle?
Dafür musste mal ne Procedure schreiben, die dir aus den Koordinatensystempunkten Bildschirmpunkte errechnen und dann eben alle Punkte dort eintragen und Linien ziehen o.ä.
Viel Spaß

shrubman · Beiträge: 47

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var x,u,y,zaehler,k:integer;
    z:string;
begin
y:=strtoint(Edit2.Text);
x:=-3;
zaehler:=0;
StringGrid1.cells[0,0]:='x';
StringGrid1.cells[1,0]:='y';
repeat
u:=1;
For k:=1 to y do begin
u:=u*x
end;
Zaehler:=zaehler+1;
StringGrid1.RowCount:=zaehler+1;
StringGrid1.Cells[0,Zaehler]:=floattostr(x);
StringGrid1.Cells[1,Zaehler]:=floattostr(u);
x:=x+1;
image1.Canvas.Pixels[x,u]:=clred;
until zaehler=7
end;

das funzt nicht da er irgendwo punkte macht aber nicht striche wie mach ich das ?

Ehemaliges Mitglied Erhaltene Danke: 1

Siehe: MoveTo, LineTo.

Oder guck dir mal hier: www.luckie-online.de/Delphi/Sonstiges meine Demo zum Schrägen Wurf an.

shrubman · Beiträge: 47

Ich verstehe dein Programm nicht... kann man das nicht einer einfach mal hierein schreiben oder ist das viel und kompliziert ?? Ich komm mit MoveTo und LineTo nicht richtig klar....

shrubman · Beiträge: 47

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
var x,u,y,zaehler,k:integer;
    z:string;
begin
y:=strtoint(Edit2.Text);
x:=-3;
zaehler:=0;
StringGrid1.cells[0,0]:='x';
StringGrid1.cells[1,0]:='y';
image1.canvas.MoveTo(200,0);
repeat
u:=1;
For k:=1 to y do begin
u:=u*x
end;
Zaehler:=zaehler+1;
StringGrid1.RowCount:=zaehler+1;
StringGrid1.Cells[0,Zaehler]:=floattostr(x);
StringGrid1.Cells[1,Zaehler]:=floattostr(u);
x:=x+1;
image1.Canvas.LineTo((x*30),(u*5));
until zaehler=7
end;

<- jetzt macht er verwirrende striche..

wulfskin · Verfasst: Mi 08.12.04 16:55

Hallo shrubman,

wenn du mit den Befehlen, die Luckie genannt hat, nicht zurechtkommst, dann kannst du auch mal die Delphi-Hilfe bemühen (-> F1), die hilft wirklich weiter.

Trotz allem eine kurze Erläuterung. Eine Linie, eigentlich eine Strecke, ist durch zwei Punkte begrenzt, die den Anfang und das Ende markieren.
Um nun einen Linie von A nach B zu zeichnen, musst du zuerst die Stiftposition (siehe aus PenPos) mit MoveTo auf die Stelle setzen, wo später der Punkt A sein soll. Danach kannst du mit LineTo einen Linie nach B zeichnen.

Das heisst also, dass du in deiner Schleife zuerst noch MoveTo benutzen solltest, bevor du mit dem Linienzeichnen beginnst. Achja, nachdem die Linie mit MoveTo gezeichnet wurde, wandert die Schriftposition automatisch zur aktuellen Position (im Beispiel B).

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme