Thema: Delphi Klassen für alle?

Einzelnen Beitrag anzeigen

com-peiler

Registriert seit: 22. Apr 2005
Ort: Callenberg
27 Beiträge
 
#9

Re: Klassen für alle?

  Alt 23. Apr 2005, 09:38
Das issa... so in etwa..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type //<- da is meine klasse
TFigur = class
xpos, ypos: Integer;
end;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Figur: TFigur;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Figur := TFigur.Create; //da wird sie erstellt
end;

end.


Un nu will ich Figur x-ma erstellen um später dann auf Figur[x] zuzugreifen. Wie geht das? Ich hab
da nämlich keen dunst wie ich das bewerkstellige!
Hiroshima '45 Tschernobyl '86 Windows '98
  Mit Zitat antworten Zitat