Datentypen von String zu Byte und wieder zurück

[Uwe Raabe]

Zitat von Graw:

Ist es so besser?

In (deinem) Delphi sind Strings 1-basiert. Daher besser so:

Delphi-Quellcode:

Delete(PBuf10, 1, 12);
Delete(PBuf20, 1, 12);
Delete(PBuf10, length(PBuf10) - 2, 3);
Delete(PBuf20, length(PBuf20) - 2, 3); // In deinem Code veränderst du übrigens PBuf10!

Du kannst auch Copy verwenden:

Delphi-Quellcode:

PBuf10 := Copy(PBuf10, 13, Length(PBuf10) - 15);
PBuf20 := Copy(PBuf20, 13, Length(PBuf20) - 15);

Oder das Ganze gleich in eine eigene Funktion kapseln:

Delphi-Quellcode:

function ClipString(const Value: string; Head, Tail: Integer): string;
begin
  result := Copy(Value, Head + 1, Length(Value) - (Head + Tail));
end;

PBuf10 := ClipString(PBuf10, 12, 3);
PBuf20 := ClipString(PBuf20, 12, 3);