Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
22. Feb 2017
Perfekt! Jetzt habe ich gleich zwei funktionierende Methoden für die Umwandlung! :-D
Vielen Dank an alle!
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
22. Feb 2017
Das habe ich in diesem Post bereits geschrieben.
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
Kann mir denn sonst jemand einen Tipp geben, wie ich OEM2Ascii umsetzen kann?
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
function GetFields(I: cardinal): string;
Habe es ebenfalls versucht mit:
function GetFields(I: cardinal): AnsiString;
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
Deswegen frage ich ja hier nach :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
Das wäre natürlich das einfachste, aber dafür müsste ich recht viele alte Units ändern, in denen direkt in eine Datei geschrieben wird, und der Aufwand dafür ist dann doch zu hoch.
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
function GetFieldByName(const FieldName: string): String;
var s: String;
begin
s := Utf8ToAnsi(GetFields(self.GetFieldIndex(FieldName)));
if FIsAscii then s := OEM2Ascii(S);
Result := s;
end;
Der Rückgabewert der Methode GetFields liefert einen String.
Forum: Object-Pascal / Delphi-Language
Delphi
by ernschd,
21. Feb 2017
function OEM2Ascii(const OEMString: AnsiString): AnsiString;
begin
Result := OEMString;
if Result <> '' then
OemToCharA(PAnsiChar(Result), PAnsiChar(Result));
end;