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

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

السلام عليكم
يمكنك استخدام 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

S.FATEH

Med-01