دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

انشاء ملف نصي بدلفي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

انشاء ملف نصي بدلفي

مُساهمة  alla في 2/1/2017, 11:30 pm

انشاء ملف نصي بدلفي

كود البرنامج

الرمز:


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 مرات (السبب : تصحيح خطأ)

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 684
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى