Thema
:
Delphi
String zerlegen
Einzelnen Beitrag anzeigen
Hawkeye219
Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
Delphi 2010 Professional
#
9
Re: String zerlegen
27. Okt 2006, 13:41
Ohne RegEx geht's so:
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
SplitString (
const
s:
string
; L: TStrings; Delimiter: Char = '
#
');
var
k : Integer;
kFrom : Integer;
Inside : Boolean;
begin
kFrom := 1;
Inside := False;
for
k := 1
to
Length(s)
do
if
(s[k] = Delimiter)
then
begin
if
Inside
then
L.Add(Copy(s, kFrom, k - kFrom))
else
kFrom := k + 1;
Inside :=
not
Inside;
end
;
end
;
procedure
TForm1.Button1Click (Sender: TObject);
var
S : TStrings;
begin
S := TStringList.Create;
try
SplitString ('
#Beleg-Prefix#foobar#Belegnummer#
', S, '
#
');
finally
S.Free;
end
;
end
;
Gruß Hawkeye
Zitat
Hawkeye219
Öffentliches Profil ansehen
Mehr Beiträge von Hawkeye219 finden