Форум: "Потрепаться";
Текущий архив: 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.045 c