Konvertering fra ANSI til ASCII.

Sådan her:

Function OemToAnsiStr(szStr : String) : String;
begin
  SetLength(Result, Length(szStr));
  OemToAnsiBuff(@szStr[1], @Result[1], Length(szStr));
end;


Function AnsiToOemStr(szStr : String) : String;
begin
  SetLength(Result, Length(szStr));
  AnsiToOemBuff(@szStr[1], @Result[1], Length(szStr));
end;

Dog har jeg lige læst i hjælpen at jeg i stedet burde bruge OemToCharBuff
<SNIP>
The OemToAnsiBuff function is obsolete.

For compatibility with 16-bit versions of Windows, this function is implemented as a macro that calls the OemToCharBuff function, which should be used for Win32-based applications.
</SNIP>

Hvorfor ikke bare:

OemToChar(PChar(S), PChar(S));
eller
CharToOem(PChar(S), PChar(S));

Hvor S: String;

Virker helt fint hos mig...

Michael

Måske lige tilføje:
if Length(S) > 0 then CharToOem(PChar(S), PChar(S));

Michael

Er det ikke bare \"farven der har en anden lyd\" !?

pellelil: Det kan du have ret i, jeg syntes bare det andet så lidt mere overskueligt ud...

Michael

Tak for hjælpen og den hurtige reaktion.
Problmet blev løst med:
CharToOem(PChar(S), PChar(S));

--carstenbj