Проблема с функцией pos.

[men232]

Всем доброго времени суток, возникла проблема с функцией pos.
У меня есть строка:

Часть1;Часть2;Часть3

Мне нужно отделить все до ; и присвоить переменным.
Мне удалось отделить только первые две части, и то Часть2 захватывает Часть3, вот код:

Part1 := copy(Form1.Memo1.Lines[i], 0, pos(';', Form1.Memo1.Lines[i]) - 1);
Part2:= copy(Form1.Memo1.Lines[i], pos(';', Form1.Memo1.Lines[i]) + 1, Length(Form1.Memo1.Lines[i]));

Что мне нужно дописать что бы отделить третью часть.

Забыл указать что пишу на delphi

[syc07]

язык не знаю какой, напишу для паскаля.
m=length(s)
m:=m div 3;
part2:=copy(s,m+1,m)
part3:=copy(s,2*m+1,m)
m-первая часть.

[men232]

А можно такое только на delphi!

[syc07]

Part2:= copy(Form1.Memo1.Lines[i], pos(';', Form1.Memo1.Lines[i]) + 1, Length(Form1.Memo1.Lines[i]) div 3);
Part3:=copy(Form1.Memo1.Lines[i], 2*pos(';', Form1.Memo1.Lines[i])+1,Length(Form1.Memo1.Lines[i]) div 3)

в коде не уверен

[evg_m]

s:='......................';
1. начиная с delphi7 (posEx)

k1:=pos(';',s);
s1:=copy(s,1, k1-1);
k2:=posex(';',s,k1+1);
s2:=copy(s,k1+1,(k2-1)-)k1+1));
s3:=copy(s,k2+1, length(s)-k2);

2 ранние версии

k:=pos(';',s);
s1:=copy(s,1,k-1);
delete(s,1,k);
k:=pos(';',s);
s2:=copy(s,1,k);
delete(s,1,k);
s3:=s;

[men232]

Спасибо всем за примеры, но почему то у меня не получается.
Я из таких людей которым нужно разжевывать, извините.

[men232]

Получилось, спасибо всем. Пришлось с бубном потанцевать :D