Кто это делается?

← →
Volk (2004-06-22 18:38) [0]

На PHP это делается так:
<?php
$string = "один::два::три";
list ($a, $b, $c = split("::", $string);
?>

А как это же сделать на Delphi?
Т.е. нужно строку любую разбить на части разделенные ::

← →
Rem (2004-06-22 18:42) [1]

TStrings

← →
Volk (2004-06-22 18:48) [2]

> TStrings

Это понятно!
А именно??

← →
Плохиш © (2004-06-22 19:13) [3]

> Rem (22.06.04 18:42) [1]
> TStrings

Для D5 не подходит

> Volk (22.06.04 18:48) [2]

Pos/Copy/Delete

Pos, Copy

или

With TStringList.Create Do Try CommaText:=StringReplace("один::два::три","::",",",[rfReplaceAll]); For I:=0 To Count-1 Do Begin Strings[I].... End; Finally Free; End;

type TStrArr=Array of String; function Explode(Sep,Str:String):TStrArr; var i,k,Len:Integer; begin Result:=nil; Len:=Length(Str); if Len>0 then begin k:=Pos(Sep,Str); while k>0 do begin SetLength(Result,Length(Result)+1); Result[High(Result)]:=Copy(Str,1,k-1); Delete(Str,1,k+Length(Sep)-1); k:=Pos(Sep,Str); end; if Length(Str)>0 then begin SetLength(Result,Length(Result)+1); Result[High(Result)]:=Str; end; end; end;

Кто это делается? Найти похожие ветки