Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Matze**

Delphi-Quellcode:

			  if Pos('\\', Edit1.Text) = 1 then

begin

  ShowMessage('Eingabe korrekt!');

end else

begin

  Edit1.Text := '\\' + Edit1.Text;

end;

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#10 Re: Editfeld für Computername 27. Sep 2005, 17:24 markieren Delphi-Quellcode: if Pos('\\', Edit1.Text) = 1 then begin ShowMessage('Eingabe korrekt!'); end else begin Edit1.Text := '\\' + Edit1.Text; end;
	Zitat