25-10-2022, 12:59 PM
ملاحظة : ليس من الضروري الاعلان عن الاجراءات والدوال في التبويب Public او حتى Privte ويمكنك وضعها مباشرة في الوحدة
واستدعائها بشكل طبيعي
ملاحظة اخرى : اي حدث او برمجة تريدها ان ترى ةتصل هذا النوع من التعريف للاجراءات والدوال يجب ان تكون تحته
بمعنى اذا كان حدث استدعاء هذه الدالة فوقها فلن يتعرف عليها
واستدعائها بشكل طبيعي
كود :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
private
public
end;
var
Form1: TForm1;
implementation
function StrToHex(S: string):string;
var i: integer;
begin
Result := '';
for i := 1 to length(s) do
Result := Result + IntToHex(ord(s[i]), 2);
end;
end.ملاحظة اخرى : اي حدث او برمجة تريدها ان ترى ةتصل هذا النوع من التعريف للاجراءات والدوال يجب ان تكون تحته
بمعنى اذا كان حدث استدعاء هذه الدالة فوقها فلن يتعرف عليها
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)