دخول

Imad Ch

مثال بسيط برمجته منذ مدة واردت ان اشاركه للافادة عسى ان يستفيد احد منه
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;

izako102 · 02-09-2017, 06:40 PM

شكرا على مثال البسيط

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة