![]() |
Inkompatible Typen: AnsiChar und Char
Hallo,
möchte das codierte Passwort wieder in klartext darstellen. Jetzt kommt die fehlermeldung Inkompatible Typen AnsiChar und Char?
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 |
AW: Inkompatible Typen: AnsiChar und Char
Wie sind denn y, s und c definiert?
|
AW: Inkompatible Typen: AnsiChar und Char
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i :integer; SL: TStrings; s: String[255]; c: array[0..255] of Byte absolute s; |
AW: Inkompatible Typen: AnsiChar und Char
Versuchs mal mit
Delphi-Quellcode:
Das "Gegenstück" von Ord ist Chr und nicht Char.
for y := 1 to Length(s) do s[y] := Chr(23 xor Ord(c[y]));
|
AW: Inkompatible Typen: AnsiChar und Char
Die wichtigsten Infos hat jemand vergessen:
Welche Delphi-Verison und wie ist S deklariert? |
AW: Inkompatible Typen: AnsiChar und Char
leider bleibt die Fehlermeldung gleich :-(
Starter Version Berlin 10.1 |
AW: Inkompatible Typen: AnsiChar und Char
Irgendwie erscheint mir das Ganze nicht so recht sinnvoll.
s ist ein String und c ist ein Array an der Adresse von s. Damit sind s und c inhaltlich gleich. Eigentlich hätte ich hier eher sowas erwartet:
Delphi-Quellcode:
for y := 1 to Length(s) do s[y] := Chr(23 xor Ord(s[y]));
|
AW: Inkompatible Typen: AnsiChar und Char
ja, werde noch ein wenig testen!
danke für Eure Hilfe! |
AW: Inkompatible Typen: AnsiChar und Char
Zitat:
Das wurde immernoch nicht gesagt, aber nach der Berlin-Info denke ich fast an einen AnsiString. :roll: |
AW: Inkompatible Typen: AnsiChar und Char
Zitat:
Delphi-Quellcode:
Ist das jetzt unter Berlin anders als unter Delphi 7? Kenne nur das "alte" Delphi ;-)
s : String[255];
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz