type
pathbase = Record
workdir,localdisk,netdisk,ftp:TStringList; end;
type FileOFRecord = file of pathbase;
var
pathcopybase:pathbase;
pathfile:FileOFRecord;
if FileExists(GetCurrentDir+'\deletelisfile.dat') then
begin
AssignFile(plik,GetCurrentDir+'\deletelisfile.dat');
Reset(plik);
seek(plik,FileSize(plik));
write(plik,dane);
end
else begin
AssignFile(plik,GetCurrentDir+'\deletelisfile.dat');
Rewrite(plik);
write(plik,dane);
end;
To nie zdaje egzaminu ? Macie jakiś pomysł ?