Fórum Problemas com Functions #178852

function Divide_Nome(Str : string; Parte : integer; var inin:string ; var fimn:string; var meion:string) : string; Export;
var
    lp0, sln, CurrN, lp00, lp01 : integer;
    EmSep, PrimEncontrado : boolean;
begin
    result := ´´;
    fimn:=´´;
    inin:=´´;
    meion:=´´;
    CurrN := 0; 
    EmSep := false; 
    PrimEncontrado := false;
    sln := length(Str);
    for lp0 := 1 to sln do begin
        if Pos(Str[lp0],´ ´) > 0 then
           begin
              if not EmSep then
                 begin
                    if PrimEncontrado then
                       inc(CurrN);
                 end;
                 EmSep := true;
                 if CurrN > Parte then
                    break;
           end
           else
              begin
                 EmSep := false;
                 PrimEncontrado := true;
                 if CurrN = Parte then
                  begin
                    fimn := fimn + Str[lp0];
                  end
                  else if currn <parte-parte+1 then
                       inin:=inin+str[lp0];
              end;
    end;
    lp01:=length(str)-length(fimn)-1;
    for lp00:=length(inin)+2 to lp01 do begin
      meion:=meion+ str[lp00];
      end;

    if (inin=´´) and (fimn<>´´) then begin
        inin:=fimn; fimn:=´´; end
        else if(inin=´´) and (meion<>´´) and (fimn=´´) then begin
                inin:=meion; meion:=´´; end;

end;