![]() |
AW: Variablentypen bei ord() erzeugen Fehler
Zitat:
|
AW: Variablentypen bei ord() erzeugen Fehler
Delphi-Quellcode:
Viel Spass mit Update.
procedure TForm1.Button3Click(Sender: TObject);
var t: Textfile; NoahsFilename: String; begin // in dieser Zeile holen wir den verschluesselten String zurück dateistring := CryptFileToString(filename, StrToInt(Edit1.text)); showmessage(dateistring); // Noah's Speichern NoahsFilename := ExctractFilePath(ParamStr(0)) + 'Noah.txt'; // So landet Datei im Programm-Ordner der .exe Datei AssignFile(t, NoahsFilename); // Handle zum Ziel if not FileExists(NoahsFilename) then // hier frag ich ab ob datei bereits existiert oder nicht Rewrite(t) // hier erstelle ich eine neue falls noch keine da ist else Reset(t); // hier öffne ich vorhandene Datei WriteLn(t, dateistring); // hier schreib ich den String als Zeile CloseFile(t); // hier speicher ich alles und gebe Handle frei end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:15 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 by Thomas Breitkreuz