// Diese Funktion hilft z.B. beim Auslesen von DOS-Dateien
// durch Umwandlung von ASCII-Zeichen in ANSI-Zeichen

// Getestet mit D4 unter Win98

type wie = (AsciiToAnsi, AnsiToAscii); 
 
function wandlung(quelle: string; art: wie): string; 
begin 
  SetLength(Result, Length(quelle)); 
  if Length(Result) > 0 then 
    if art = AsciiToAnsi 
      then OemToChar(Pchar(quelle), Pchar(Result)) 
    else 
      CharToOem(Pchar(quelle), Pchar(Result)) 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  showmessage(wandlung('á', AsciiToAnsi)); 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  showmessage(wandlung('ÄÖÜäöüß', AnsiToAscii)); 
end;



Zugriffe seit 6.9.2001 auf Delphi-Ecke