Also der code ist schonmal nicht schlecht, Aber du kannst ihn weiter verkürzten
Delphi-Quellcode:
with poly[6] do
begin
Punkt1:= Ko_B[1];
Punkt2:= Ko_B[2];
Punkt3:= Ko_B[3];
Punkt4:= Ko_B[4];
end;
Das wiederholst du acht mal. Schau mal nach was Funktionen bzw. Proceduren sind. Dann könnte man das so zusammen fasssen:
Delphi-Quellcode:
procedure From1.SetPoly(const Index, index1, index2, index3, index4:Integer);
begin
poly[index].Punkt1:= Ko_B[index1];
poly[index].Punkt2:= Ko_B[index2];
poly[index].Punkt3:= Ko_B[index3];
poly[index].Punkt4:= Ko_B[index4];
end; // From1.SetPoly
// aufgerufen könnte diese Procedure so werden:
SetPoly(1,2,3,7,6);
ich hoffe das Prinzip ist dir Klar...
Hier findest du noch mehr Interessante sachen:
http://www.delphi-treff.de/tutorials/