opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Second attempt to fix bug #868: during login heidi crashes

Browse Source
This commit is contained in:
Ansgar Becker
2008-11-11 21:02:28 +00:00
parent 19e7043a0a
commit 625d2ca3fb
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/childwin.pas
View File

@@ -2333,13 +2333,9 @@ begin
avg_perhour := '';
avg_persec := '';
// Format numeric or byte values
// Detect value type
valIsNumber := IntToStr(MakeInt(val)) = val;
valIsBytes := valIsNumber and (Copy(ds.Fields[0].AsWideString, 1, 6) = 'Bytes_');
if valIsBytes then
val := FormatByteNumber(val)
else if valIsNumber then
val := FormatNumber(val);
// Calculate average values ...
if valIsNumber then begin
@@ -2354,6 +2350,12 @@ begin
else avg_persec := FormatNumber( tmpval, 1 );
end;
// Format numeric or byte values
if valIsBytes then
val := FormatByteNumber(val)
else if valIsNumber then
val := FormatNumber(val);
VTRowDataListStatus[i-1].Captions.Add( val );
VTRowDataListStatus[i-1].Captions.Add(avg_perhour);
VTRowDataListStatus[i-1].Captions.Add(avg_persec);