+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ممكن شرح اهاذ الكود و كيف استعمله ؟؟ (/showthread.php?tid=10201)
ممكن شرح اهاذ الكود و كيف استعمله ؟؟ - taraga2007 - 09-05-2019
السلام عليكم
ممكن شرح اهاذ الكود و كيف استعمله ؟
كود :
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