Pliki binarne a string

RudyBestyj

2007-01-14T19:44:11+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 103

Jak zapisać plik bianrny do zmiennej string :>

Oleksy_Adam

2007-01-14T19:55:51+01:00

Rejestracja: dni
Ostatnio: dni

String to nic innego jak array of char a char to nic innego jak byte, a wczytanie tablicy bajtów to już chyba nie problem no nie?

RudyBestyj

2007-01-14T23:16:47+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 103

Może mały jednak jest bo nie wiem jak wczytać plik do tablicy bajtów ale poszukam dzięki ;-)

Oleksy_Adam

2007-01-15T15:27:20+01:00

Rejestracja: dni
Ostatnio: dni

Nie po mojemu, ale za to prosto

Kopiuj

var
 F :file of char; // zmienna plikowa
 c :Char;         // aktualnie wczytywany znak
 s :string;       // wiadomo
 i :Word;         // licznik pętli
 n :Word;         // ile bajtów odczytać

AssignFile(F, 'nazwa.pliku');
Reset(F);
s := '';
for i := 1 to n do
  begin
    Read(F, c);
    s := s+c;
  end;
CloseFile(Plik);