Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Подскажите как сделать...

Автор: lamos123456 11.11.2006, 09:39

Подскажите как сделать чтобы при вводе пробела в эдит1 он заменялся на сочетание символов %20 ?

Автор: TaNK 11.11.2006, 10:06

Цитата(lamos123456 @ 11.11.2006, 09:39)

Подскажите как сделать чтобы при вводе пробела в эдит1 он заменялся на сочетание символов %20 ?

для этого есть метод pos - тебе же писали про это..читай внимательней!

Автор: Albinos_x 11.11.2006, 10:22

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=' ' then
   begin
   Edit1.Text:=Edit1.Text+'%20';
   Key:=#0;
   end;
end;

Автор: lamos123456 11.11.2006, 10:24

Спасибо, я сделал немного подругому!

Код


begin
    edit1.Text:=StringReplace(edit1.Text, ' ','%20', [rfReplaceAll]);
    end;