+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفيةاستخراج أسطر من ملف نصي (/showthread.php?tid=175)
كيفيةاستخراج أسطر من ملف نصي - selloumi - 04-05-2008
السلام عليكم
لدي ملف نصي يحتوي العديد من الأسطر من 1 مثلا إلى 100
كيف يمكن اظهار اسطر محددة منه في Memo مرة من 1 إلى 4 و مرة من 5 إلأى 12 إلى آخره و هذا طبعا بواسطة ListBox او زر Button ؟
و شكرا جزيلا أخوكم السلومي
و دمتم في خدمة الموقع و الاسلام
لدي ملف نصي يحتوي العديد من الأسطر من 1 مثلا إلى 100
كيف يمكن اظهار اسطر محددة منه في Memo مرة من 1 إلى 4 و مرة من 5 إلأى 12 إلى آخره و هذا طبعا بواسطة ListBox او زر Button ؟
و شكرا جزيلا أخوكم السلومي
و دمتم في خدمة الموقع و الاسلام
كيفيةاستخراج أسطر من ملف نصي - محمد عبد العزيز - 04-05-2008
لم افهم جديا ما تقصد
لكن جرب استخدام مكونين Memo
الأول نستخدمه لعرض الأسطر المختارة
والثاني يكون مخفي بتغيير الخاصية Visible الى False
ونحمل به الملف كاملا لكي يكون التعامل مع المحتوى اسرع
كود :
Memo2.Lines.LoadFromFile('C:\File.txt');كود :
var
i : integer;
begin
Memo1.Clear;
for i:=1 to 4 do
Memo1.Lines.Add(Memo2.Lines[i]);
end;والسلام عليكم ورحمة الله
كيفيةاستخراج أسطر من ملف نصي - snyper - 05-05-2008
هل من الممكن استخدام TfileStream
بدلا عن memo2
http://www.arabteam2000-forum.com/index.php?showtopic=99286&hl=TStream
كيفيةاستخراج أسطر من ملف نصي - مهدي - 05-05-2008
و عليكم السلام و رحمة الله
لاحظ هذا الكود
كود :
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 - 05-05-2008
لكم جزيل الشكر و دمتم في خدمة الموقع .
ان الله في عون العبد ما دام العبد في عون أخيه
كيفيةاستخراج أسطر من ملف نصي - مهدي - 05-05-2008
أهلا و سهلا أخي الكريم
ملاحظة بسيطة: عليك بحذف السطر التالي
كود :
ListBox1.ItemIndex;لا فائدة من هذا السطر لقد سهوت في إضافته.