+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في نسخ ملف نصي إلى TListBox (/showthread.php?tid=1686)
مشكل في نسخ ملف نصي إلى TListBox - paix144 - 19-02-2010
السلام عليكم
إن أمكن أن يساعدني الإخوة في حل المشكل التالي
عندي ملف نصي و **** نسخ مجموعة معينة من النص يعني إذا كان عندي النص التالي
D4A
said
mouhamed
omar
samir
أنسخ فقط mouhamed,omar
إستعملت الكود التالي لكن لا يفي بالغرض
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var F: TextFile;
v: string;
stg:String;
fic:ShortString;
begin
v :='C:\Documents and Settings\Administrateur\Bureau\kheiro.txt';
AssignFile(F,v);
Reset(F);
repeat
Readln(F,fic);
stg:=copy(fic,1,7);
ListBox1.Items.Add(Stg);
until EOF(F);
CloseFile(F);
end;مشكل في نسخ ملف نصي إلى TListBox - zmx123 - 19-02-2010
كود :
var s:TStringList;
f:string;
begin
s:=TStringList.Create;
f:=ExtractFilePath(Application.ExeName)+ '\test.txt';
s.LoadFromFile(f);
lst1.Items.Add(s.Strings[2]);
lst1.Items.Add(s.Strings[3]);
s.Free;
end;مشكل في نسخ ملف نصي إلى TListBox - paix144 - 19-02-2010
بارك الله فيك أخي
مشكل في نسخ ملف نصي إلى TListBox - abdelmalek - 05-03-2010
السلام عليكم ورحمة الله وبركاته
اخي paix144 المشكل الذي وقعت فيه هو :
أنك تريد نسخ السطر 3 و 4 مباشرتا تم وضعه في listbox1 وهدا غير ممكن لي ان الملفات النوع txt لا تمليك تلك الخاصية (النسخ المباشر)
الحل :
لي نسخ ايي سطر يجب عليك معرفة رقم السط
لقد قمت بتصحيح المشكلة التي وقعت فيها
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var F: TextFile;
v:string;
fic:ShortString;
i:integer;
begin
ListBox1.Clear;
v :='C:\Documents and Settings\Administrateur\Bureau\kheiro.txt';
AssignFile(F,v);
Reset(F);
i:=0;
repeat
Readln(F,fic);
i:=i+1;
case i of
3:ListBox1.Items.Add(fic);
4:ListBox1.Items.Add(fic);
end;
until EOF(F);
CloseFile(F);
end;
استعملة المتغير i لمعرفة ارقام السطور
المثال في المرفق
لمعرفة كيفية التعامل مع الملفات النصية وغيرها إقراء كتاب الأخ TF6M http://www.delphi4arab.net/forum/showthread.php?tid=1102
بالتوفيق