Man könnte eine zusätzliche Sicherheit einbauen und prüfen ob Porta/b/c/d wirklich mit 10 Zeichen an die Funktion übergeben wurde, also
Delphi-Quellcode:
if Length(Porta) >= 10 then
Pa := Copy(Porta,3,8)
else
Pa := '00000000'; // oder Fehlermeldung ausgeben
€: Gibts nicht, da war einer schneller (das passiert, wenn die Threads lange im Brwoser-Tab schlummern, sollte nicht immer so viele auf einmal öffnen)
