evo nesto sto sam daaaaaaaaaaaaaavno radio, jos kad sam pocinjao sa delphijem. Neprakticno, sporo, ... :P
Code:
procedure split(Sta,cime:string;maksimum:Integer);
var i,z,duzina,broj:integer;
begin
sta:=sta+cime;
SetLength(rec,maksimum);
broj:=0;
duzina:=StrLen(pchar(sta));
for z:=0 to StrLen(pchar(rec)) do begin
rec[z]:='';
end;
for i:=1 to duzina do begin
if sta[i]=cime then begin
rec[broj]:=StringReplace(rec[broj],cime,'',[]);
rec[broj]:=StringReplace(rec[broj],cime,'',[]);
//menjajte dalje... (ovde npr. stavi da stavlja u neki tmp. array
showmessage(rec[broj]);
//ne menjajte dalje
broj:=broj+1;
end;
rec[broj]:=rec[broj]+sta[i];
end;
// www.crazymix.co.sr //
//end ;)
end;
Laravel Srbija.
[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]