...
i:=0;
separator:=',';
textstr:=str;
a:=pos(separator,textstr)-1;
while a>0 do begin
inc(i);
b:=copy(textstr,1,a);
delete(textstr,1,a+1);
a:=pos(separator,textstr)-1;
end;
...
Команды из php в Паскаль
Доброго времени! Подскажите, как реализовать данные строчки на Паскале. На php получилось написать. С Паскалем еще несильно знаком.
Код:
Данные строки создают массив и в него сохраняют все элементы строки, разделенными определенным знаком, в данном случае запятой.
Код:
Код:
$new_arr = array();
$text = explode(",",$comb[$z]);
$vol = "<".$text[$i].">";
array_push($new_arr,$vol);
$text = explode(",",$comb[$z]);
$vol = "<".$text[$i].">";
array_push($new_arr,$vol);
Данные строки создают массив и в него сохраняют все элементы строки, разделенными определенным знаком, в данном случае запятой.
Вроде так, но я не проверял - делит строку на элементы, разделенные каким - либо знаком
Код: