كيفيةاستخراج أسطر من ملف نصي

[selloumi]

السلام عليكم

لدي ملف نصي يحتوي العديد من الأسطر من 1 مثلا إلى 100
كيف يمكن اظهار اسطر محددة منه في Memo مرة من 1 إلى 4 و مرة من 5 إلأى 12 إلى آخره و هذا طبعا بواسطة ListBox او زر Button ؟
و شكرا جزيلا أخوكم السلومي
و دمتم في خدمة الموقع و الاسلام

[محمد عبد العزيز]

لم افهم جديا ما تقصد
لكن جرب استخدام مكونين Memo
الأول نستخدمه لعرض الأسطر المختارة
والثاني يكون مخفي بتغيير الخاصية Visible الى False
ونحمل به الملف كاملا لكي يكون التعامل مع المحتوى اسرع

كود :

Memo2.Lines.LoadFromFile('C:\File.txt');

ولاظهار اسطر محددة يمكنك كتابة شيئ مثل هذا لاظهار الاسطر من 1 الى 4

كود :

var i : integer; begin Memo1.Clear; for i:=1 to 4 do Memo1.Lines.Add(Memo2.Lines[i]); end;

والسلام عليكم ورحمة الله

[snyper]

هل من الممكن استخدام TfileStream

بدلا عن memo2

http://www.arabteam2000-forum.com/index....hl=TStream

[مهدي]

و عليكم السلام و رحمة الله

لاحظ هذا الكود

كود :

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure ListBox1DblClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Items.LoadFromFile('نص.txt'); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin ListBox1.ItemIndex; Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]); end; end.

لا تنسى أن تسمي الملف النصي بـ"نص" و قم بوضعه في نفس مجلد المشروع.

[selloumi]

لكم جزيل الشكر و دمتم في خدمة الموقع .
ان الله في عون العبد ما دام العبد في عون أخيه

[مهدي]

أهلا و سهلا أخي الكريم

ملاحظة بسيطة: عليك بحذف السطر التالي

كود :

ListBox1.ItemIndex;

لا فائدة من هذا السطر لقد سهوت في إضافته.