اريد انشاء زر لنسخ من خارج البرنامج ولصق داخل البرنامج

[Med-01]

<p>السلام علكيم&nbsp;<br>لدي ملف text اريد نسخ منه تلات اسطر متلا وعند الذهاب الى البرنامج اضغظ على زر يتم اللصق في memo<br>استخدمت&nbsp;<br>Memo1.CopyToClipboard;<br> Memo1.PasteFromClipboard;<br><br><br>لكنها لم تنفع لان النسخ من خارج البرنامج وهذه الدوال تعمل فقط لنسخ ولصق داخل البرنامج ك نسخ من memo1 الى memo2</p><p><br></p>

[S.FATEH]

السلام عليكم
يمكنك استخدام TStringList او TextFile
امثلة

PHP كود :

var
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  try
    StringList.LoadFromFile('c:\TextFile.txt');
    Memo1.Lines.Add(StringList[0]);
    Memo1.Lines.Add(StringList[1]);
    Memo1.Lines.Add(StringList[2]);
  finally
    StringList.Free;
  end;
end;

var
  F: TextFile;
  S: string;
  I: Integer;
begin
  AssignFile(F, 'c:\TextFile.txt');
  Reset(F);
  for I := 0 to 2 do
  begin
    Readln(F, S);
    Memo1.Lines.Add(S);
  end;
  CloseFile(F);
end; 


[Med-01]

في ميزان حسناتك ان شاء الله
جزاك الله خيراا