Inkompatible Typen: AnsiChar und Char

[himitsu]

Ohh, übersehn.

Diese ShortStrings, also ShortString und String[123] sind immernoch ANSI-Records ... da hatte sich mit Delphi 2009 nix dran geändert.
Nur der LongString-Typ "String" wurde von AnsiString auf UnicodeString geändert.

Also ist diese Meldung natürlich korrekt, wenn man hier einen Char (sein D2009 ein WideChar) versucht an einen AnsiChar zuzuweisen.

[p80286]

Zitat von strom:

Delphi-Quellcode:

    SL := TStringList.Create;
  try
    SL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Password.dat');
    if SL.Count>0 then
      Edit6.Text:=SL[0];
        s := Edit6.Text;
    for y := 1 to Length(s) do s[y] := Char(23 xor Ord(c[y])); // Hier ist das Problem

Ich weiß leider nicht wies in Berlin um irgendwelche Zauberei steht aber meiner Meinung nach, sollte es in s := Edit6.Text; krachen, da s ein Shortstring ist und Edit1.Text eine Widechar.
Ich würde gleich einen Zeiger übergeben, der als PBytearray agiert,
(ich Liebe dieses verschämte herumhampeln um Char/WideChar) denn wie an anderer Stelle schon einmal jemand schrieb, es werden Bytes und keine Chars verschlüsselt.

Gruß
K-H

[Blup]

Wenn man einen String schon als Bytearray verarbeitet, kann man auf Konvertierung auch ganz verzichten:

Delphi-Quellcode:

for y := 1 to Length(s) do
  c[y] := 23 xor c[y];

[p80286]

Und dann noch statt Length SizeOf verwenden, dann ist man auf der sicheren seite

Gruß
K-H

[Fritzew]

Zitat von p80286:

Und dann noch statt Length SizeOf verwenden, dann ist man auf der sicheren seite

Das geht aber in die Hose. Sizeof(Shortstring) liefert die Länge des Buffers nicht die Länge des darin enthaltenen Strings

Fritz

[nahpets]

Warum über die Länge des Strings laufen, wenn man das Array verarbeitet?

War eher das gemeint?
for y := 1 to SizeOf(c) do c[y] := 23 xor c[y]; Nur, da c absolut an s liegt und s irgendwas zwischen 1 und 255 Zeichen enthalten kann, wäre ein SizeOf(c) nicht wirklich hilfreich, da man ja dann auch Bytes verarbeitet, die im aktuellen String nicht belegt sind.

Also dürfte Length(s) hier schon die sinnvollere Variante sein.

[Mavarik]

Berlin 10.1...

Strings haben WORDs und nicht bytes!
Das gilt auf für Stringlisten!

S := Edit1.Text; Wenn S ein Short ist, wird es vom compiler convertiert...

Also alle Meldungen richtig...

[mkinzler]

S := Edit1.Text; Wenn S ein Short ist, wird es vom compiler convertiert... Funktioniert aber nur, wenn sich wirklich nur Ansi im Unicodestring befindet.

[Mavarik]

Zitat von mkinzler:

S := Edit1.Text; Wenn S ein Short ist, wird es vom compiler convertiert... Funktioniert aber nur, wenn sich wirklich nur Ansi im Unicodestring befindet.

Convertiert bedeutet keine Compiler-Fehlermeldung... "nur ne Warnung"... Vom Inhalt hat keiner gesprochen!