строки и действия

[DeDoK]

вобщем есть список. в нем строки вида xxxxxxxxxxx;yyyyyyyyyyyyy
как поместить в переменную 1 значение xxxxxxxxxxx а в переменную 2 значение yyyyyyyyyyyyy для каждой строки, выполнить какое либо действие и перейти на следующую строку? обе переменные типа стринг.я пробовал отыскать символ ; а потом от него отмерять но что не получается.((( помогите плиз( если со строками разберусь - дальше будет проще

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

procedure Divide(Sourse:string;var Dest1,Dest2:string);
begin
 Dest1:=Copy(Sourse,1,Pos(';',Sourse)-1);
 Delete(Sourse,1,Pos(';',Sourse));
 Dest2:=Sourse;
end;

вроде так...писал тут

[DeDoK]

я так понимаю Sourse - это строка списка. а как вы ее получаете? что то типа?

var
ss : TStringList
i:integer;
begin
for i:=0 to ss.Count do
...

или как?

[TwiX]

Недавно искал функции про строки:
http://delphizone.ucoz.ru/news/2007-04-20-10
может пригодится =)

[TwiX]

var
ss : TStringList
i:integer;
begin
for i:=1 to ss.Count do Divide(ss.string[i];Dest1,Dest2);
end;

[DeDoK]

2 TwiX
что такое Divide? я такой функции незнаю, да и делфи тоже

[DeDoK]

а сорри увидел

[TAVulator]

что такое Divide?

процедура из второго поста...

[TwiX]

Поправка:
for i:=0 to ss.Count-1 do Divide(ss.string[i-1];Dest1,Dest2);

[DeDoK]

но опять ругается что пропущен идентификатор но стринг найден
[Error] MainUnit.pas(97): Identifier expected but 'STRING' found

не, теперь пишет не хватает параметров
[Error] MainUnit.pas(97): Not enough actual parameters