rendered paste body procedure File_It(Fil : out File_Type;
Person : in Person_Type) is
-- Temp : File_Type;
begin
Put_Line(fil, "--------------------------------------------------");
Put(fil, Person.Efternamn(1..Person.Efternamn_Length));
Put(fil, " ");
Put(fil, Person.Fornamn(1..Person.Fornamn_Length));
Put(fil, " ");
Put(fil, Person.Gatuadress(1..Person.Gatuadress_Length));
Put(fil, " ");
Put(fil, Person.Postadress(1..Person.Postadress_Length));
Put(fil, " *** Intressen: ");
Put(fil, Person.Antal_Intressen, 0);
New_Line(Fil);
end File_It;
Person : Person_Type;
Fil : File_Type;
begin
Open(Fil, Append_File, "fil");
Get(Person);
File_It(Fil, Person);
Put("lol");
Get(Person);
File_It(Fil, Person);
Close(Fil);
end Labb6;