Форум: "Потрепаться";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];
Вниз
Кто это делается? Найти похожие ветки
← →
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
← →
Palladin © (2004-06-22 19:14) [4]Pos, Copy
или
With TStringList.Create Do
Try
CommaText:=StringReplace("один::два::три","::",",",[rfReplaceAll]);
For I:=0 To Count-1 Do
Begin
Strings[I]....
End;
Finally
Free;
End;
← →
Knight © (2004-06-22 19:44) [5]
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;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.028 c
