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

[DarkItachi]

Ok, nächste Frage: (an einem Tag )

Ich habe eine Edit1 Textbox.
Ich will nun abfragen, ob in der Textbox ein '/' oder ein '\' ist!
Wie kann ich das machen?

Thx

[mkinzler]

Indem du den Inhalt durchsuchst z.B. mit Pos()

[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

[DarkItachi]

Cool danke!

Funktioniert Perfekt^^

MfG