string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

danke

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var S: string;
begin
  S := Edit1.Text;
  { Convert spaces to zeros }
 if Pos('hallo', S) > 0 then
 Button1.Visible:=false;
end;

das klappt


http://docs.embarcadero.com/products...yteString.html

(unten, etwas geändert)