28-05-2016, 07:40 PM
مثال بسيط برمجته منذ مدة واردت ان اشاركه للافادة عسى ان يستفيد احد منه
http://www.mediafire.com/download/wlvpkw...4qh/FS.rar
http://www.mediafire.com/download/wlvpkw...4qh/FS.rar
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var FileStream : TFileStream ;
text : String;
begin
FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'delphi4arab.test',fmCreate);
text := ' any thing u want to save ^^ ';
FileStream.Write(pointer(text)^,Length(text));
FileStream.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var FileStream : TFileStream ;
text : String;
FileSize : integer;
begin
FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'delphi4arab.test',fmOpenRead);
FileSize := (FileStream.size );
Setlength(text,FileSize);
FileStream.read(pointer(text)^,FileSize);
memo1.text := text;
FileStream.Free;
end;