[NiiliT]

Сообщение от iMaGi2006

как сделать так, чтобы в одной переменной находилась строка, написанная до номера телефона...а во второй номер(а) телефона?

просто примерчик, быстро набранный... не образец для подражания!!!:

Код:

procedure TfrmRep.Button1Click(Sender: TObject);
var
  sT : string;
  i : integer;
  j : integer;
  k : integer;
begin
  sT := 'Оля Иванова, простая девочка. Ничем не приметная. 758-965';
  j := 255;  
  for i := 0 to 9 do
  begin
    k :=pos(IntToStr(i),sT);
    if (j > k) and (k > 0) then
      j := k;
  end;
  showmessage('первая часть: ' + copy(sT,1, j-1)  + '; вторая часть: '+copy(sT,j, length(sT)-j+1));
end;