下载地址:
下载地址1(本站为飞网专业下载站,域名:down.cfei.net)
资源简介:
Function FileLenght(sFn:String):Integer;Var iFileHandle: Integer;begin {$I-} Result:=0; if not FileExists(sFn) then Exit; iFileHandle := FileOpen(sFn, fmOpenRead); try Result:=FileSeek(iFileHandle,0,2); finally FileClose(iFileHandle); end;end;procedure TFrmCommSetup.ShowText(s:String);Var n:WORD; d:Array[0..2048] of Char; p:Pchar;begin if mmHis.Items.Count >1000 then mmHis.Items.Delete(0); mmHis.Items.Add(s); mmHis.ItemIndex :=mmHis.Items.Count-1; edLine1.Text :=s;end;
飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。