globaler record, is das überhaupt möglich?

[olf]

hi.

ich hab mir überlegt, dass die einfachste möglichkeit für mein projekt eine globalen record wäre.
aber ich bekomme folgenden fehler:

Code:

';' expected but '=' found

ich weiß was das bedeutet, aber gibt es nicht eine möglichkeit, das ich doch noch einen globale record verwenden kann?

code ausschnitt:

Delphi-Quellcode:

...

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

var content : record
            autor       : string = Autor_Edit.Text;
            publisher   : string = Publisher_Edit.Text;
            copyright   : string = Copyright_Edit.Text;
            keywords    : string = Keywords_Edit.Text;
            description : string = Description_Edit.Text;
            end;

procedure TForm1.MetaInfo_BtnClick(Sender: TObject);
begin
  ExplainForm.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Meta_Memo.Lines.Clear;
Meta_Memo.Lines.Add(content)
end;

end.

bis denne

[Mautstelle]

globaler record geht natürlich....
aber ich glaub das problem liegt bei der initialisierung von deinen strings,
schreib einfach deinen record nur so(zumindest hat das bei mit gefunzt):

Delphi-Quellcode:

var content : record
            autor       : string;
            publisher   : string;
            copyright   : string;
            keywords    : string;
            description : string;
            end;

und geb den string seinen inhalt dann bei einem ereignis wie einem buttonklick, vielleicht kannst du die Strings auch im oncreate von form1 laden. gruß

[Matze]

Mach's so:

Delphi-Quellcode:

var
  Form1: TForm1;

var content : record
            autor       : string;
            publisher   : string;
            copyright   : string;
            keywords    : string;
            description : string;
            end;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  content.autor       := Autor_Edit.Text;
  content.publisher   := Publisher_Edit.Text;
  content.copyright   := Copyright_Edit.Text;
  content.keywords    := Keywords_Edit.Text;
  content.description := Description_Edit.Text;
end;

Da, wo du's deklariert hast werden die Edits noch nicht erkannt, so zu sagen.


Nachtrag: Too tired and too late.

[olf]

und genau DAS wollte ich vermeiden.
ich wollte den variablen im record gleich beim deklarieren einen Wert zuweisen.

daraus schließe ich, das ich das nicht machen kann.
aber trotzdem danke

[Chewie]

Du weist den Strings als Vorbelegung den Inhalt eines Textfeldes zu. Das kann natürlich gar nicht gehen, da zum Compilierzeitpunkt diese Textfelder noch gar nicht existieren!

[Matze]

@Olf: MAcht das so einen großen Unterschied, ob man es am Anfang zuweist, oder am Anfang?

Ne, ich meine, einmal so direkt und einmal im OnCreate, das ist doch das Selbe, oder nicht?

[olf]

so hätte ich mir weitere tipparbeit ersparen können....

[Luckie]

Ein Record wird mit dem Schlüsselwort type eingeleitet und nicht [b]var.

[olf]

oh
wusste ich nicht.
hat sich aber erledigt die ganze sache. trotzdem danke, hab viel dazugelernt