задача на работу со строками

[Евгений77777]

дана строка символов среди которых есть двоеточие(

определить,сколько символов ему предшествует

нужен код делфи

[Кольша]

var
s:string;
i:integer;
begin
s:='dfsdfsdfchoto:sfgdfgdg';
i:=pos(':',s);
end;

[Евгений77777]

нужно ввести текст в edit1 и вывести в edit2

[Кольша]

begin
edit2.text:=inttostr(pos(':',edit1.text));
end;

[Евгений77777]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
  s:=''+edit1.Text;
  i:=pos(':',s)

end;

begin
edit2.text:=inttostr(pos(':',edit1.text));
end;
end.

вот код целиком матерится на эту строчку edit2.text:=inttostr(pos(':',edit1. text));

что нужно исправить?

[whatever]

Сообщение от Евгений77777

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:=''+edit1.Text;
i:=pos(':',s)

end;

begin
edit2.text:=inttostr(pos(':',edit1. text));
end;
end.

вот код целиком матерится на эту строчку edit2.text:=inttostr(pos(':',edit1. text));

что нужно исправить?

Заносить в тело процедуры не пробовал? Нафига столько begin-end'ов писать?

[Евгений77777]

напишите пожалуйста что конкретно нужно исправить как для идиотов я ничего в делфи не понимаю))

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:=''+edit1.Text;
i:=pos(':',s)

edit2.text:=inttostr(pos(':',edit1.text));
end;

end.

[Кольша]

замените :
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:=''+edit1.Text;
i:=pos(':',s)

end;

на:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=inttostr(pos(':',edit1. text));
end;
и будет вам счатье))

[Евгений77777]

нужно еще че то дописать видимо так как оно и двоеточие учитывает а нужно чтобы выводило сколько символов до него

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=inttostr(pos(':',edit1. text)-1);
end;