Tey except statements 2

[GCTIberica]

I am writing an application for TIdTCPClient. However, there is a very strange thing happening with my code. I have connected the TCPClient etc


try
FTCPClient.WriteLn(envio);
try
respuesta := FTCPClient.ReadLn(#$A,5000);
except
realizado := false;
end;
if FTCPClient.ReadLnTimedOut then
realizado := false
else
realizado := (respuesta <> '');
except
realizado := false;
end;



At first I had one try-except statement, but later changed it to avoid jumping back to the block that called this block.

When it gets to the first try, it jumps back to the block that called it, and I have no idea why, or how to fix it. It is all very strange. Has anyone ever came across this before?

Thanks

Nora

 

[Zathras]

Use try..except this way to see what the error is:

  try
    FTCPClient.WriteLn(envio);
  except

[blue]

    On E:Exception do ShowMessage (E.Message);

[/color]

  end;

 

[LorenPechtel]

Nothing is handling the exception so it's still there--and thus the stack is unwound to the next handler.