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

[selloumi]

السلام عليكم

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

[B.M.AbdelAziZ]

لم افهم جديا ما تقصد
لكن جرب استخدام مكونين 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.php?showtopic=99286&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;



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