Необходимо распарсить строку

[Serge_Bliznykov]

for i := 1 to 10 do
begin
 if pos('=', stringBuff[i-1])>1 then begin
   names = copy(stringBuff[i-1], 0, pos('=', stringBuff[i-1]) - 1);
   ages = copy(stringBuff[i-1], pos('=', stringBuff[i-1]) + 1, length(stringBuff[i-1]) - pos('=', stringBuff[i-1]));
 end;
end;

внимание! Если в нескольких строчках в stringBuff встретится знак "=" - то в переменные попадут значения последней строки...

[chertovich]

Могу дать небольшой совет. Чтобы написать нормальный парсер (хороший для восприятия и понимания, это позволит писать более сложные алгоритмы) нужно разбивать более сложные задачи на мелкие, а не липить все это в одном цикле, а то получается большая куча "быдлокода"

[Человек_Борща]

гм да ведь просто ведь=)
Возвращаем первый параметр до =
[CODE]
function some1(aStr:string):string;
var
s:string;
begin
s:=aStr;
Result:=Copy(s,1,Pos('=',s));
end;

Возвращаем второй параметр после =

function some1(aStr:string):string;
var
  s:string;
begin
s:=aStr;
Result:=Copy(s,Pos('=',s)+1,Lenght(s)-Pos('=',s)+1);
end;

[Пепел Феникса]

Чтобы написать нормальный парсер (хороший для восприятия и понимания, это позволит писать более сложные алгоритмы) нужно разбивать более сложные задачи на мелкие, а не липить все это в одном цикле, а то получается большая куча "быдлокода"

в данном случае лучше не разбивать на меньшие куски.
иначе получится не эффективный код.

for i := 1 to 10 do
begin
 l:=pos('=', stringBuff[i-1])
 if l>1 then begin
   names = copy(stringBuff[i-1], 0, l - 1);
   ages = copy(stringBuff[i-1], l + 1, length(stringBuff[i-1]));//лишняя длина, это ничего страшного.
 end;
end;

там лучше, чем кучу раз pos вызывать.

[mss]

Такого содержимого: Андрей=33

На то есть TValueListEditor и TStringList - в этих классах уже есть все необходимое для доступа к элементам данных в строках такого вида.