Konvertieren von OEM-Zeichensatz zu Char

[eddy]

Hallo DBman,

böse Falle, es sieht so aus, als ob OEMtoChar leere Strings nicht verkraftet. Habe Deine Fehler nachvollziehen können. Nachfolgender Code lief bei mir ohne Fehler.

Code:

begin
  Tab1.First;
  while not Tab1.Eof do begin
    sZellenInhalt:=Tab1.FieldByName('Ort').AsString;
    if trim(sZellenInhalt) <> '' then begin
      OEMtoChar(PChar(sZellenInhalt), PChar(sZellenInhalt));
      Tab1.Edit;
      Tab1.FieldByName('Ort').AsString:=sZellenInhalt;
    end;
    Tab1.Next;
  end;
  Tab1.First;
end;

mfg
eddy