Variable aus anderem Formular übernehmen

[Willie1]

von Matze

Zitat:

Re: Variable einer anderen Form übergeben!
Alt 2. Mär 2005, 16:06
Die Variable in Form1 global deklarieren (z.B. unter public).

Im Form2 bei den uses Unit1 eintragen und du kannst mittels

Variable := Form1.x; darauf zugreifen oder ohne vorangestelltes "Form1", wenn die Variable in Form1 da deklariert ist, wo "Form1: TForm1;" steht.

Aber das hatten wir schon des öfteren.

Hallo, ich bin genauso vorgegangen. Sie wird in Form2 nicht erkannt. Form1 schon aber keine Variablen aus Form1 unter public.
Gruß Willie.

Wie kann ich erreichen, dass Zitat: Matze zu lesen ist?

[bcvs]

Zeig mal deinen Code (nur den betreffenden Teil), sonst kann dir hier keiner helfen.

[Blup]

Sind die Variablen wirklich im abschnitt "public" der Form1 deklariert?

Gehören die beiden Units für Form1 und Form2 tatsächlich zu deinem Projekt und werden gemeinsam compiliert?
Möglicherweise wird bei dir nur die Unit für Form2 übersetzt und greift auf eine veraltete Form1.dcu zu, die diese Variablen noch nicht hat.

Gib den Formularen mal vernünftige Namen und versuch es erneut.

[Jumpy]

Sprichst du die Variablen von Form2 aus auch als Form1.Variable1 an oder nur mit Variable1?

[Willie1]

Unit TelListe_h

Delphi-Quellcode:

  private
    {Private-Deklarationen }
  public
    TelList: TTelList;
    Wei: Boolean;
    PfDateina: string;
  end;

var
  MainForm: TForm;

Unit TelListe_Zeig

Delphi-Quellcode:

unit TelListe_Zeig;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, TelListe_h, Vcl.StdCtrls, Edit1,
  Vcl.ExtCtrls;

MainForm.Wei wird in TelListe_Zeig nicht gefunden.
Gehören zum gleichen Projekt und werden gemeinsam kompiliert.

[Willie1]

Zitat:

MainForm: TForm;

<------------------
Hier ist der Fehler: es muss MainForm: TMainForm heißen. Ich hatte im Objekt Inspektor Name Form1 in MainForm geändert. Aber warum hat es vorher mit Form1 auch nicht funktioniert?

[bcvs]

Wahrscheinlich stand da auch schon

var Form1: TForm und nicht var Form1: TForm1 , warum auch immer.