Registriert seit: 4. Apr 2003
Ort: Innsbruck
89 Beiträge
Turbo Delphi für Win32
|
Re: Comma-Separated-String: Schnelles Zerlegen?
21. Jul 2004, 14:12
oder du benutzt folgende Prozedur:
Delphi-Quellcode:
procedure Explode(var a: array of string; Border, S: string);
var
S2: string;
i: Integer;
begin
i := 0;
S2 := S + Border;
repeat
a[i] := Copy(S2, 0,Pos(Border, S2) - 1);
Delete(S2, 1,Length(a[i] + Border));
Inc(i);
until S2 = '';
end;
Lukas Wenn du nicht mehr weiter weißt, zeichne dir 'nen Einheitskreis.
|