Perl in Delphi übersetzen

**Tobiax**

Hallo und zwar bin dabei ein TS3 Telnet tool zu Programmieren. Nun hab ich zwar schon eine Lösung fürs rausfiltern gefunden aber die nicht optimal ist. Nun hab ich mir mal ein script eines anderen tools angeschaut. Nun komme ich nicht damit klar das ganze in Delphi zu übersetzten es geht um TCP Indy.

markieren

Code:

			ret = self.telnet.read_until('\n', 20.0).strip()

      if ret == 'error id=0 msg=ok':

Soweit komme ich:

markieren

Delphi-Quellcode:

			send = TCP.IOHandler.ReadLn();

 if send = 'error id=0 msg=ok' then

  //befehl

 else

  //befehl

end;

Perl in Delphi übersetzen

Perl in Delphi übersetzen

Forumregeln