Forum: Programmieren allgemein
by joehd,
16. Aug 2023
Danke himitsu stimmt hatte ich vergessen leider kann ich es nicht mehr editieren ...
DANKE
Forum: Programmieren allgemein
by joehd,
14. Aug 2023
Hallo
Danke erstmal das mit dem Encoding hat top funktioniert.
Das bedeutet nicht das das andere nicht funktioniert hätte aber es war auch einfach ...
Ich wusste bis heute nicht das es Encoding gibt und ich habe schon viele Tmemo geladen Danke !!
Guter Tip
Danke !!!!
Hier der Code für andere ...
Forum: Programmieren allgemein
by joehd,
13. Aug 2023
Hier mal die Beschreibung von Embarcadero
TEncoding (Delphi)
Description
This example determines the encoding of a source file and then writes the file in any encoding chosen. Use this project to create files of any encoding. This example requires two text edits and a combo box.
Code
procedure TForm1.Button1Click(Sender: TObject);
var
Forum: Programmieren allgemein
by joehd,
13. Aug 2023
Ach so das Einlesen mit der Standard Ladefile im Tmemo
procedure LoadFromFile(const FileName: string);
jetzt gefunden
procedure LoadFromFile(const FileName: string; Encoding: TEncoding); overload; virtual;
Jetzt fehlt nur noch welche Decoding ... ( wusste garnicht das es die überladene Funktion gibt )
Forum: Programmieren allgemein
by joehd,
13. Aug 2023
Hallo
danke für die Antwort die Datei wollte ich eigentlich nicht verändern ich kann mal ein Snipe anhängen der Originaldatei. Wenn ich sie mit dem DOS Editor öffne ist alles OK. siehe Anhang.
0330211FA Muster ä Ä ö Ö ü Ü ß
so sieht es im DOS Editor aus Windows XP ...
OK ich habe mal geschaut nach deinem Encoding da gibt es eine überladene Funktion
procedure LoadFromFile(const...
Forum: Programmieren allgemein
by joehd,
13. Aug 2023
Hallo !
also ich bin gerade an einem Programm welches DOS geschriebene Dateien einließt und verarbeitet.
Mein Problem ist das die Zeichensätze nicht stimmen und so die Umlaute nicht rüber kommen ...
Result := StringReplace(p_sLine,chr($84),'ä',);
Result := StringReplace(p_sLine,chr($94),'ö',);
Result := StringReplace(p_sLine,chr($81),'ü',);
Result :=...