delphi4arab منتديات دلفي للعرب

السلام عليكم

لدي ملف نصي يحتوي العديد من الأسطر من 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;

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

هل من الممكن استخدام 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.

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

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

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

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

كود :
ListBox1.ItemIndex;

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

selloumi

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

snyper

مهدي

selloumi

مهدي