Konvertieren von OEM-Zeichensatz zu Char

[DBman]

Hm...nein.

Mein Code sieht jetzt so aus:

Delphi-Quellcode:

 while not Table1.Eof do
  begin
    sZellenInhalt:=Table1.FieldByName('MAT1').AsString;
    OEMtoChar(PChar(sZellenInhalt), PChar(sZellenInhalt));
    Table1.Edit;
    Table1.FieldByName('MAT1').AsString:=sZellenInhalt;
    Table1.Next;
  end;
 Table1.First
end;

Und funktioniert nicht. Immer noch die Exception.