Delphi-Quellcode:
function PosEx(Substr: string; S: string; P: Integer): Integer;
begin
if P <= 0 then Result := 0
else Result := Pos(Substr, Copy(S, P, Length(S)));
if Result <> 0 then Result := Result + P - 1;
end;
Die komplette Function hab ich jetzt gefunden. Nur wie bring ich load/save_Grind die Open/Save Dialoge bei?