Alice - künstliche Intelligenz

[cruiser]

Uhm... darf ich dir Pos ans Herz legen?

Delphi-Quellcode:

procedure TxtInStr(Str: String; Txt: String); 
begin
  Found := (Pos(Txt, Str) >= -1);
end;

Vermutlich wird dann sogar die procedure-Kapselung überflüssig