E2010 Incompatible types: Char and AnsiChar

Delphi

15/10/2013

Olá pessoal, estou convertendo meu projeto do delphi 7 para o delphi xe3
mas está dando uma seguinte mensagem compilar :

E2010 Incompatible types: ''Char'' and ''AnsiChar''

no seguinte código :
function AnsiUpperFirstChar(const S: string): string;
var
  Temp: string[1];
begin
  Result := AnsiLowerCase(S);
  if S <> '''' then begin
    Temp := Result[1];
    Temp := AnsiUpperCase(Temp);
    Result[1] := Temp[1];
  end;
end;


se alguém souber de algo, peço por favor me ajudem, ta difícil a coisa hehehe.
abraços
Luis Flores

Luis Flores

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

15/10/2013

Luiz, troque suas variáveis String para AnsiString que provavelmente vai dar certo.

Att,

Marcos
GOSTEI 0
Nildglan Sousa.

Nildglan Sousa.

15/10/2013

Luis Felipe estou com esse mesmo problema, vc conseguir resolver?
se sim como vc resolveu?
Marcão vc poderia da exemplo pra nós de como ficaria?

function AnsiUpperFirstChar(const S: string): string;
var
Temp: string[1];
begin
Result := AnsiLowerCase(S);
if S <> '''' then begin
Temp := Result[1];
Temp := AnsiUpperCase(Temp);
Result[1] := Temp[1];
end;
end;
GOSTEI 0
Marcos P

Marcos P

15/10/2013

Ajuste o tipo da chamada da função para AnsiString e tente alterá-la para...

function AnsiUpperFirstChar(const S: AnsiString): AnsiString;
var
Temp: AnsiString[1];
begin
Result := AnsiLowerCase(S);
if S <> '''' then begin
Temp := Result[1];
Temp := AnsiUpperCase(Temp);
Result[1] := Temp[1];
end;
end;
GOSTEI 0
Thiago Santana

Thiago Santana

15/10/2013

Luis, você precisa trabalhar com os tipo AnsiString em versões superiores do Delphi
GOSTEI 0
POSTAR