Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**mirage228**

im onChange des Edits einfügen

Delphi-Quellcode:

			procedure TForm1.Edit1Change(Sender: TObject);

begin

  if pos(ansilowercase(edit1.text), '.ini') <> 0 then

  Showmessage('INI!!!');

end;

mfG
mirage228

mirage228 Registriert seit: 23. Mär 2003 Ort: Münster 3.750 Beiträge Delphi 2010 Professional	#2 Re: wenn in ... dann machwas 25. Okt 2003, 17:19 im onChange des Edits einfügen markieren Delphi-Quellcode: procedure TForm1.Edit1Change(Sender: TObject); begin if pos(ansilowercase(edit1.text), '.ini') <> 0 then Showmessage('INI!!!'); end; mfG mirage228 David F.
	Zitat