Código Delphi [-] function MidStr(Texto: string; Inicio, longitud: Integer): string begin Result:= Copy(Texto, Inicio, longiutd); end;
function MidStr(Texto: string; Inicio, longitud: Integer): string begin Result:= Copy(Texto, Inicio, longiutd); end;