Zapisywanie i odczytywanie pliku przy pomocy strumienia (TFileStream) - lazarus delphi

Z Podręcznik Administratora by OPZ SGU
Wersja z dnia 20:32, 12 gru 2010 autorstwa Adminka23 (dyskusja | edycje) (Utworzył nową stronę „ == Zapisywanie == Zmienne <pre> strum: TFileStream; tmp:string; </pre> Kod <pre> tmp:='mój strumień'; strum := TFileStream.Create('plik.bin', fmCreate); strum.W...”)
(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
Przejdź do nawigacji Przejdź do wyszukiwania

Zapisywanie

Zmienne 

strum: TFileStream;
tmp:string;

Kod 

tmp:='mój strumień';
strum := TFileStream.Create('plik.bin', fmCreate);
strum.WriteBuffer(Pointer(tmp)^,Length(tmp));
strum.Free;



Odczytywanie

Zmienne 

strum: TFileStream;
tmp:string;

Kod 

strum := TFileStream.Create('plik.bin', fmOpenRead);
SetLength(tmp, strum.size);
BytesRead := strum.Read(tmp[1], strum.size);
SetLength(tmp, BytesRead);
strum.Free;           

showmessage(tmp);  //wyświetlanie zawartości strumienia w formie stringa
Źródło: „https://wiki.opzsgu.pl/index.php?title=Zapisywanie_i_odczytywanie_pliku_przy_pomocy_strumienia_(TFileStream)_-_lazarus_delphi&oldid=806”