Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: shape1+1 ?

    Delphi
    by malo, 21. Mär 2005
  Du kannst den Teil (fast) übernehmen. Ändere nur jedes "Shape" in "ShapeArray".
  Shape.Name := 'Shape' + IntToStr(i); und ShapeList.Add(Shape); musst du nur ganz weglassen ;)
• Forum: Sonstige Fragen zu Delphi

  Re: shape1+1 ?

    Delphi
    by malo, 20. Mär 2005
  Ich hatte ja schon geschrieben, nur noch nicht abgeschickt :oops:
• Forum: Sonstige Fragen zu Delphi

  Re: shape1+1 ?

    Delphi
    by malo, 20. Mär 2005
  stimmt. Folgendes fehlt dann noch:
  
  
  TForm1.FormClose(Sender: TObject);
  var i: integer;
  begin
  for i := 0 to 10 do
  ShapeArray.Free;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: shape1+1 ?

    Delphi
    by malo, 20. Mär 2005
  stimmt. Folgendes fehlt dann noch:
  
  
  TForm1.FormClose(Sender: TObject);
  var i: integer;
  begin
  for i := 0 to 10 do
  ShapeArray.Free;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: shape1+1 ?

    Delphi
    by malo, 20. Mär 2005
  Also, geschrieben ist sie richtig. Statt der TObjectList kannst du auch ein Array of TShape nehmen. Sieht in etwa so aus:
  
  
  var
  ShapeArray: array of TShape; //deklarieren
  
  implementation
  
  {$R *.dfm}