Forum: Object-Pascal / Delphi-Language
by Bummi,
6. Jul 2012
Warum nicht gleich ein Array of Tpoint, die Linen ergeben sich immer aus Point und Point für x>0
Forum: Object-Pascal / Delphi-Language
by Bummi,
6. Jul 2012
Var
a:Array of integer;
begin
Showmessage(intToStr(High(a)));
SetLength(a,High(a)+2);
a := 7;
Showmessage(Format('High: %d Wert: %d',]));
end;
Forum: Object-Pascal / Delphi-Language
by Bummi,
6. Jul 2012
mir ist nicht ganz klar was die Anfangs- und Endpunkte der Linien sein sollen, aber wurscht
Wenn Dir klar ist dass nach SetLength(Lines_points,anz) auf Lines_points als höchster Index zugegriffen werden muss
-- bei mir gerne so
SetLength(Lines_points ,High(Lines_points)+2);
Lines_points :=
sollte der Teil keinen Ärger machen.