Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#12

AW: Inkompatible Typen: AnsiChar und Char

  Alt 5. Sep 2016, 13:24
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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat