Hi *,
ich wollte in einer Form einen Record definieren und im Constructor darauf zugreifen.
Leider bekomme ich immer einen EReadError 'Ungültiger Eiegenschaftswert'. Ab wann kann
ich auf die Variablen zugreifen? Wie kann ich das Problem lösen (Ich möchte die Werte
belegen, bevor irgendwelche Methoden darauf zugreifen)?
Cheers
Per
Delphi-Quellcode:
unit myunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TModel =
record
srcYear: integer;
targetYear: integer;
end;
type
Tfrm_Editor =
class(TForm)
btnOk: TXFBitBtn;
tfSrcYear: TEdit;
tfTargetYear: TEdit;
private
{ Private-Deklarationen }
canceled: boolean;
model: TModel;
public
{ Public-Deklarationen }
Constructor Create(form: TForm; year: integer);
overload;
end;
var
frm_Editor: Tfrm_Editor;
implementation
{$R *.dfm}
{
Creator.
}
Constructor Tfrm_Editor.Create(form: TForm; year: integer);
begin
self.Create(form);
canceled:=false; <--- wirft den error
model.srcYear:=year;
model.targetYear:=year + 1;
end;
... {weitere Methoden)