@luckie
Wieso soll er so lange warten?
Der soll einfach mal sein Formular umbenennen und schon knallt es
Ansonsten halt so versuchen
Delphi-Quellcode:
procedure RS232Send(BefehlNr: Integer; Befehl:String; ListBox : TListBox = nil );
begin
if Assigned( ListBox ) then
begin
ListBox.xxxxxx //Hier ist die ListBox bekannt
end;
Exit;
End; //RS232Send
Der Aufruf erfolgt so (ohne Ausgabe auf die ListBox ... weil ja nicht bekannt)
RS232Send( BefehlNr, Befehl );
oder so, mit Ausgabe in der ListBox
Delphi-Quellcode:
procedure TForm1.TuWas;
begin
RS232Send( BefehlNr, Befehl, ListBox1 );
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)