поиск/копирование данных в edit

[kate158]

допустим в edit есть строка: часть1,часть2,часть3
как разбить приведенную строку на 3 подстроки?и каждую вывести через message

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

var a:array of string;
    s:string;
    i:integer;
begin
 s:=Edit1.Text;
 SetLength(a,0);
 while s[1]=',' do Delete(s,1,1);
 while Length(s)>0 do
  begin
   SetLength(a,Length(a)+1);
   if Pos(',',s)<>0
    then begin
          a[Length(a)-1]:=Copy(s,1,Pos(',',s)-1);
          Delete(s,1,Pos(',',s));
         end
    else begin
          a[Length(a)-1]:=Copy(s,1,Length(s));
          Delete(s,1,Length(s));
         end;

  end;
 s:='';
 for i:=0 to Length(a)-1 do s:=s+#13#10+a[i];
 ShowMessage(s);

вот мой вариант
можно и иначе сделать(мой немного громоздок)

[kate158]

нужно чтобы каждое значение было в отдельном мессадже.чета у меня уже мозги не варят

[russian-stalker]

тогда в конце так:

 for i:=0 to Length(a)-1 do ShowMessage(a[i]);

[Stilet]

есть строка: часть1,часть2,часть3

var s:TStringList;i:integer;
begin
 s:=TStringList.Create;
 s.CommaText:='часть1,часть2,часть3';
 for i:=0 to s.Count-1 do ShowMessage(s[i]);
 s.Free;
end;

Смысл ясень?