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

Replace obsolete function "CompareText" by similar working "AnsiCompareText".

Browse Source 
See also: http://www.delphibasics.co.uk/RTL.asp?Name=CompareText
This commit is contained in:
Ansgar Becker
2007-09-13 23:17:51 +00:00
parent 0d31432aa9
commit 11e7f9d82d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/childwin.pas
View File

@@ -2686,7 +2686,7 @@ begin
begin
VTRowDataListProcesses[i-1].Captions := TStringList.Create;
VTRowDataListProcesses[i-1].Captions.Add( ds.Fields[0].AsString );
if CompareText( ds.Fields[4].AsString, 'Killed') = 0 then
if AnsiCompareText( ds.Fields[4].AsString, 'Killed') = 0 then
VTRowDataListProcesses[i-1].ImageIndex := 83 // killed
else
VTRowDataListProcesses[i-1].ImageIndex := 82; // running
@@ -6140,7 +6140,7 @@ begin
end
else begin
// Compare Strings
Result := CompareText( CellText1, CellText2 );
Result := AnsiCompareText( CellText1, CellText2 );
end;
end;