Thema
:
Delphi
nach jeder postleitzahl ein semikolon und alles entfernen...
Einzelnen Beitrag anzeigen
Gollum
Registriert seit: 14. Jan 2003
Ort: Boxberg
456 Beiträge
Delphi 10.1 Berlin Professional
#
2
6. Mär 2003, 11:54
Hallo,
zu 1.)
markieren
Code:
var x:Integer;
s:String;
...
s:='04774 Dahlen';
x:=System.Pos(' ', s);
if (x>0) then s[x]:=';';
...
zu 2.)
markieren
Code:
var x1, x2:Integer;
s:String;
...
s:='1234 [beiDresden]';
x1:=System.Pos('[', s);
x2:=System.Pos(']', s);
if ((x1>0) and (x2>0)) then System.Delete(s, x1, x2-x1+1);
...
Gruß Gollum
www.kalenderlexikon.info
Zitat
Gollum
Öffentliches Profil ansehen
Besuche die Homepage von Gollum!
Mehr Beiträge von Gollum finden