mal ein paar fragen bezüglich der Prozeduren
Delphi-Quellcode:
procedure TForm1.ZeichneKnoten(pos: integer; Knotenname: string);
var x,y: integer;
Texthaelfte: integer;
begin
Knotenpunkt(x, y, pos);
end;
für was brauchst du den Knotennamen(den du übrigens mit
ZeichneKnoten(j, IntTOStr(j));
ürbergeben hast also 1,2,.. das bringt doch nix(erst recht nix wenn du nacher damit nix machst
--> Texthaelfte verwendest du auch nicht
ist das weil dus vorher anders geabt has t oder programmierst du absichtlich mit dem -malgeschirbenkommtnichtweg-prinzip?!
na gut soviel dazu..