Работа со строками

[gufon]

Вот допустим есть такая строка.
Имя:ХХХ Фамилия:ХХХ Номер:ХХХ
Как мне из этой строки получить ХХХ ХХХ ХХХ???
Вроде coopy но как узнать начало и конец.

[Serge_Bliznykov]

ну, например через Pos('Имя:',s)
потом Pos('Фамилия:',s) Pos('Номер:',s)

а в общем случае можно и в цикле через Pos(':',s) ...

[ArtGrek]

начало и конец.

чего?
вы можете вопрос нормально задать?

[Deight]

var i:integer;
j:array[Boolean] of integer;
im,f,o:string;
begin
for i:=5 to length(Edit1.text) do
if Edit1.text[i]=':' then
if j[false]>0 then
j[true]:=i else j[false]:=i;
im:=copy(Edit1.text,5,j[false]-13);
f:=copy(Edit1.text,j[false]+1,j[true]-j[false]-10);
o:=copy(Edit1.text,j[true]+1,length(Edit1.text)-j[true]);
caption:=im+'\'+f+'\'+o;

токо если учитывать что в ФИО нет : и перед Фамилия,Номер есть пробелы

[gufon]

написал так

text:= 'ХХХ Фамилия:III Телефон:MMM Конец';
n1:=Pos('Фамилия:', text);
n1:=Pos('Телефон:', text);
n3:=n1+7;
n4:= Pos('Конец', text);
Edit1.Text:=Copy(text, 1, n1-1);
Edit2.Text:= inttostr(n1);

а в edit1
ХХХ Фамилия:III
почему???
в edit2 25

[ArtGrek]

вам 1 строку надо на 3 разделить?

[gufon]

да!!!!!!!!!!!!!!!!!!!!!

[ArtGrek]

в строке может быть больше параметров, но в такои же последовательности

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  i: integer;
begin
  str := 'Имя:ХХХ Фамилия:MMM Номер:ZZZ';
  i := 0;
  repeat
    inc(i);
    TEdit(FindComponent('Edit' + IntToStr(i))).Text :=
      Copy(str, Pos(':',str) + 1, Pos(' ',str) - Pos(':',str) - 1);
      Delete(str, 1, Pos(' ',str));
  until Pos(' ',str) = 0;
  TEdit(FindComponent('Edit' + IntToStr(i + 1))).Text :=
    Copy(str, Pos(':',str) + 1, Length(str) - Pos(':',str));
  Delete(str,1, Length(str));
end;