Hab weiter im Board gelesen.
Folgenden Code hab ich ohne Erfolg zum Einlesen der Datei probiert:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
Datei: Textfile;
Temp: String;
begin
AssignFile(Datei,edit11.text);
Reset(Datei);
while (not Eof(Datei)) do
begin
Readln(Datei, Temp);
ListBox1.Items.Add(Temp);
end;
Closefile(Datei);
end;
Anscheinend wird die Datei nicht zeilenweise eingelesen bzw die Sonderzeichen verursachen immernoch den Zeilenumbruch ...
danach hab ich listbox2.savetofile(edit11.text); in ...
Delphi-Quellcode:
var
Datei: Textfile;
Temp: String;
i: integer;
begin
AssignFile(Datei, edit11.text);
ReWrite(Datei); //öffnet die Datei zum Schreiben
for i := 0 to ListBox2.Count-1 do
begin
WriteLn(Datei, Listbox2.items[i]);
end; //schreibt noch eine Zeile
CloseFile(Datei); //schließt die Datei
... geändert, aber ohne Erfolg. Anscheinend liegt es am Einlesen ...
Nun hab ich was probiert:
Nur in der Listbox bleibt die Editzeile in eine Zeile gespeichert.
Hier mal die ganze Vorgehensweise von mir.
Ich hab eine Listbox1 wo die Datenliste unverschlüsselt vorliegt.
Mit dem Code im ersten Post verschlüssele und entschlüssele ich die erste Zeile.
Falls das geklappt hat, füge ich die verschlüsselte Zeile der Listbox2 hinzu.
Dies wiederhole ich solange bis alle Listbox1.items verschlüsselt in Listbox2 vorliegen.
Listbox2 speichere ich dann.
Ich habs mit savefileto und assignfile probiert.
Wenn ich die Datei im Windows-Editor öffene wird die Datei ordnungsgemäß ausgelesen.
Wenn ich die gleiche Datei in Wordpad öffne kommt der Zeilenumbruch zustande.
Somit wird die Datei in die Listbox2 wie bei Wordpad eingelesen und nicht wie in Notepad.
Gibt es eine Möglichkeit die Datei wie bei Notepad einzulesen und dann Zeilenweise in die Listbox2 einzufügen, da ich ja die Listbox2 wieder zeilenweise entschlüssele.
... es kann auch sein, das das zeilenweise ver/entschlüsseln garnicht geht und ich mich total auf dem Holzweg befinde ...