Замена текста в поле TEditDelphi , Компоненты и Классы , TEditЗамена текста в поле TEdit
Оформил: DeeCo procedure ReplaceText(Edit: TCustomEdit; strOLD, strNEW: string); var x, Position: integer; tmpstr, tmpstr2: string; begin tmpstr := Edit.Text; for x := 0 to Length(Edit.Text) do begin if Copy(Edit.Text, x, Length(strold)) = strold then begin tmpstr := Copy(Edit.Text, 0, x - 1) + strnew; Position := x; end; end; tmpstr2 := Edit.Text; if Position <> 0 then Edit.Text := tmpstr + Copy(tmpstr2, Position + Length(strOLD), Length(tmpstr2)) else Edit.Text := tmpstr; end; // Example/Beispiel: procedure TForm1.Button1Click(Sender: TObject); begin ReplaceText(Edit1, 'OldWord', 'NewWord'); end; // With the StringReplace function: procedure ReplaceText(Edit: TCustomEdit; strOLD, strNEW: string); begin Edit.Text := StringReplace(Edit1.Text, strOLD, strNEW, [rfReplaceAll]); end; Статья Замена текста в поле TEdit раздела Компоненты и Классы TEdit может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |