Edit und string

[Sharky]

Zitat von Spider:

...Ne geht irgendwie auch nicht!..

Seltsam.

Egal.

Hier zwei Varianten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Pos ('/cu',Edit1.Text) > 0) then
  begin
   close;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if (LowerCase (Edit1.Text) = '/cu') then
  begin
   close;
  end;
end;

In der ersten wird geschaut ob irgendwo im Edit "/cu" steht (klein geschrieben)

In der zweiten wird geschaut ob im Edit ausschließlich "/cu" steht. Dabei ist es dank der Funktion LowerCase egal ob "/cu" oder "/CU" oder "/cU" im Edit steht. Jetzt kannst Du die beiden noch kombinieren und .... fertisch.