[andrey.v.z]

Простите, если глупость спрошу:
Есть ли в delphi какая-то функция, которая бы легким движением... строку в которой идут числа через разделитель кидала бы сразу например в массив чисел или в запись таблицы?
Руками я примерно представлю как это сделать, конечно:
в цикле до конца строки вырезать кусочек до след. разделителя, переводить в число и кидать куда надо...
Просто "велосипеды" писать не охота

[friz]

Код:

type TDelim=set of Char;
       TArrayOfString=Array of String;

//*******************
//
// Разбивает строку с разделителями на части
// и возвращает массив частей
//
// fcToParts
//
function fcToParts(sString:String;tdDelim:TDelim):TArrayOfString
var iCounter,iBegin:Integer;
begin//fc
if length(sString)>0 then
begin
include(tdDelim,#0);iBegin:=1; SetLength(Result,0);
For iCounter:=1 to Length(sString)+1 do
  begin//for
   if (sString[iCounter] in tdDelim) then
    begin
     SetLength(Result,Length(Result)+1);
     Result[Length(Result)-1]:=Copy(sString,iBegin,iCounter-iBegin);
     iBegin:=iCounter+1;
    end;
end;//for
end;//if
end;//fc

Пример использования:

var
StrArr:TArrayOfString
StrArr:=fcToParts('строка1-строка2@строка3',['-','@']):

[andrey.v.z]

Спасибо, за готовый код.
Видимо на мой вопрос ответ отрицательный.