prozedur deklarieren

linux-freak-gf · Hält's aus hier Beiträge: 13 Delphi 3

Hi kann mir jemand sagen wie ich eine Prozdure deklariere?? (bin Anfänger :oops:

)

Linux

torstenheinze · Beiträge: 461

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

    Optionen1: TMenuItem;
    Chat1: TMenuItem;
    Schliee1: TMenuItem;
    N2: TMenuItem;
    FlatGroupBox1: TFlatGroupBox;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure RxLabel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Schliee1Click(Sender: TObject);
    procedure Details1Click(Sender: TObject);
    procedure Optionen1Click(Sender: TObject);
    procedure Chat1Click(Sender: TObject);
    procedure Test;             <--- Dahinschreiben
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Ehemaliges Mitglied Erhaltene Danke: 1

Deklaration:

markieren

Quelltext

1:	procedure DingsBums(s: String; i: Intger);

Implementation:

markieren

Quelltext

1:
2:
3:
4:

procedure DingsBums(s: Strinmg; i: Integer);
begin
  ShowMessage(s+IntToStr(i));
end;

Und der Aufruf:

markieren

Quelltext

1:	DingsBums('Hallo', '9');

Soll deine Prozedur eine Methode von TForm sein, deklarier sie im private Abschnitt der Klasse TForm.

Sollte aber auch in jedem Grundlagen Tutorial oder Buch stehen. :roll:

Mach dich mal über die Grundlagen schlau.

linux-freak-gf · Hält's aus hier Beiträge: 13 Delphi 3

Hi
Deine Idee war nicht schlecht aber ich wollte auch Kommponenten die auf der Form liegen, z.B. Label1.caption oder Button1.caption, benutzen :!:

Kannst du mir da helfen??

Linux

Ehemaliges Mitglied Erhaltene Danke: 1

Steht doch da:

Zitat:

Soll deine Prozedur eine Methode von TForm sein, deklarier sie im private Abschnitt der Klasse TForm.

Und vorgemacht wurde es dir auch schon in dem Post über meinem.

Popov · Verfasst: Mo 10.03.03 13:40

Shit, wo ist mein Beitrag? Irgendwas hab ich dazu geschreiben und es ist weg.

Ok, dann noch mal:

Regel Nummer 1: Sag gleich im ersten Beitrag alles was du wissen willst, sonst ist es eine raterei.

Allerdings dachte ich mir schon was du wissen wolltest.

Tip 1 (wenn du auf eine Komponente zugreifen willst):

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Test;
begin
  Form1.Label1.Caption := 'Popov4Ever';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;

Tip 2 (wenn du auf mehrere Komponente zugreifen willst):

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Test;
begin
  with Form1 do begin
    Label1.Caption := 'Popov4Ever';
    Label2.Caption := 'Popov ist der Größte';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;

Tip 3 (wenn du auf mehrere Komponente zugreifen willst):

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  private
    { Private-Deklarationen }
    procedure Test;
  public
    ...

implementation

...

procedure TForm1.Test;
begin
  Label1.Caption := 'Popov4Ever';
  Label2.Caption := 'Popov ist der Größte';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;

_________________
Popov

linux-freak-gf · Hält's aus hier Beiträge: 13 Delphi 3

Hey Danke
Genau das wollte ich wissen :-D

Linux

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme