paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +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

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

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