[viv]

وعليكم السلام ورحمة الله و كل عام وانتم بخير
موضوعك اسهل من كل هذا الذي عرضناه

ضع نموذج واداتين Memo واحدة لتحميل النص فيها والاخرى لاستقبال النتيجة

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
 I:Integer;
begin
    memo2.Clear;
   for I := 0 to memo1.Lines.Count-1 do
   begin
    memo2.Lines.add('[' + I.ToString  + ']') ;
    memo2.Lines.add(memo1.Lines[I]) ;
   end;
end;
end.

التجربة الاداة الاولى فيها

كود :

C:17000:S7
C:12800:f4
C:13000:k8

الثانية صار فيها

كود :

[0]
C:17000:S7
[1]
C:12800:f4
[2]
C:13000:k8

لتحميل نص في الاداة الاولى

كود :

 memo1.Lines.LoadFromFile('');

لحفظ النص الذي في الاداة الثانية

كود :

    memo2.Lines.SaveToFile('');