Delphi-Quellcode:
if Pos('G0', Zeile) > 0 then
Zeile := Format('M5 %s M3', [Zeile]);
Sollte die Ziffer nach dem G auch variabel sein, zusätzlich darauf prüfen.
Delphi-Quellcode:
p := Pos('G', Zeile);
if (p > 0) and (Length(Zeile) > p) and (CharInSet(Zeile[p+1], ['0'..'9'])) then
Zeile := Format('M5 %s M3', [Zeile]);