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

السلام عليكم
إن أمكن أن يساعدني الإخوة في حل المشكل التالي
عندي ملف نصي و **** نسخ مجموعة معينة من النص يعني إذا كان عندي النص التالي
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;

و جزاكم الله كل خير

كود :
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;

بارك الله فيك أخي

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

اخي 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/showthr...p?tid=1102
بالتوفيق

paix144

zmx123

paix144

abdelmalek