Łączenie i rozdzielanie stringów...

jak zrobic by łańcuchu np. 'ssss+aaaa+qqqq' podzielic na 3 odzielne tzn. zmiennej np 'x' przypisac 'ssss', 'y' ma mniec 'aaaa', a 'z' 'qqqq'??
W lancuchu jest znak '+' ktory informuje, ze nastepne dane trzeba przypisac kolejnej zmiennej string... ;-)

to już było. W kodach źródłowych masz kod b4p który zawiera funkcję split i programik explude który robi to samo funkcją o nazwie explode :)

procedure rozdziel(tekst_do_rozdzielenia : string);
var
    i, j : integer;
    wyrazy_po_rozdzieleniu : array[1..50] of string[50];
    licznik : integer;
begin
    for i := 1 to 50 do wyrazy_po_rozdzieleniu[i] := '';

    licznik := 1;
    j := 1;

    for i := 1 to length(tekst_do_rozdzielenia) do begin
        if tekst_do_rozdzielenia[i] <> '+' then wyrazy_po_rozdzieleniu[j] := wyrazy_po_rozdzieleniu[j] + tekst_do_rozdzielenia[i];
        if tekst_do_rozdzielenia[i] = '+' then begin
            licznik := licznik + 1;
            j := j + 1;
        end;
    end;
end;

I powinno działać. Pisałem to jeszcze zanim dowiedziałem się o tablicach dynamicznych. :p

thx... [hurra]