Variable in einem Record mit defaultwert

[Specialwork]

Hallo Maa83,

Wenn Du nicht unbedingt auf Records angewiesen bist, dann versuche es mal so :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, StdCtrls, Classes,
  Controls, Forms;

type TTest=class(TObject)
private
   fString: String;
   fInteger: Integer;
   fBoolean: Boolean;
public
   constructor Create;
   property VarString: String  read fString write fString;
   property VarInteger: Integer read fInteger write fInteger;
   property VarBoolean: Boolean read fBoolean write fBoolean;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TTest.Create;
begin
  inherited Create;

  VarString  :='Tom';
  VarInteger :=989;
  VarBoolean :=True;
end;


procedure TForm1.Button1Click(Sender: TObject);
var Test: TTest;
begin
  Test:=TTest.Create; // <- Hier werden die Defaults gesetzt
  
  Memo1.Lines.Clear;
  Memo1.Lines.Add('VarString:='+Test.fString);
  Memo1.Lines.Add('VarInteger:='+inttostr(Test.fInteger));
  Memo1.Lines.Add('VarBoolean:='+BoolToStr(Test.fBoolean, True));
end;

end.

Gruß, Tom