AnsiString speichern und laden

[Sinspin]

Du hast schon recht, momentan kann da nix schiefgehen. Interessant wird es erst wenn die Sache komplexer wird und man vergisst den Unsinn zu entfernen.

[Willie1]

Hallo,
danke für eure Tipps, ich habe lange ein altes Delphi benutzt, darum kenne ich noch nicht alle Verbesserungen.

Warum AnsiString statt WideString?
Ich hatte mir vor vielen Jahren eine einfache Verschlüsselung ausgedacht. Ich verknüpfe das 2. Nibble des 1. Bytes mit dem 1. Nibble des 2. Bytes usw. und zum Schluss noch das erste mit dem letzten Nibble. Nur als Teil der Verschlüsselung! Mit WideStrings macht das keinen Sinn.
Ich will auf keinen Fall jetzt eine Diskussion über Verschlüsselung anfachen! Das war nur eine Idee, die ich damals hatte und will sie mal ausprobieren.

Willie.

PS. with TFenster.Create do
try Showmodal finally Free end benutze ich oft und sehe darin kein Problem, es spart Quelltext und ist übersichtlich.

[KodeZwerg]

Idee, verpack doch dein AnsiString in ein Base64 Encoding string.
Dann brauchst Du Dir um Unicode nicht mehr viele Gedanken machen.
Nur noch die eigene Lade/Speicher methode mit dem Base64 ergänzen, fertig.
(Es kann auch jede andere Base64 Lösung genommen werden, die ist halt bereits enthalten.)

Viel Erfolg!

[himitsu]

Also hast du keinen AnsiString (CP_ACP) sondern einen RawByteString, oder besser noch ein TBytes.

Und vorallem mit Letzterem bereitet das TFile.WriteAllBytes keine Probleme.

[Willie1]

Zitat von himitsu:

Also hast du keinen AnsiString (CP_ACP) sondern einen RawByteString, oder besser noch ein TBytes.

Und vorallem mit Letzterem bereitet das TFile.WriteAllBytes keine Probleme.

Du hast rect, ich brauche kein AnsiString. Memo.Text liefert jedoch WideString, bei dem jedes zweite Byte 0 ist. (war hier schon mal Thema) Gibt es einen Cast WideString to TByte? Ich bin nicht allein mit diesem Problem:https://support.industry.siemens.com.../219715?page=0 Inline-Variablen: ich muss immer noch dazulernen!

KodeZwerge, damit muss ich mich beschäftigen.

Willie.

[Rolf Frei]

Du kannst da eifnach eine Typecast auf AnsiString machen:

Delphi-Quellcode:

var 
  MeinAnsiStr: AnsiString;
  MeineBytes: TBytes;
begin
  MeinAnsiStr := AnsiString(Memo1.Lines.Text); // Kann zu Zeichenverlust führen, wenn ein Zeichen nicht im ANSI untersützt wird!
  MeineBytes := BytesOf(MeinAnsiStr);
  ...
end;

Du musst da aber aufpassen, denn wenn dein Memo Unicodezeichen enthält, die es im ANSI nicht gibt, wirst du da an der Stelle ein "?" haben. Da musst dir gründlich überlegen, ob du das da nicht anderst machen willst, damit keine Konvertierung Unicode/ANSI stattfinden muss.

Du könntest ja auch einfach alles als Unicode nutzen und verschlüsseln.

MeineBytes := BytesOf(Memo1.Lines.Text); In diesem Fall hast du ein ByteArray aus Unicodezeichen, also in der Regel sowas wie 40 00 45 00... Das könnte ja deine Routine auch auf Bytebene (wie bisher AnsiChar) vershlüsseln. StringOf(MeineBytes) macht dann übrigens das Gegenteil, also aus TBytes wieder ein String.

[himitsu]

Zitat:

Du musst da aber aufpassen, denn wenn dein Memo Unicodezeichen enthält

Jetzt rate mal, warum ich z.B. RawByteString genannt hatte.

Beim AnsiString (CP_ACP) ist vorallem besonders spaßig, dass bei unterschiedlichen Sprachen auch andere Zeichen codiert sind.
z.B. AnsiString-zu-String liefert ein anderes Ergebnis in Deutschland, Russland, China usw.



Ja, String/Char ist seit Delphi-2009 Unicode, genauer UnicodeString/WideChar mit 2 Byte pro Char.
Der WideString ist bissl was Anderes, hat aber die gleichen Chars drin.


TEncoding

Delphi macht es ähnlich, beim Cast mit Unicode von/zu ANSI.
Ein AnsiString und seine Nachfahren haben seit 2009 eine CodePage.

AnsiString = CP_ACP / 0
UTF8String = CP_UTF8 / 65001
RawByteString = $FFFF

Auch UnicodeString hat quasi eine CodePage 1200
https://stackoverflow.com/questions/...01-12000-12001




https://www.delphipraxis.net/206950-...ml#post1482784

[stifflersmom]

Zitat von Willie1:

PS. with TFenster.Create do
try Showmodal finally Free end benutze ich oft und sehe darin kein Problem, es spart Quelltext und ist übersichtlich.

Mit der Übersichtlichkeit ist's im Debugger dann aber nichts mehr...

[himitsu]

Inzwischen gibt es ja nun die Inline-Variablen.

Delphi-Quellcode:

var F := TMyForm.Create(nil);
try

finally
  F.Free;
end;