sunjob писал(а):как все сложно-то, а?! :о) ладушки... может проще будет передать указатель на массив? или все равно прийдется в цикле присвоение делать?
Я в подобных случаях использую простейший парсинг строк .
- Код: Выделить всё
// Мини парсер строк
Function Next1(Var SS:String;Ch:Char):String;
var i:Longint;
begin
Result:='';
I:=Pos(Ch,SS);
If i>0 then begin
Result:= Copy (ss,1,i-1);
delete(SS,1,i);
end
end;
...
// юзается так
S:='1,2,3,4';
if s<>'' then begin
while Pos(',',S)<>0 do List.Add( Next1(S,',')); if S<>'' then List.Add(S);
end;
// или так (последний символ строки обязательно '/' )
S:='1/2/3/4/';
while S<>'' do List.Add( Next1(S,'/'));
То есть по сути все решается одной строчкой .
Плюс можно достаточно просто ловить и более сложные конструкции .