Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - prozedur deklarieren
linux-freak-gf - So 09.03.03 19:05
Titel: prozedur deklarieren
Hi kann mir jemand sagen wie ich eine Prozdure deklariere?? (bin Anfänger :oops: ) :?:
Linux
torstenheinze - So 09.03.03 19:24
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; |
Delete - So 09.03.03 19:29
Deklaration:
Quelltext
1:
| procedure DingsBums(s: String; i: Intger); |
Implementation:
Quelltext
1:
2:
3:
4:
| procedure DingsBums(s: Strinmg; i: Integer);
begin
ShowMessage(s+IntToStr(i));
end; |
Und der Aufruf:
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 - Mo 10.03.03 13:26
Titel: RE: Prozedure
Hi
Deine Idee war nicht schlecht aber ich wollte auch Kommponenten die auf der Form liegen, z.B. Label1.caption oder Button1.caption, benutzen :!: :think:
Kannst du mir da helfen??
Linux
Delete - Mo 10.03.03 13:34
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 - 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):
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):
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):
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; |
linux-freak-gf - Mo 10.03.03 14:36
Hey Danke
Genau das wollte ich wissen :-D
Linux
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!