ok leider ist noch nicht soviel gegliedert ^^
Delphi-Quellcode:
type
TLeitrechnerForm = class(TForm)
procedure Visualisiere; //soll ausgelöst werden
Type
TAktuThread = class(TMyAktuThread)
private
protected
procedure DoIt; override;
end;
Delphi-Quellcode:
procedure TAktuThread.DoIt;
var i : byte;
begin
case sende of
1 : for i := 1 to 6 do
if KreuzungInfos[i,6] = 'online' then
verb[i].SendStr('get:AHS_');
2 : for i := 1 to 6 do
if KreuzungInfos[i,6] = 'online' then
verb[i].SendStr('get:MOD_');
3 : for i := 1 to 6 do
if KreuzungInfos[i,6] = 'online' then
verb[i].SendStr('get:ANS_');
end;
//hier soll nun noch ne procedure von der mainform ausgelöst werden
end;