Cortar, Copiar Delphi3

[[seoane]]

¿Algo asi?

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