ansipos();

noget alla det her :

function MyPos(Const SubStr, Str : String; I : Integer) : Integer;
var
  p : PChar;
begin
  p := @Str[1];
  repeat
    dec(i);
    Result := Pos(SubStr,p);
    if Result <> 0 then
      p := @Str[Result];
  until i = 0;
end;


DET ER IKKE TESTED !!!!!

Jens B

Den sidste kan du få med LastDelimiter(), det med den 3 skal du selv kode.

det er fint jeg prøver at rode med det
tak

/jetrit

martin vil du også have nogle point jeg forstår ikke hvorfor det med at give flere presoner point ikke virker !

Jeg overlever nok *S*