Stringkonvertierung

[p80286]

Nun wenn Du die Daten nicht mehr zurück liefern mußt, dann laß doch gleich alles durch eine Übersetzungstabelle laufen:

Delphi-Quellcode:

for i:=1 to length(mystring) do
  mystring[i]:=asciitab[mystring[i]];

Die kannst Du anpassen wie Du es gerne hättest.
(diesen OEmtoAnsi's traue ich nur so weit wie ich sie selbst geschrieben habe)

Gruß
K-H

[Blup]

Dann stimmt vermutlich die im Windows eingestellte OEM-Code-Page nicht.
Stell mal in den Ländereinstellungen auf Englisch(USA) und speichern.
Danach wieder auf Deutschland(Deutsch), speichern und Windows neu starten.

Zitat:

[edit] @Blup: Lies mal die Bemerkungen zu OEMToChar/CharToOEM, Dein Code wird unter Delphi > 2007 knallen. Außerdem rät Microsoft selbst von der Verwendung ab.[/edit]

Zitat:

Security Considerations

Using this function incorrectly can compromise the security of your application.

Ich hab nicht vor diese Funktion inkorrekt zu benutzen. Deshalb auch schön in eigene Funktionen gekapselt die mit AnsiString und PAnsiChar arbeiten.
Das sollte auch nach Delphi 2007 keine Probleme verursachen.

In neueren Delphi-Versionen könnte man auch das mal versuchen, kann ich aber grad nicht testen:

Delphi-Quellcode:

function ConvertCodePage(const S: _RawByteStr; AFromCodePage, AToCodepage: Word): _RawByteStr;
begin
  Result := S;
  SetCodePage(Result, AFromCodePage, False); // Codepage der Ausgangsdaten nur festlegen
  SetCodePage(Result, AToCodepage, True);    // Codepage umstellen und Daten konvertieren
end;

sl.Text := ConvertCodePage(sl.Text, 437, 850);

[DeddyH]

Ich hatte ja noch einmal editiert. Trotzdem: wenn der Hersteller schon schreibt

Zitat:

Warning Do not use.

dann nehme ich das ernst.

[DeddyH]

Zitat von Blup:

Zitat:

Security Considerations

Using this function incorrectly can compromise the security of your application.

Ich hab nicht vor diese Funktion inkorrekt zu benutzen.

Nach genauerer Betrachtung tust Du das aber. Die Deklaration als AnsiString/PAnsiChar bewirkt ja nicht, dass da nun CharToOEMA/OEMToCharA aufgerufen wird, das muss man schon explizit tun. Deshalb gilt

Zitat:

If the OemToChar function is being used as an ANSI function, the string can be translated in place by setting the lpszDst parameter to the same address as the lpszSrc parameter. This cannot be done if OemToChar is being used as a wide-character function.

auch weiterhin, zumindest ab Delphi 2009.

[Blup]

Zitat von DeddyH:

Nach genauerer Betrachtung tust Du das aber. Die Deklaration als AnsiString/PAnsiChar bewirkt ja nicht, dass da nun CharToOEMA/OEMToCharA aufgerufen wird, das muss man schon explizit tun. Deshalb gilt

Zitat:

If the OemToChar function is being used as an ANSI function, the string can be translated in place by setting the lpszDst parameter to the same address as the lpszSrc parameter. This cannot be done if OemToChar is being used as a wide-character function.

auch weiterhin, zumindest ab Delphi 2009.

Wenn ich das richtig verstehe ruft die Funktion OemToChar
bis Delphi 2007 -> OemToCharA
ab Delphi 2009 -> OemToCharW auf.
Ok, dann häng ich da gleich noch ein A dran...

[Blup]

Für den einfachsten Fall sollte das genügen:

Delphi-Quellcode:

function AnsiToOem(const AValue: AnsiString): AnsiString;
begin
  Result := AValue;
  if Length(Result) <> 0 then
    CharToOem(PAnsiChar(Result), PAnsiChar(Result));
end;

function OemToAnsi(const AValue: AnsiString): AnsiString;
begin
  Result := AValue;
  if Length(Result) <> 0 then
    OemToChar(PAnsiChar(Result), PAnsiChar(Result));
end;

var
  sl: TStringList;
begin
  sl.LoadFromFile('Oem.txt');
  sl.Text := OemToAnsi(sl.Text);
  {...}

Wer arbeitet eigentlich noch mit Readln?

[HPB]

Zitat von Blup:

Für den einfachsten Fall sollte das genügen:
[delphi]
Wer arbeitet eigentlich noch mit Readln?

Ich. Alter Mann (immerhin 69 Jahre), altes Programm, altes Wissen. Passt doch alles zusammen.
Bin gerade dabei ein uralt Programm umzuschreiben. Es wird nicht gleich alles neu gemacht.
Erst einmal die korrekten Daten bekommen, dann alles weitere.
Gruß HPB