преобразование массива

[hunter03]

Здравствуйте, помогите решить проблему:
есть строка s='Петров.Сидоров.'
Необходимо эти фамилии записать в отдельный массив, что б получилось
a[1]='Петров'
a[2]='Сидоров'

Делаю следующим образом:

       for r:=1 to Length(s) do begin
        if s[r]='.' then begin

        a[count]:=Copy(s,1,Pos('.',s)-1);
        Delete(s,1,Pos('.',s));
        count:=count+1;

        end
        else begin count:=count+1;
        a[count]:=s; end;
    
         for ii:=1 to count do begin
          ShowMessage(amis[ii]);
         end;

Выскакивают ошибки, никак не получается исправить, помогите если есть время

[Stilet]

Delete(s,1,Pos('.',s));

Это убери. Это Баальшие грабли.

a[count]:=Copy(s,1,Pos('.',s)-1);

Нет. Это тоже не поможет.

      
 for r:=1 to Length(s) do begin
        if s[r]<>'.' then         a[count]:=a[count]+s[r];
         else count:=count+1;
 end;

Так достаточно.

[hunter03]

Ого, так просто, а я сидел-мудрил...спасибо большое!!!

[Stilet]

Ну ты откуда этот пример выдрал? Дюже знакомый. Там где я его видел такого не было мудрствования. Там Аффтарр как мона проще сделал.