Zapisywanie i odczytywanie pliku przy pomocy strumienia (TFileStream) - lazarus delphi: Różnice pomiędzy wersjami
Przejdź do nawigacji
Przejdź do wyszukiwania
(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...”) |
|||
| (Nie pokazano 1 pośredniej wersji utworzonej przez tego samego użytkownika) | |||
| Linia 1: | Linia 1: | ||
== Zapisywanie == | == Zapisywanie == | ||
| Linia 29: | Linia 28: | ||
strum: TFileStream; | strum: TFileStream; | ||
tmp:string; | tmp:string; | ||
BytesRead:integer; | |||
</pre> | </pre> | ||
| Linia 41: | Linia 41: | ||
showmessage(tmp); //wyświetlanie zawartości strumienia w formie stringa | showmessage(tmp); //wyświetlanie zawartości strumienia w formie stringa | ||
</pre> | </pre> | ||
[[Category:Delphi]] | |||
Aktualna wersja na dzień 23:47, 31 sty 2011
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; BytesRead:integer;
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