Klassensprecherwahl Programm funktioniert nicht

[Klaus01]

Zitat von Rojhat49:

Also wenn ich bei der Variablen.... lbl weglasse zeigt dir mir den fehler an :

z.B. undeclared identifier

Du musst die Prozedur Klassensprecher zu einer Methode Deiner Klasse TForm machen.
Ansonsten kennt Klassensprecher die Label nicht.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Klassensprecher;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  stimme1, stimme2, Stimme3, Summe  :Integer;
  prozent1, prozent2, prozent3      :Real;
  s1, s2, s3 :string;

procedure TForm1.Klassensprecher;
  begin
    //...
  end;

Grüße
Klaus