Text richtig einlesen

[musicman56]

Hallo,

mich würde eine "automatisch" funktionierende Lösung auch interessieren. CharToOemBuff und OemToCharBuff setzen ja voraus, dass man erst mal wissen muss, in welcher Codierung die Datei bzw. der Text vorliegt. Sonst kommt Müll raus. Momentan löse ich das auf eine sehr umständliche Art und Weise (@Stahli das dürfte dein Problem auch lösen) aber ich denke/hoffe, dass es eine performantere Lösung gibt.

Delphi-Quellcode:

procedure AutoOemToChar(var Value: AnsiString);
var
  i: integer;
begin
  for i := 1 to Length(Value) do
  if ord(Value[i]) in [132,148,129,142,153,154,225,$FC,$FD]
  then if NOT CharInSet(Value[i],['ä','ö','ü','Ä','Ö','Ü','ß','³','²'])
  then begin
    OemToCharBuffA(PAnsiChar(Value), PAnsiChar(Value), Length(Value));
    Break;
  end;
end;