Hi,
wie wäre es denn mit folgendem Schema:
Delphi-Quellcode:
...
var
iStep: integer;
procedure TForm1.Create(Sender:tObject);
begin
...
iStep := 1;
SendeAnfrage;
...
end;
procedure TForm1.SendeAnfrage;
begin
case iStep of
1: Sende(Frage1);
2: Sende(Frage2);
3: Sende(Frage3);
end;
end;
procedure TForm1.AntwortErhalten (const s:string);
begin
case iStep of
1: Verarbeite1 (s); // spezielle Verarbeitung je nach Anfrage
2: Verarbeite2 (s);
3: Verarbeite3 (s);
end;
inc(iStep);
if iStep>3 then
iStep := 1;
SendeAnfrage;
end;
Das ist nur Pseude-Code, aber es zeigt die Vorgehensweise.
Gruss
Thomas
@chaosben: Fred find ich aber auch lustig
