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... ;-)
0
0
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 :)
0
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
0
thx... [hurra]