Die Suche ergab 5 Treffer

von Ullman
Mo 11. Mai 2015, 23:17
Forum: Freepascal
Thema: UTF8 umwandeln
Antworten: 25
Zugriffe: 11405

Re: UTF8 umwandeln

Hallo marcov,

ich habe eine kleine Weile über deine Antworten auf "meinen" Teil nachgedacht: ich denke du hast in der Tat recht.
Es ist nicht die Aufgabe des Compilers alle Antworten auf alle denkbaren Fragen zu kennen...

Dumm an diesem konkreten Fall ist nur, dass es ziemlich frustierend ist ...
von Ullman
Mo 11. Mai 2015, 22:50
Forum: Freepascal
Thema: UTF8 umwandeln
Antworten: 25
Zugriffe: 11405

Re: UTF8 umwandeln


Dein BOM weist darauf hin, dass deine Datei in UTF-16 (LE) kodiert ist.
Eine Stringlist kann damit nichts anfangen, deshalb hilft hier TCharEncStream. Es nimmt dir in diesem Fall auch die Analyse ab.
Schau dir die Demo an. Du kannst damit alle Textdateien öffnen. Bei 8Bit Ansi kann es natürlich ...
von Ullman
Sa 9. Mai 2015, 15:42
Forum: Freepascal
Thema: UTF8 umwandeln
Antworten: 25
Zugriffe: 11405

Re: UTF8 umwandeln

Danke Theo,
ich werde mich damit beschäftigen und lasse dich wissen wie es lief :-)

Prinzipiell: gibt es Strategien für den Umgang mit Text-Dateien?
Ich meine, muss man jetzt sogar "dämliche" Text-Dateien erst untersuchen und analysieren bis man weiß, wie man darauf zugreifen kann?
Müsste das nicht ...
von Ullman
Sa 9. Mai 2015, 01:16
Forum: Freepascal
Thema: UTF8 umwandeln
Antworten: 25
Zugriffe: 11405

Re: UTF8 umwandeln

Hi,
Mathias möchte gerne chinesische Schriftzeichen haben...und ich werde sie nicht los!
Ich habe eine Text-Datei, die, mit dem Hex-Editor betrachtet mit FFFE beginnt.
Eine BOM-Kennung - OK.
Ich möchte mit Hilfe von TStringList die Datei einlesen und verändern.
Egal was ich anstelle: mein StringList ...
von Ullman
Fr 23. Mai 2014, 23:04
Forum: Sonstiges
Thema: Algorithmus für Verschlüsselung von Texten
Antworten: 38
Zugriffe: 23406

Re: könntest du mit XOR-Verschlüsselung erledigen...

könntest du mit XOR-Verschlüsselung erledigen...

function Xor_Crypt(s: string; passzahl: Integer; decode: Boolean):string;
var
i, c, x: Integer;
begin
if decode then
x := -1
else
x := 1;
RandSeed := passzahl;
Result := '';
for i := 1 to length(s) do
begin
c := ord(s[i]);
if c in ...