Moin!
Warum sollte auch?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Port:Word;
begin
LesePort(Port);
end;
Du definierst dir die lokale Variable Port, weisst ihr nirgendwo einen Wert zu und dann übergibst du diese an die LesePort() Funktion? Wovon soll sie denn nun lesen? bisher tut sie dieses von irgendwelchen Ports, nur nicht denen die du meinst.
Delphi-Quellcode:
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
Port:Word;
begin
Port:=$279;
case RadioGroup1.ItemIndex of
0 : Port := $278;
1 : Port := $279;
2 : Port := $27A;
end;
end;
Hier gleiches - so eine schöne Auswahl, aber alles wird einer lokalen Variable zugewiesen. Wozu?
Alle lokalen Variablen (also in einer Procedure definierten Variablen) haben beim Eintritt in die Procedure zufällige Werte und müssen daher initialisiert werden um benutzt zu werden. Ansonsten spielst du Lotto...
Und: lokale Variablen werden mit dem Verlassen (am Ende dieser bzw. ein Exit) der Procedure ungültig und verlieren ihren Inhalt.
MfG
Muetze1