type
bufferz=array [0..65384,0..10] of char;
function split_buf(buf:array of char):bufferz;
var i,k,z,now,post:integer;
str:string;
begin
now:=1;post:=0;
for i:=1 to length(buf) do begin
if buf='#' then
inc(post);
z:=0;
begin
for k:=now to i do
begin
inc(z);
split_buf[z,post]:=buf[k];
end;
end;
now:=i;
buf:='*'; //меняем символ что б все время к первому не возвращаться
end;
end;
аналог split()
есть ли в делфях функция которая работает аналогично split() в php?
split() создает массив из одной строчки по маске.
пример:
a=split('*','123*456*789');
вернет:
a[0]='123';
a[1]='456';
a[2]='789';
мне неохходимо разделить так переменную Buf:array[1..65384] of char;
что то вроде такова:
a=split('*',Buf:array[1..65384] of char;)
a[0]='...';
|..........|_____ эта тоже должно быть array[1..65384] of char;
|
|__________ какова типа должна быть переменная?(двумерный массив?)
попытался создать собственную функцию но что то не пашет
split() создает массив из одной строчки по маске.
пример:
a=split('*','123*456*789');
вернет:
a[0]='123';
a[1]='456';
a[2]='789';
мне неохходимо разделить так переменную Buf:array[1..65384] of char;
что то вроде такова:
a=split('*',Buf:array[1..65384] of char;)
a[0]='...';
|..........|_____ эта тоже должно быть array[1..65384] of char;
|
|__________ какова типа должна быть переменная?(двумерный массив?)
попытался создать собственную функцию но что то не пашет
Код:
Смотри пакет Fundamentals, функция StrSplitChar - то что надо.
