Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

Re: ListBox1 unbekannt in eigener prozedur

  Alt 4. Jun 2010, 00:49
@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)
  Mit Zitat antworten Zitat