30.03.2010, 23:32
|
|
Познающий
Регистрация: 07.06.2009
Сообщений: 30
С нами:
8909709
Репутация:
0
|
|
Вот код для Delphi
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
t, s, m: String;
begin
t:=Edit1.Text;
s:=Edit2.Text;
m:=Edit3.Text;
Insert(s,t,StrToInt(m));
Edit4.Text:=t;
end;
end.
где:
t-текст
s-символ
m-в каком месте
Последний раз редактировалось Ss[x]dD; 30.03.2010 в 23:36..
|
|
|