procedure verwenden

[taginspektor]

Hallo erstmal.

Ich habe folgendens Problem:
Ich möchte mir eine eigene procedure deklarien und definiern und danach in einer weiteren procedure verwenden.
Hier der Quellcode dazu:

Die Deklaration

Delphi-Quellcode:

  private
        procedure suffix(nm1: integer; nm2: integer; nm3: integer; nm4: integer);

Die procedure

Delphi-Quellcode:

procedure suffix(netz1: integer; netz2: integer; netz3: integer; netz4: integer);
begin
edit_nm1.Text:=IntToStr(netz1);
edit_nm2.Text:=IntToStr(netz2);
edit_nm3.Text:=IntToStr(netz3);
edit_nm4.Text:=IntToStr(netz4);
end;

und die Anwendung der procedure in einer anderen procedure

Delphi-Quellcode:

suffix:=StrToInt(edit_suffix.Text);
case suffix of
0 : suffix(0, 0, 0, 0);
1 : suffix(128, 0, 0, 0);
2 : suffix(192, 0, 0, 0);
3 : suffix(224, 0, 0, 0);
4 : suffix(240, 0, 0, 0);
5 : suffix(248, 0, 0, 0);
6 : suffix(252, 0, 0, 0);
7 : suffix(254, 0, 0, 0);
8 : suffix(255, 0, 0, 0);
9 : suffix(255, 128, 0, 0);
10: suffix(255, 192, 0, 0);
11: suffix(255, 224, 0, 0);
12: suffix(255, 240, 0, 0);
13: suffix(255, 248, 0, 0);
14: suffix(255, 252, 0, 0);
15: suffix(255, 254, 0, 0);
16: suffix(255, 255, 0, 0);
17: suffix(255, 255, 128, 0);
18: suffix(255, 255, 192, 0);
19: suffix(255, 255, 224, 0);
20: suffix(255, 255, 240, 0);
21: suffix(255, 255, 248, 0);
22: suffix(255, 255, 252, 0);
23: suffix(255, 255, 254, 0);
24: suffix(255, 255, 255, 0);
25: suffix(255, 255, 255, 128);
26: suffix(255, 255, 255, 192);
27: suffix(255, 255, 255, 224);
28: suffix(255, 255, 255, 240);
29: suffix(255, 255, 255, 248);
30: suffix(255, 255, 255, 252);
31: suffix(255, 255, 255, 254);
32: suffix(255, 255, 255, 255);

Ich bin jeder Hilfe dankbar aber bitte kein Fachchinesisch

[edit=Phoenix]Code-Tags in Delphi-Tags geändert Mfg, Phoenix[/edit]