Stringkonvertierung

[HPB]

Guten Tag Delphianer,
ich habe folgendes Problem bei der Konvertierung von Strings:
in einer Datei (DATANORM) steht folgende Zeile:

Dyckerhoff Zement CEM II 32,5 R, 25 kg;(Achtung Farb„nderung)

wenn ich die Datei mit dem TotelCommander öffne (Lister) steht folgendes:
Dyckerhoff Zement CEM II 32,5 R, 25 kg;(Achtung Farbänderung)

also die korrekte Umsetzung.

Der TotalCommander benutzt die ASCII-Codierung (ANSI/DOS (lokale Codeseite (1), wie feststellen konnte.
Stelle ich die Codierung im TotalCommander zu Testzwecken um, werden für die Umlaute wieder andere Zeichen dargestellt.

Aber wie kann ich die korrekte Darstellung, Umwandlung erreichen?
Mit welchem Befehl, Funktion kann die Umwandlung gelingen?
Die Umwandlung mit UTF8..., OEMTo... habe ich alles versucht. War aber nicht mit Erfolg gekrönt.
Vielen Dank für Eure Mühen.
Gruß
HPB

[mkinzler]

Wie lädst du die Datei in Delphi?

[HPB]

Zitat von mkinzler:

Wie lädst du die Datei in Delphi?

Delphi-Quellcode:

  AssignFile(fDatei, aDatei);
{$I-}Reset(fDatei);
{$I+ }

und dann mit while not Eof(fDatei) jede Zeile lesen

[Uwe Raabe]

Zitat von HPB:

Delphi-Quellcode:

  AssignFile(fDatei, aDatei);
{$I-}Reset(fDatei);
{$I+ }

und dann mit while not Eof(fDatei) jede Zeile lesen

Du kannst doch bei AssignFile als dritten Parameter die Codepage mitgeben.

AssignFile(fDatei, aDatei, 1);

[himitsu]

Zitat von Uwe Raabe:

Du kannst doch bei AssignFile als dritten Parameter die Codepage mitgeben.

AssignFile(fDatei, aDatei, 1);

War das nicht die Rect-Größe?
[edit] Halt, RecSize wurde beim Reset/Rewrite angegeben.

Aber dem AnsiString-Read/ReadLn kann man die CodePage mitgeben. (laut dem QuellCode der XE-System.pas)

[HPB]

Guten Tag Delphianer,
vielen Dank an allen die bei der Lösung des Problems geholfen haben.
Letztendlich hab ich den Vorschlag von Uwe Raabe genommen:

Zitat:

Du kannst doch bei AssignFile als dritten Parameter die Codepage mitgeben.

AssignFile(fDatei, aDatei, 1);

Dies schien mir zum jetzigen Zeitpunkt die einfachste Lösung zu sein.
Jetzt kann ich auch weiter an die Erneuerung des Quellcodes gehen.
Das Thema kann nun geschlossen werden.
Mit besten Gruß
HPB

[DeddyH]

Delphi-Quellcode:

const
  Test = 'Achtung Farb„nderung';
var
  s: string;
begin
  SetLength(s, Length(Test));
  OEMToCharBuff(PAnsiChar(Test), PChar(s), Length(Test));
  ShowMessage(s);
end;

Sah gut aus.

[HPB]

Zitat von DeddyH:

Delphi-Quellcode:

const
  Test = 'Achtung Farb„nderung';
var
  s: string;
begin
  SetLength(s, Length(Test));
  OEMToCharBuff(PAnsiChar(Test), PChar(s), Length(Test));
  ShowMessage(s);
end;

Sah gut aus.

Habe ich gerade ausprobiert. Die Umlaute sind nicht vorhanden.

[DeddyH]

Komisch, bei mir schon.

[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]
[edit2] Sry, ich hab übersehen, dass Du alles als AnsiStrings deklariert hast. Damit bleibt nur noch Punkt 2. [/edit2]

[Jumpy]

Vllt. was zur Codierung, könnte helfen:

Zitat:

Die DATANORM-Schnittstelle ist auf eine minimale Hardware-Konfiguration zugeschnitten und erlaubt somit den weitreichenden Einsatz. Alle Datensätze bestehen aus reinem ASCII-Text, wobei jeder Satz exakt 128 Zeichen lang und durch eine Zeichenschaltung (Carriage return/0DH 0AH) abgeschlossen ist.

Der erlaubte Zeichenvorrat lehnt sich an den IBM-Zeichensatz an, wobei jedoch nur die unteren 128 Zeichen erlaubt sind. Lediglich die deutschen Sonderzeichen bilden hier eine Ausnahme und tragen weiterhin die Positionscodes des erweiterten ASCII-Zeichensatzes.

Quelle:
http://www.textarchiv.alojado.de/tex...en-ap1387.html