Stringlist

[record222]

Доброе время суток, друзья!
Помогите пожалуйста, так как не знаю уже, что делать

s2.LoadFromFile('new_2.txt');

for I := 0 to 0 do
begin
i2:=1;
while POSEX('(', s2[i], i2)<>0 do
begin
i2:=posex('(', s2[i], i2)+1;
s3.add(Copy(s2[i], i2, posex('^', s2[i], i2)-i2));
end;
end;

В файле new_2.txt находится текст:

(NineSixOneZero^Eight9Two)+(Zero1EightSix^Two8Eight)+(Four9ZeroFive^Six6Zero)+(Seven6ThreeEight^ThreeEightNine)

Я пытаюсь достать все символы от "(" до "^" в один ряд, то есть
слово;слово;...;. Вроде бы получается, но
выходит вот так(см. ниже). Также почему то не захватывает первое слово (NineSixOneZero) ...


Заранее спасибо!

[evg_m]

s2.clear;  // очистить
s2.add(''); // добавить одну строку 
// надо сделать до цикла

// s2.add(....); это добавить НОВУЮ строку 
s2.lines[0]:=s2.lines[0]+';'+s; // вам надо изменить первую(точнее нулевую) строку

Также почему то не захватывает первое слово (NineSixOneZero) ...

все захватывает

var
  s: string;
  i2: integer;
begin
s:='(NineSixOneZero^Eight9Two)+(Zero1EightSix^Two8Eight)+(Four9ZeroFive^Six6Zero)+(Seven6ThreeEight^ThreeEightNine)';
i2:=1;
s3.Clear;
while POSEX('(', s, i2)<>0 do
begin
i2:=posex('(', s, i2)+1;
//s3.Lines.add(Copy(s, i2, posex('^', s, i2)-i2));
s3.Lines[0]:=s3.Lines[0]+';' + Copy(s, i2, posex('^', s, i2)-i2);
end;

;NineSixOneZero;Zero1EightSix;Four9 ZeroFive;Seven6ThreeEight