W FAQ jest bardzo ale to bardzo fajna wskazówka jak dokleic stringa do pliku. Bardzo mi się ona przydała, ale chciałbym ją troszkę przerobić aby zamiast tego stringu było można dokleić rekord.

Przerabiałem, szukałem, próbowałem, poprawiałem ale nie moge no za chiny, nawet nie moge dojśc aby sie chociaż mi skompilowało.

czy da się zamiast tego stringu dokleic rekord. Jesli tak to będę niezmiernie wdzięczny.


procedure SaveToExe(FName, Str: string); 
var 
  F : file of Byte; 
  i : Integer; 
begin 
  AssignFile(F, FName); 
  Reset(F); 
  try 
    Seek(F, FileSize(F) - SizeOf(i)); 
    BlockRead(F, i, SizeOf(i)); 
    if (i < SizeOf(i)) or (i > FileSize(f)) then i := 0; 
    Seek(F, FileSize(F) - i); 
    Truncate(F); 
    BlockWrite(F, Str[1], Length(Str)); 
    i := Length(Str) + SizeOf(i); 
    BlockWrite(F, i, SizeOf(i)); 
  finally 
    CloseFile(F); 
  end; 
end; 

function LoadFromExe(FName: string): string; 
var 
  F : file of Byte; 
  i : Integer; 
begin 
  Result := ''; 
  AssignFile(F, FName); 
  FileMode := fmOpenRead; 
  Reset(F); 
  try 
    Seek(F, FileSize(F) - SizeOf(i)); 
    BlockRead(F, i, SizeOf(i)); 
    if (i < SizeOf(i)) or (i > FileSize(f)) then Exit; 
    Seek(F, FileSize(F) - i); 
    SetLength(Result, i - SizeOf(i)); 
    BlockRead(F, Result[1], Length(Result)); 
  finally 
    CloseFile(F); 
  end; 
end;