انشاء ملف نصي بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
انشاء ملف نصي بدلفي
انشاء ملف نصي بدلفي
كود البرنامج
كود البرنامج
- الكود:
unit Unit1;// delph.forumalgerie.net
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls,
Forms,
Dialogs;// delph.forumalgerie.net
type
TForm1 = class(TForm)
procedure CreateFile1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;// delph.forumalgerie.net
implementation
{$R *.DFM}
uses
StdCtrls, Buttons;// delph.forumalgerie.net
var
CreateFile1:TBitBtn;
BitBtn2:TBitBtn;
Edit1:TEdit;
Edit2:TEdit;
procedure TForm1.CreateFile1Click(Sender: TObject);
const
FileName = 'TestFile.txt';
var
F: Textfile;
s: string;
begin
if Edit1.text <> '' then
begin
AssignFile(F, FileName);
ReWrite(F);
WriteLn(F, Edit1.text);
CloseFile(F);
end;
if FileExists(FileName)then
begin
if Edit1.text = '' then
AssignFile(F, FileName);
Reset(F);
ReadLn(F, s);
Edit2.text := s;
CloseFile(F);
end;// delph.forumalgerie.net
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.bidimode:=bdLeftToRight;
form1.font.charset:=ARABIC_CHARSET;
form1.font.name:='arial black';
form1.font.size:=9;
form1.font.style:=[fsbold];
form1.position:=poScreenCenter;
form1.caption:='Form1';
form1.left:=192;
form1.top:=114;
form1.height:=268;
form1.width:=366;
form1.cursor:=crDefault;
CreateFile1:=TBitBtn.Create(self);
CreateFile1.parent:=form1;
CreateFile1.Left:=64;
CreateFile1.top:=96;
CreateFile1.height:=33;
CreateFile1.width:=145;
CreateFile1.cursor:=crHandPoint;
CreateFile1.bidimode:=bdLeftToRight;
CreateFile1.font.charset:=ARABIC_CHARSET;
CreateFile1.font.name:='arial black';
CreateFile1.font.size:=8;
CreateFile1.font.color:=clWindowText;
CreateFile1.font.style:=[fsbold];
CreateFile1.caption:='انشاء ملف';
CreateFile1.Kind := bkOK;
BitBtn2:=TBitBtn.Create(self);
BitBtn2.parent:=form1;
BitBtn2.Left:=24;
BitBtn2.top:=160;
BitBtn2.height:=25;
BitBtn2.width:=89;
BitBtn2.cursor:=crHandPoint;
BitBtn2.bidimode:=bdLeftToRight;
BitBtn2.font.charset:=ARABIC_CHARSET;
BitBtn2.font.name:='arial black';
BitBtn2.font.size:=8;
BitBtn2.font.color:=clWindowText;
BitBtn2.font.style:=[fsbold];
BitBtn2.caption:='&اغلاق';
BitBtn2.Kind := bkClose;
Edit1:=TEdit.Create(self);
Edit1.parent:=form1;
Edit1.Left:=32;
Edit1.top:=24;
Edit1.height:=21;
Edit1.width:=193;
Edit1.cursor:=crDefault;
Edit1.bidimode:=bdLeftToRight;
Edit1.font.charset:=ARABIC_CHARSET;
Edit1.font.name:='arial black';
Edit1.font.style:=[fsbold];
Edit1.text:='';
Edit2:=TEdit.Create(self);
Edit2.parent:=form1;
Edit2.Left:=32;
Edit2.top:=56;
Edit2.height:=21;
Edit2.width:=193;
Edit2.cursor:=crDefault;
Edit2.bidimode:=bdLeftToRight;
Edit2.font.charset:=ARABIC_CHARSET;
Edit2.font.name:='arial black';
Edit2.font.style:=[fsbold];
Edit2.text:='';
CreateFile1.OnClick := CreateFile1Click;
end;// delph.forumalgerie.net
procedure TForm1.FormDestroy(Sender: TObject);
begin
CreateFile1.Free;// delph.forumalgerie.net
BitBtn2.Free;
Edit1.Free;
Edit2.Free;
end;// delph.forumalgerie.net
end.
عدل سابقا من قبل alla في 14/1/2017, 6:11 pm عدل 1 مرات (السبب : تصحيح خطأ)
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» كيفية انشاء ملف DLL واستدعائه بدلفي
» كيف تعمل مشروع بدلفي
» تغيير لغة بدلفي
» كيف تنشأ دالة بدلفي
» كيفية استعمال شرط بدلفي
» كيف تعمل مشروع بدلفي
» تغيير لغة بدلفي
» كيف تنشأ دالة بدلفي
» كيفية استعمال شرط بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى