Buscar por:

Função que pega a pasta pai

Código

/*inclua a unit strutils*/

function folderup(pasta:string):string;

begin

if ansicontainsstr(pasta,'')then begin  //ansicontainsstr(string,substring)-verifica se existe a substring na string-unit strutils :)

while not(copy(pasta,length(pasta),1)='')do delete(pasta,length(pasta),1);// enquanto o ultimo caractere da string pasta não for '' deleta o ultimo caractere da string pasta

//copy(string ou array dinamico,index(onde começar),count(quantos caracteres copiar)-copia os caracteres de index até index+count.

//delete(string,index,count)-deleta a parte da string que vai de index a index+count :)

end;

result:=pasta;//O resultado da função recebe pasta

end;