problem mit Stringlist, test auf vorhandensein einer phrase?

[marabu]

Das nenne ich einen aufmerksamen Leser. Hier hast du:

Delphi-Quellcode:

function RandomStr(size: integer): string;
var
  i: integer;
begin
  SetLength(Result, size);
  for i := 1 to Length(Result) do
    Result[i] := Chr(Ord('A') + Random(26));
end;

marabu