13-01-2020, 06:30 PM
13-01-2020, 08:47 PM
مرحبا , قم بعمل فورم يحتوي على 2 مكونات Edit و مكون Button
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة
في حدث الضغط على ال Button :
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة
function custom ( const s:string):string;
var i,k : integer;
begin
k := 0;
for i := 1 to length(s) do
begin
k := k + ord(s[i]);
end;
result := result + IntToHex(k,2);
end;
في حدث الضغط على ال Button :
edit2.text := custom(edit1.text);
14-01-2020, 12:07 PM
(13-01-2020, 08:47 PM)Rever7eR كتب : [ -> ]مرحبا , قم بعمل فورم يحتوي على 2 مكونات Edit و مكون Button
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة
شكرا لك عزيزي مودتي وتقديري
(13-01-2020, 08:47 PM)Rever7eR كتب : [ -> ]رحبا , قم بعمل فورم يحتوي على 2 مكونات Edit و مكون Button
أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص