وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٥

uses SysUtils, Classes;

procedure SaveFile(const FileName: TFileName;
const content: string);
begin
with TFileStream.Create(FileName, fmCreate) do
try
Write(Pointer(content)^, Length(content)); finally
Free;
end;
end;

نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :