Mainmenu

[Jan]

Hallo Hansa,
also eine Klasse wird so erstellt:

Code:

type
    TDatensatz = class(TObject)
                      private
                             pose:integer;
                      public
                            Dateipfad:string;
                            Karte : tKarteikarte;
                            constructor create;
                            procedure Schreiben;
                            procedure Lesen;
                            function datencheck:boolean;
                            function Suchen(suchbegriff:shortstring; Itemindex, start:integer):boolean;
                            procedure NeueDatei;
                            procedure SetzePos(p:integer);
                            function LesePos:integer;
                            Function DateiEnde:integer;
                            procedure Vor;
                            procedure Zurueck;
                          end;

Das ist jetzt eine Klasse aus einem älteren Programm von mir.
Jetzt könntest du da z.B. eine procedure showform einfügen.
in der dann nur steht: form2.show .
weiterhin dann musst du in der unit1 in die uses klausel unit2 aufnehmen und eine Variable in folgender Weise deklarieren:

Code:

var
 myclass: tDatensatz;  //in meinem Falle

Dann im oncreate-event von form1 folgendes:

Code:

myclass:=tdatensatz.create;

Also das ist jetzt alles einfach nur streng so kopiert wie es bei mir funktioniert, aber eigentlich sollte es auch ohne eine Klasse gehen.
Aber Klassen sind doch immer mal ganz nützlich, oder?
Viel Erfolg
Jan