Text edit algorithmus konzept... Zeichen finden :)

Ein Thema von hedie · begonnen am 31. Dez 2010 · letzter Beitrag vom 31. Dez 2010

Registriert seit: 10. Jul 2008
166 Beiträge

Delphi XE Professional

31. Dez 2010, 15:37

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]);

Geändert von Björn Ole (31. Dez 2010 um 15:41 Uhr)

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: