Zitat von
PierreB:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := memo1.text;
if Pos('wie', s) <> 0 then close;
end;
Wenn das Wort "wie" vorkommt wird das Programm beendet.
Hast Recht! vielen Dank für die Hilfe.