RichEdit

Hej!
Mam do Was pytanie :) Czy mozna wczytac do zmiennej zwartosc calego pliku? jezeli tak to w jaki sposob? :D oraz czy moge zapisac do pliku zawartosc komponentu RichEdit tak jak w memo? tzn. komponent.SaveTofile? itp.? prosze o odpowiedzi :)

var Strings : TStrings

RichEdit1.Lines.SaveToFile
Strings := TStrings.Create;
Strings := RichEdit1.Lines;

Poprawcie mnie jak cos zle napisalem, pisze z pamieci

ad 1)

procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);
procedure GetMem(var P: Pointer; Size: Integer);
AssignFile/Assign, Reset, CloseFile/Close... Wszystko w helpie. Integer to 2^31 bez znaku (2GB- chyba starczy). Tylko dla Delphi (sizeof(integer)=sizeof(longint)):

var 
  f:file;
  buf:packed array of byte; // char, shortint, boolean... cokolwiek jednobajtowego

assign(f,nazwa);
reset(f,1);
setlength(buf,filesize(f));
blockread(f,a[0],filesize(f));
close(f);

// albo 
var p:pointer;

getmem(p,filesize(f));
blockread(f,p^,filesize(f));