wie kann ich einfach xx Millisekunden warten und dann weitermachen im Programm. Die Zeit muss nicht so genau sein.
Hab es so probiert, geht aber net. ok wird scheinbar nie 1 und das Programm lässt sich nicht mehr bedienen / schliessen.
Delphi-Quellcode:
Procedure TForm1.senden(Sender: TObject);
begin
try
Serial1.Active:=true;
str := '';
shape1.brush.color := clred;
str:= befehl + #13;
label39.caption := str;
befehl :='';
n:=serial1.TransmittText(str);
ok:=0;
timer1.enabled := true; // Timer starten
while ok=0 do // so lange wie ok 0 ist nichts machen
begin
end;
timer1.enabled := false; timer stoppen
// hier kommt noch Code hin
label33.caption := helpstr;
if helpstr = 'ok' then
shape1.brush.color := clgreen;
except
if Application.MessageBox('Kommunikationsfehler!','', MB_OK + MB_DEFBUTTON1) <> IDOK then
raise;
befehl :='';
str:='';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 10;
ok:=1;
end;
mfg
Torsten