Text edit algorithmus konzept... Zeichen finden :)

[Helmi]

Zitat von Björn Ole:

Delphi-Quellcode:

if Pos('G0', Zeile) > 0 then
  Zeile := Format('M5 %s M3', [Zeile]);

Bei NC-Programmen muss es so lauten:

Delphi-Quellcode:

if Pos('G0', Zeile) > 0 then
  Zeile := Format('M5 %s' + #13#10 + 'M3', [Zeile]);

Da M5 und M3 nicht in einer Zeile stehen dürfen.
(Dürfen schon, aber dann wäre die Funktion weg)

Wobei man sagen muss, wenn jetzt jemand nen Vorschub programmiert, dann kann
es mit dem Code in die Hose gehen (G01 oder G1)