Hallo liebe DelphiPraxis.net-Community.
Es freut mich zu sehen, dass auch noch viele andere gerne mit Delphi arbeiten.
Leider bin ich noch ziemlicher Anfänger in diesem Gebiet. Die gröbsten Grundlagen
kenne ich schon, in die Feinheiten werde ich noch gehen.
Nun aber zu meiner eigentlichen Frage:
Ich will ein Programm machen, welches eine Datei öffnet und mit der XOR Methode entschlüsselt.
Dieser entschlüsselte Text soll danach in einem Memo angezeigt werden.
Hier der Quellcode:
Delphi-Quellcode:
begin
if not OpenDialog1.Execute then exit;
fsize:=GetFileSize(OpenDialog1.FileName); <--Hier weiß ich nicht weiter!
assignfile(f,OpenDialog1.FileName); reset(f,1);
blockread(f,c,fsize);
for k:=1 to fsize do c[k]:=chr(ord(c[k]) xor 123);
closefile(f);
assignfile(f,OpenDialog1.FileName+'.txt'); rewrite(f,1);
blockwrite(f,c,fsize);
memo1.lines.LoadFromFile(OpenDialog1.FileName);
end;
Funktioniert soweit auch alles wunderbar, nur bis auf diese Zeile
fsize:=GetFileSize(OpenDialog1.FileName);
Danach heißt es "Inkompatible Typen Cardinal und TFileName".
Klar weiß ich, was "inkompatibel" bedeutet, aber wie kriege ich diesen fehler weg?
Die Variablen sind sowit auch richtig festgelegt.
Oder gibt es noch einen anderen (einfacheren) Weg, um die Char-Anzahl zu ermitteln?
Wenn ja, bitte erklärt es ausführlich, denn ich bin ja noch nicht so weit
Ich hoffe ebenfalls, dass ich ins richtige Forum gepostet habe.
In der Suche habe ich keine passende Antwort gefunden, leider, und ich hoffe, dass das auch stimmt^^
Ich glaube, ich stehe auf dem Schlauch...
mfG,
Merchator
Achja, ich benutze Borland Delphi 7, aber ich glaube, dies ist weniger von Bedeutung
