funktioniert leider nicht!
die linie verschiebt sich dann ganz eigenartig!
und zum anderen werden die knoten erst vom benutzer auf die zeichenfläche gedroppt
und dann im zuge des dijkstra algorithmus mit"pfeilen"verbunden
Delphi-Quellcode:
procedure TForm1.eingabeClick(Sender: TObject);
var x1,y1, x2,y2 : integer;
begin
anfknoten[j]:=strtoint(edit1.text); //einlesen des Anfangsknoten
endknoten[j]:=strtoint(edit2.text); //einlesen des endknoten
bewertung[j]:=strtoint(edit3.text); //einlesen des der bewertung
with paintbox1.Canvas do
begin
x1 := (x_ort[anfknoten[j]]);
y1 := (y_ort[anfknoten[j]]);
x2 := (x_ort[endknoten[j]]);
y2 := (y_ort[endknoten[j]]);
canvas.moveto(x1,y1);
canvas.LineTo(x2,y2);
end;
edit1.Clear; //nach eingabe editfelder leeren
edit2.Clear; //
edit3.Clear; //
j:=j+1; // erhöhe j um beim nächsten betätigen in eine höhere benen des arrays zu kommen
end;
seit bitte nachsichtig, da ich in der verwendung der grafikerstellung unter delphi ein neuling
bin und deshalb währe ein beispiel quellcode super wie das gemeint ist !
Danke für eure mühen