Deinen Einträgen fehlen die Zeilenumbrüche. Writeln kann die nur bei reinen Textdateien (var File : Text
automatisch schreiben. Hast Du das genau so deklariert? Wenn nicht, schreibst Du eine binäre Datei, dann musst du die Zeilenumbrüche ($0D$0A) jedesmal gesondert an Deinen String anhängen.
Übrigens wäre es hilfreich, wenn Du Deinen Quelltext durch sinnvolles Einrücken etwas übersichtlicher machen würdest:
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);
end;
Grüße, Messie