Separar texto en 2 lineas...para impresion de cheques

[gabrielkc]

La ultima posicion en delphi se usa con

LastDelimiter que como parametros recibe un string con los delimitadores (en este caso el espacio) a buscar y la cadena a examinar

Código Delphi [-]
 
function UPalabra(s:string):string;
begin
 Result:=copy(s,LastDelimiter(' ',s),Length(s));
end;

La función anterior llamada con 'Adios Mundo Cruel'devuelve Cruel

para buscar todo menos la ultima palabra sería

Código Delphi [-]
 
function UPalabra(s:string):string;
begin
 Result:=copy(s,1,LastDelimiter(' ',s));
end;