Komplexere Variante Records für Linie, Kreis und Rechteck

[Wasserratte]

Vielen Dank glkbkk!

Aber irgendwie gehts immer noch nicht?
Der Variante Record soll jetzt noch zusätzlich mit einem Array laufen!
Wer hat ne Ahnung was in meinem Quelltext noch fehlt?

Delphi-Quellcode:

type
  TShapeList = (Linie, Kreis, Rechteck);
    TFigure = record
      case TShapeList of
        Linie    : ( X1, Y1, X2, Y2: Real);               // Linie
        Kreis    : ( A1, B1, A2, B2: Real);               // Kreis
        Rechteck : ( P1, Q1, P2, Q2: Real);               // Rechteck
      end;

implementation

{$R *.dfm}

var
  vr : TFigure;
  PListe : array [0..10] of TFigure;

{------------------------------------------------------------------------------}

procedure TMain.Btn_LinieClick(Sender: TObject);
var
  X1, Y1, X2, Y2 : Integer;

begin
  PListe[0].X1 := StrToInt( Ed_X.Text);
  PListe[0].Y1 := StrToInt( Ed_Y.Text);
  PListe[0].X2 := StrToInt( Ed_X2.Text);
  PListe[0].Y2 := StrToInt( Ed_Y2.Text);
  X1 := Round ( PListe[0].X1);
  Y1 := Round ( PListe[0].Y1);
  X2 := Round ( PListe[0].X2);
  Y2 := Round ( PListe[0].Y2);
  Canvas.MoveTo( X1, Y1);
  Canvas.LineTo( X2, Y2);
end;

Delphi-Quellcode:

procedure TMain.Btn_Record_LinieClick(Sender: TObject);
begin
  vr.X1 := StrToFloat(Ed_X.Text);
  vr.Y1 := StrToFloat(Ed_Y.Text);
  vr.X2 := StrToFloat(Ed_X2.Text);
  vr.Y2 := StrToFloat(Ed_Y2.Text);
end;

Ich werd mal in meiner dicken Schwarte nachschlagen