[fouadhdfouad]

(29-08-19, 08:14 PM)viv كتب : هل تقصد الرقم اول مثل 1700

كود :

C:17000:S7

هذا الرقم لا يوجد في الملف الذي قراءته
بنفس الطريقة السابقة يمكنك اضافته بحسب من اين جئت في السطر

كود :

memo2.Lines.add('[' + I.ToString  + ']') ;

سامحني اخي المشرف اكرمك الله لقد اتعبتك معي

لقد قمت بستعمال هدا الكود لسطر واحد

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
 List:TStrings;
begin
 memo2.Clear;
 List := TStringList.Create;
 try
   ExtractStrings([' '], [], PChar(memo1.Lines[i]), List);
   memo2.Lines.add(List[2]+' '+ List[1]+' '+List[4]+' '+List[3]);
   finally
   List.Free;
 end;
end;

end.      

هده صورة توضحية للناتج

عند اضافة اسطر كثيرة يعطيني خطا