摘要:
procedure TForm1.mycopyfile(sourcef,targetf:string);varFromF, ToF: file;NumRead, NumWritten: Integer;Buf: array[1..2048] of Char;n:integer;begin Assig 阅读全文
摘要:
vDataBaseName := aConfiginiFile.ReadString('DataBaseConfig', 'DataBase', CH_IPC712Db); vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server' 阅读全文