Ich seh grade was.
Zitat:
Delphi-Quellcode:
for i:=0 to length(text)-1 do
begin
SendByte(ord(text[i]));
end;
Du solltest unbedingt mal die Bereichsprüfung in deinem Delphi aktivieren, wenn du ständig solchen Mist verbockst.
String-Indize beginnen bei 1
(außer in den neuen iOS/Android-Plattformen)