+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اريد انشاء زر لنسخ من خارج البرنامج ولصق داخل البرنامج (/showthread.php?tid=12108)
اريد انشاء زر لنسخ من خارج البرنامج ولصق داخل البرنامج - Med-01 - 07-10-2022
<p>السلام علكيم <br>لدي ملف text اريد نسخ منه تلات اسطر متلا وعند الذهاب الى البرنامج اضغظ على زر يتم اللصق في memo<br>استخدمت <br>Memo1.CopyToClipboard;<br> Memo1.PasteFromClipboard;<br><br><br>لكنها لم تنفع لان النسخ من خارج البرنامج وهذه الدوال تعمل فقط لنسخ ولصق داخل البرنامج ك نسخ من memo1 الى memo2</p><p><br></p>
RE: اريد انشاء زر لنسخ من خارج البرنامج ولصق داخل البرنامج - S.FATEH - 07-10-2022
السلام عليكم
يمكنك استخدام 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;
RE: اريد انشاء زر لنسخ من خارج البرنامج ولصق داخل البرنامج - Med-01 - 07-10-2022
في ميزان حسناتك ان شاء الله
جزاك الله خيراا