[Delphi 2010] Wenn in Edit1.Text nicht '/' ist dann...

[Jens Hartmann]

Hallo,

hier mal ein Beispiel...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Posi : integer;
begin
  Posi := Pos('/', Edit1.Text);
  if Posi > 0 then
    ShowMessage('Der / befindet sich an Position: ' + IntToStr(Posi))
  else
    ShowMessage('Kein / vorhanden');
end;

Gruß Jens