دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
دلفي تعليم

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

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

دلفي تعليم :: منتديات البرمجة :: دلفي

اذهب الى الأسفل

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

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

ali
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

دلفي تعليم :: منتديات البرمجة :: دلفي

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