Re: [delphi-br] DELPHI 2009. Porque dá erro?

[Luiz ESCobar]

// Pq da erro não sei,
// mas eu tenho uma função que acho que deve ter o mesmo funcionamente da 
sua ao inverso,
// a minha eu uso assim:
function TDM1.DosToWin( str1: string ) : string;
begin
   OemToAnsi( PAnsiChar(str1), PAnsiChar(str1) );

// Então, ACHO que no seu caso vc poderia tentar assim
function TDM1.DosToWin( str1: string ) : string;
begin
   AnsiToOem( PAnsiChar(str1), PAnsiChar(str1) );

// Também achei o seguinte, nao sei se ajuda:
function StringToOem(const AData: String): String;
var
  lSrc, lDest: PChar;
begin
  lSrc := StrAlloc(Length(AData));
  try
    StrPCopy(lSrc, AData);
    lDest := StrAlloc(Length(AData));
    try
      CharToOem(lSrc, lDest);
      Result := StrPas(lDest);
      SetLength(Result, Length(AData));
    finally
      StrDispose(lDest);
    end;
  finally
    StrDispose(lSrc);
  end;
end;

[]s Anakin

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--------------------------------------------------------------------------
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9175)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
-------------------------------------------------------------------------------------------

--------------------------------------------------
From: "Anakin" <[EMAIL PROTECTED]>
Sent: Thursday, September 11, 2008 2:30 PM
To: <delphi-br@yahoogrupos.com.br>
Subject: [delphi-br] DELPHI 2009. Porque dá erro?

> PessoALL,
>
> A função abaixo compila NORMALMENTE do D7 ao D2007.
>
> A questão é: Porque no D2009 dá erro ?
>
> function AnsiToDOS(S: string): string;
>
> begin
>
>  SetLength(Result, Length(S));
>
>  if S <> '' then
>
>  begin
>
>    CharToOem(PChar(S), PChar(Result)); *-> O ERRO OCORRE NESSA FUNÇÃO
> (Nativa do Delphi) – "[DCC Error] TXALL.PAS(557): E2010 Incompatible 
> types:
> 'Char' and 'AnsiChar'"*
>
>  end;
>
> end;
>
> Como falei, compila OK do D7 ao D2007.
>
> Grato pela atenção,
>
> João Carlos
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ------------------------------------
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
> 

------------------------------------

-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html