A google to kto Tobie zabronil używać? Chcesz mieć Explode jak w php, proszę bardzo:
function Explode(Str : string; Separator : string) : TStringList;
var
X : Integer;
begin
Result := TStringList.Create;
X := Pos(Separator, Str);
while X > 0 do
begin
Result.Add(Copy(Str, 1, X - 1));
if X <= Length(Str) then
begin
Str := Copy(Str, X + Length(Separator), Length(Str));
end;
X := Pos(Separator, Str);
end;
if (Length(Str) > 0) then
begin
Result.Add(Str);
end;
end;
Pierwszy element będzie w stringlistcie o indeksie [0], drugi w [1] i tak dalej,
A jakbyś sam pogooglowal to byś znalazł taki artykuł w FAQ na tym serwisie:
Jak rozdzielić łańcuch tekstowy wg. jakiegoś znaku
Inny sposób najprostszy chyba i bez stosowania niestandardowych modułów,
o ile chcemy rozdzeliać według jednego konkretnego znaku - czyli np. spacji.
var
SL : TStringList;
begin
SL := TStringList.Create;
SL.Delimiter := #32;
SL.DelimitedText := Memo1.Text;
if SL.Count = 2 then
begin
Label1.Caption := SL[0];
Label2.Caption := SL[1];
end;
SL.Free;
end;
Ale wiadomo najlepiej narzekać, że na forum nie ma specjalistów, niż chwilę
pomyśleć i pokombinować SAMODZIELNIE. Uwierz mi - to naprawę nie boli.
Bo funckja SplitString dzieli nam tekst na dwie zmienne, na lewo i na prawo
od podanego Tokena. Poza tym z takimi banałami, to pisz do działu Newbie.