Código
Function ExtrairAno (Ano : String) : String;
var
posicao :integer;
aux : string;
begin
posicao := (pos('/',Ano));
aux := Copy(Ano,posicao+4,length(Ano)-posicao);
result:= aux;
end;
//Duvidas rodrigo@princar.com.br
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009