淄
淄博一水亭
Unregistered / Unconfirmed
GUEST, unregistred user!
Fname := ExtractFilePath(Application.ExeName) + 'DBCON.ini';
IniFile := TIniFile.create(Fname);
ps := trim(IniFile.ReadString('DB', 'ps', 'com1'));
IniFile.Free;
if ps = '' then
ps := 'com1';
if ps = 'NULL' then
Exit;
AssignFile(MyFile, ps);
Rewrite(MyFile);
Writeln(MyFile, #27#64);
Writeln(MyFile, #12);
PDStr := FormatFloat('0.00', StrToFloat(DBGridEh_rk.getfootervalue(0, DBGridEh_rk.Columns[6])));
Writeln(MyFile, #27#81#65 + PDStr + #13);
CloseFile(MyFile);
***********
ps_com := trim(IniFile.ReadString('DB', 'ps', 'com1'));
if (ps_com <> 'NULL') and (Edit_sl.Text <> '') then
begin
ps_sl := Edit_sl.Text;
ps_int_sl := 50;
if ps_sl = '9600' then
ps_int_sl := 48;
if ps_sl = '4800' then
ps_int_sl := 49;
if ps_sl = '2400' then
ps_int_sl := 50;
if ps_sl = '1200' then
ps_int_sl := 51;
if ps_sl = '600' then
ps_int_sl := 52;
if ps_sl = '300' then
ps_int_sl := 53;
AssignFile(MyFile, ps_com);
Rewrite(MyFile);
Writeln(MyFile, chr(2) + chr(66) + chr(ps_int_sl));
CloseFile(MyFile);
end;
IniFile := TIniFile.create(Fname);
ps := trim(IniFile.ReadString('DB', 'ps', 'com1'));
IniFile.Free;
if ps = '' then
ps := 'com1';
if ps = 'NULL' then
Exit;
AssignFile(MyFile, ps);
Rewrite(MyFile);
Writeln(MyFile, #27#64);
Writeln(MyFile, #12);
PDStr := FormatFloat('0.00', StrToFloat(DBGridEh_rk.getfootervalue(0, DBGridEh_rk.Columns[6])));
Writeln(MyFile, #27#81#65 + PDStr + #13);
CloseFile(MyFile);
***********
ps_com := trim(IniFile.ReadString('DB', 'ps', 'com1'));
if (ps_com <> 'NULL') and (Edit_sl.Text <> '') then
begin
ps_sl := Edit_sl.Text;
ps_int_sl := 50;
if ps_sl = '9600' then
ps_int_sl := 48;
if ps_sl = '4800' then
ps_int_sl := 49;
if ps_sl = '2400' then
ps_int_sl := 50;
if ps_sl = '1200' then
ps_int_sl := 51;
if ps_sl = '600' then
ps_int_sl := 52;
if ps_sl = '300' then
ps_int_sl := 53;
AssignFile(MyFile, ps_com);
Rewrite(MyFile);
Writeln(MyFile, chr(2) + chr(66) + chr(ps_int_sl));
CloseFile(MyFile);
end;