Seas,
ich habe ein Programm geschrieben dass Passwörter abspeichern soll
dieses System benutze ich um AllPW (listbox mit Passwörtern) und PWInfoData (Array of Array of String) abzuspeichern
Delphi-Quellcode:
var
i:integer;
k: integer;
Temp1,Temp2,line:String;
begin
AssignFile(Haupt.Data,ExtractFilePath(Application.ExeName)+'PWDATA.PW');
rewrite(Data);
i:=0;
k:=0;
repeat
WriteLn(Haupt.Data,Code(AllPW.Items[i],CodeFak));
repeat
WriteLn(Haupt.Data,Code('ÿ'+PWInfoData[i][k],CodeFak));
k:=k+1;
until PWInfoData[i][k]='';
i:=i+1;
until i>=AllPW.items.Count-1;
closeFile(Haupt.Data);
Eigentlich sollte das dann so ausgegeben werden (im Dokument):
Passwort1
ÿInfo1
ÿInfo2
ÿInfo3
Passwort2
ÿInfo1
ÿInfo2
...
aber es wird eher so ausgegeben
Passwort1
Passwort1ÿInfo1
Passwort1ÿInfo1ÿInfo2 .. usw.
was muss ich ändern damit das funkt?
Zitat:
//edit: ich möchte hiermit auf mein anderes Problem verweißen
Problem