[DELPHI] Convertire date in diverso formato

[rafpas]

ciao alka

ho fatto in questo modo:

function puliscidata(S:string;Strf:string):string;
var
p:string;
begin
if Strf = 'yyyy-mm-dd' then
begin
p:=copy(s,9,2)+'/';
p:=p+copy(s,6,2)+'/';
p:=p+copy(s,1,4);
end;
if Strf = 'dd/mm/yyyy' then
p := s;

p := formatdatetime('mm/dd/yyyy',strtodate(p));
result:=p;
end;

va bene cosi oppure si potrebbe ottimizzare

dammi un consiglio