Hallo Leute
ich versuch mal grade an klassen bzw objekten, und ich scheitere schon an einer (wie ich denke) einfachen sache...
Delphi-Quellcode:
type
TFrage = class
private
Frage : String;
a : String;
b : String;
c : String;
d : String;
richtig : Char;
auswahl : Char;
treffer : Boolean;
procedure check;
public
procedure test;
end;
//immoment macht die klasse noch fast nichts... nun die procedure Test
procedure TFrage.test;
begin
frage := 'OK';
ShowMessage(frage); //macht er auch noch
end;
//gestartet wird die procedure durch einen button
procedure TForm1.Button1Click(Sender: TObject);
var
frage1 : TFrage;
begin
frage1.create;
frage1.test; // <-macht er noch, aber nachdem ich die Message geschlossen habe, meldet delphi mir einen Lese Fehler an Adresse irgendwas
frage1.Free; //
end;
Ich hoffe ihr könnt mir helfen
Gruss Thorben