Hallo,
ich muß eine Software überarbeiten, die ReadFromStack() eingesetzt hat. Nun muß ich die SW
in Delphi2007 einbinden, nur gibt es da die Funktion ReadFromStack() nicht mehr.
Delphi-Quellcode:
with IdTCPMain do begin
while (not finished) do begin
i:= ReadFromStack(false,timeout,false);
if i > 0 then begin
answer:=answer+Readstring(i);
end
else begin
answer:='';
finished:=true;
end;
i:=pos('[',answer);
if i=0 then
answer:=''
else if i>1 then
delete(answer,1,i-1);
i:=pos(']',answer);
if i<length(answer) then
delete(answer,i+1,length(answer));
if (pos('[',answer)=1) and (pos(']',answer)=length(answer)) then finished :=true;
end;
end;
Wie kann ich nun die ersten Zeilen "richtig" ersetzen:
Delphi-Quellcode:
i:= ReadFromStack(false,timeout,false);
if i > 0 then begin
answer:=answer+Readstring(i);
end
Danke!!!!!
gruß,
winx