paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic: replace Dutch variable name with English

Browse Source 
git-svn-id: trunk@26419 -
This commit is contained in:
reiniero 2014-01-11 01:35:58 +00:00
parent b9385a4f1d
commit 9db59ea8e7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -1866,7 +1866,7 @@ end;
procedure TCustomSQLQuery.InternalOpen; procedure TCustomSQLQuery.InternalOpen;
var tel, fieldc : integer; var counter, fieldc : integer;
f : TField; f : TField;
IndexFields : TStrings; IndexFields : TStrings;
begin begin
@ -1906,12 +1906,12 @@ begin
begin begin
if FusePrimaryKeyAsKey then if FusePrimaryKeyAsKey then
begin begin
for tel := 0 to ServerIndexDefs.count-1 do for counter := 0 to ServerIndexDefs.count-1 do
begin begin
if ixPrimary in ServerIndexDefs[tel].options then if ixPrimary in ServerIndexDefs[counter].options then
begin begin
IndexFields := TStringList.Create; IndexFields := TStringList.Create;
ExtractStrings([';'],[' '],pchar(ServerIndexDefs[tel].fields),IndexFields); ExtractStrings([';'],[' '],pchar(ServerIndexDefs[counter].fields),IndexFields);
for fieldc := 0 to IndexFields.Count-1 do for fieldc := 0 to IndexFields.Count-1 do
begin begin
F := Findfield(IndexFields[fieldc]); F := Findfield(IndexFields[fieldc]);