Extraer caracteres de una cadena

[[Lepe]]

Código Delphi [-]
uses strUtils;

begin
   str := leftstr(str,3);

Saludos

[[Lepe]]

Si tu version de delphi no las tiene, puedes crearlas tu y ponerlas en una unidad aparte:

Código Delphi [-]
function RightStr(const s:string;const count:integer):String;
begin
   Result := Copy(s, Length(s)+1- count, count);
end;

Como está basado en la función Copy, no produce error, si vas a copiar más caracteres de los que hay, simplemente copia los que se permite.

[MiLLeNPuNk]

Muchas gracias Lepe, asi es , gracias a todos los demas tb por ayudarme, gl a todos

[mematanlimon]

como seria esta sentencia para Lazarus???