Qual o problema com os seguintes códigos?

[masterbsb 2]

Pessoal, uso o delphi 2010 e essa função apresenta o seguinte erro, alguém poderia me ajudar a resolver este problema? Desde já, grato a todos!

function FastUpperCase(const s: String): string;

{Fast uppercase}

var

I: Integer;

C: Char;

begin

Result := S;

I := Length(Result);

while I > 0 do

begin

C := Result;

if C in [#97..#122] then

Dec(Byte(Result), 32); //o erro é nessa linha

Dec(I);

end;

end;

a mensagem de erro é: [Error] ifps3utl.pas(549): E2064 Left side cannot be assigned to

já com esse outro trecho de código tenho o seguinte erro:

function CheckReserved(Const S: ShortString; var CurrTokenId: TIfPasToken): Boolean;

var

L, H, I: LongInt;

J: Char;

SName: ShortString;

begin

L := 0;

J := S[0];

o erro apresentado é esse: [Error] ifps3utl.pas(655): E2010 Incompatible types: 'Char' and 'AnsiChar'Pessoal, uso o delphi 2010 e essa função apresenta o seguinte erro, alguém poderia me ajudar a resolver este problema? Desde já, grato a todos!

function FastUpperCase(const s: String): string;

{Fast uppercase}

var

I: Integer;

C: Char;

begin

Result := S;

I := Length(Result);

while I > 0 do

begin

C := Result;

if C in [#97..#122] then

Dec(Byte(Result), 32); //o erro é nessa linha

Dec(I);

end;

end;

a mensagem de erro é: [Error] ifps3utl.pas(549): E2064 Left side cannot be assigned to

já com esse outro trecho de código tenho o seguinte erro:

function CheckReserved(Const S: ShortString; var CurrTokenId: TIfPasToken): Boolean;

var

L, H, I: LongInt;

J: Char;

SName: ShortString;

begin

L := 0;

J := S[0];

o erro apresentado é esse: [Error] ifps3utl.pas(655): E2010 Incompatible types: 'Char' and 'AnsiChar'

[ede1331 0]

Para as que vc tem o erro com Incompatible tipes basta vc declarar a variavel "J : AnsiChar"

 

Boa sorte...

[masterbsb 2]

ede1331, muito obrigado por tua ajuda, resolveu meu problema, abrçs!