ممكن شرح اهاذ الكود و كيف استعمله ؟؟
#1
السلام عليكم
ممكن شرح اهاذ الكود و كيف استعمله ؟
كود :
procedure Tliste_dossier.SimpleDataSet1AfterOpen(DataSet: TDataSet);
var
i: integer;
f: TField;
begin
for i := 0 to Dataset.Fields.Count-1 do
   begin
     f := Dataset.Fields[i];
     f.ongettext := Self.OnGetText;
   end;
end;

Procedure Tliste_dossier.OnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
Begin
text := Utf8ToString(sender.asString);
End
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف