[Delphi] Dzielenie stringa

0

Mam stringa w którym są dwa wyrazy podzielone spacją. (np. "lubię delphi"). Jak go podzielić na dwa stringi - "lubię" i "delphi". Najlepiej szybko i jedną funkcją :)

0

w faq cos jest, ale niewiem czy oto chodzi:
Oto procedura:

procedure DivWords(Value : String; var Words : TStrings);
var
i : Integer;
iPos : Integer;
Word : String;
begin
Insert(' ', Value, 1);
for I := 0 to Length(Value) -1 do
begin
if Value[i] = ' ' then
begin
iPos := I;
repeat
Inc(iPos);
Word := Copy(Value, i, iPos);
until Word[iPos] = ' ';
Words.Add(Word);
end;
end;
end;
A to sposób wykorzystania tej procedury:
var Words : TStrings;
begin
Words := TStringList.Create;
DivWords('serwis o programowaniu', Words);
ShowMessage(Words.Text);
Words.Free;

0

Dzieli string na kawałki i zapisuje do tablicy - "odpowiednik" funkcji explode w PHP ;)
Link(download):
http://www.4programmers.net/download.php?id=684

0

wielkie dzięki, 'explode' jest super!

1 użytkowników online, w tym zalogowanych: 0, gości: 1