com resultado string a sua função dá certo.
function AbDrive(const ArchiveName : string) : string;
var
iPos: Integer;
Path : string;
begin
Path := ExpandFileName(ArchiveName);
iPos := Pos(':', Path);
if (iPos <= 0) then
Result := 'A'
else
Result := Path[1]; //AQUI OCORRE O ERRO
end;
----- Original Message -----
From: Samuel M. Basso
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 13, 2009 10:49 AM
Subject: Re: [delphi-br] Erro migrar delphi 7 para delphi 2010
Por exemplo nessa funcao é onde o erro aparece:
function AbDrive(const ArchiveName : string) : AnsiChar;
var
iPos: Integer;
Path : string;
begin
Path := ExpandFileName(ArchiveName);
iPos := Pos(':', Path);
if (iPos <= 0) then
Result := 'A'
else
Result := Path[1]; //AQUI OCORRE O ERRO
end;
Erro: Incompatible types: 'AnsiChar' and 'Char'
Alterei a variavel Path para AnsiChar mas ai teria que mudar tambem
ArchiveName para AnsiChar tmb?
Nao compreendi o que necessariamente preciso mudar pois esse erro tem MUITO
para migrar.
2009/10/12 stefaniak <stefan...@bol.com.br>
>
>
> troque aonde estiver pchar(xx) por pansichar(xx);
>
> Em 09/10/2009 20:47, Samuel M. Basso escreveu:
>
> >
> > Olá Pessoal!
> >
> > Estou começando a fazer uns testes com o Delphi 2010 e estou querendo
> > migrar
> > minha aplicação feita em delphi 7 para ele. E esta ocorrendo diversos
> > erros
> > de incompatibilidade, segue erro abaixo:
> >
> > Incompatible types: 'AnsiChar' and 'Char'
> >
> > Alguem já passou por isso?
> >
> > --
> > Atenciosamente,
> >
> > Samuel M. Basso
> > Cel: (54) 8135-3723
> > Skype: samuelbasso
> > E-mail/MSN: samuelba...@gmail.com <samuelbasso%40gmail.com> <mailto:
> samuelbasso%40gmail.com <samuelbasso%2540gmail.com>>
> > Web site: www.samuelbasso.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>
>
--
Atenciosamente,
Samuel M. Basso
Cel: (54) 8135-3723
Skype: samuelbasso
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
