[Erledigt] Speichern von RCx-Zeichen in Textdatei

[blackfin]

Vorsicht, fui-tak, das geht in die Hose:
ord und chr funktionieren nur bei einem Wertebereich von 0-255, also nur bei ANSI-Chars, bei UniCode-Zeichen dagegen, die über diesem Wertebereich liegen, knallt es.
Also ist das defintiv nicht der Weg zu gehen.


Edit: Uhm...da habe ich mich wohl getäuscht. Danke für den Hinweis, Himitsu. Aber merkwürdig, ich war mir egentlich sicher, dass ich mal eine Grenzenverletzung hatte von ord / chr bei Unicode-Zeichen (D2009)...hmm

Aber, bevor ich evtl. Speicher-Möglichkeiten beschreibe:
Welche Delphi-Version benutzt du, Root2k?

[himitsu]

Ord und Chr (nicht Char) sind virtuelle Funktionen

Chr = erstellt einen Char und nimmt jeden Integertypen an
Ord = erstellt einen Integer und nimmt AnsiChar, WideChar/Char und andere ordinale Typen, wie z.B. ENUMs entgegen.

Und ja, die beiden "Funktionen" verstehen auch Unicode.

Den Text binär in einen Stream und darüber abspeichern.

Die so kodierten Daten sind nunmal kein "Text" mehr und enthalten (auf Text/Strings bezogen ) Steuerzeichen und eventuell Zeichen, welche je nach Zeichensatz unterschiedlich interpretiert werden.

[Root2k]

Danke erstmal für die ganzen Antworten.

Zitat von blackfin:

Welche Delphi-Version benutzt du, Root2k?

Sorry, hab ich vergessen in meinem Profil anzugeben.
Ich programmiere mit Delphi XE (Enterprise).

Danke auch für den Hinweis mit Ord und Chr. Ich probiere jetzt auf jeden Fall mal aus was ich damit alles anstellen kann.

[blackfin]

Schreibe die Datei doch einfach über einen Stream:

Delphi-Quellcode:

procedure Save(CryptText: string; OutFileName: string);
var
  FStream: TStream;
begin
  ForceDirectories(ExtractFilePath(OutFileName)) ;
  
  if FileExists(OutFileName) then
  begin
   FStream := TFileStream.Create(OutFileName,fmOpenReadWrite) ;
   FStream.Seek(0,soFromEnd) ;
  end
  else  
   FStream := TFileStream.Create(OutFileName,fmCreate) ; 
  
  FStream .Write(Pointer(CryptText)^,Length(CryptText)* SizeOf(Char)) ;  
  FreeAndNil(FStream) ;  
end;

[Root2k]

Ok, werde ich auf jeden Fall mal probieren.
Das hab ich vorher auch schon mal (in leicht abgeänderter Version) versucht, aber ich hab immer einen I/O-Error erhalten.

Ich schau mal was ich hinbekomme und meld mich hier dann nochmal.

[p80286]

?welchen I/O-error?
mit welchem Source?

Gruß
K-H

[Root2k]

Das kann ich dir jetzt leider nicht mehr so genau sagen.
Ich denke aber dass das Problem folgendes war:
Ich hab den Zugriff auf die Datei vermutlich nicht an der richtigen Stelle geschlossen und somit wollte das Programm von 2 Stellen auf eine Datei zugreifen. Das hat vermutlich die Probleme verursacht. Da gab es dann immer eine Zugriffsverletzung.

Jetzt scheint das Ganze aber zu funktionieren.
Ist zwar noch nicht zu 100% perfekt aber ich taste mich ran.