Pascal/Turbo Pascal - como pasar cadenas a minusculas

como pasar cadenas a minusculas ,con que funcion

Bueno, por algún motivo inexplicable, Pascal no tiene una función así, pero se puede hacer una función que reste 32 del número de cada caracter: es decir, la "a" es 97 y la "A" es 65... así que si le resto 32...

Se me ocurre algo así (Ojo, que no lo probé):

function Minuscula(cont Cad:string):string;
var Ind:byte;
Res:string;
begin
Res:='';
for Ind:= 1 to length(Cad) do
begin
if (Cad[Ind]>='A') and (Cad[Ind]<='Z') then
Res:=Res+ char( byte(Cad[Ind]) - 32 )
else if Cad[Ind]="Ñ" then
Res:=Res + 'ñ'
else.... y así con las otras letras asentuadas.
end;{for}
Minuscula:=Res;
end;

Espero te sirva. Saludos y buenas compiladas.

Función que te puede servir:

Function Lower(St :String) :String;
Var
Index :Byte;
Begin
For Index := 1 to Length(St) do
If St[Index] in ['A'..'Z'] then
Inc(St[Index], 32);
Lower := St;
End; {Lower}

Espero que te sea de utilidad. Saludos ;-)