paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 15:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqldb: simplify code, remove unused field (FSQLBuf)

Browse Source 
git-svn-id: trunk@27858 -
This commit is contained in:
lacak 2014-06-05 10:42:23 +00:00
parent 217ab9879c
commit feff396633
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -363,7 +363,6 @@ type
FLoadingFieldDefs : boolean;
FUpdateMode : TUpdateMode;
FusePrimaryKeyAsKey : Boolean;
FSQLBuf : String;
FWhereStartPos : integer;
FWhereStopPos : integer;
FServerFilterText : string;
@ -2127,7 +2126,7 @@ begin
if not Cursor.FSelectable then
Exit;
If LogEvent(detFetch) then
Log(detFetch,FSQLBuf);
Log(detFetch,FStatement.FServerSQL);
if not FIsEof then FIsEOF := not SQLConnection.Fetch(Cursor);
Result := not FIsEOF;
end;
@ -2236,24 +2235,21 @@ begin
begin
CreateFields;
if FUpdateable and (not IsUniDirectional) then
if FUpdateable and FusePrimaryKeyAsKey and (not IsUniDirectional) then
begin
if FusePrimaryKeyAsKey then
for counter := 0 to ServerIndexDefs.Count-1 do
begin
for counter := 0 to ServerIndexDefs.count-1 do
if ixPrimary in ServerIndexDefs[counter].Options then
begin
if ixPrimary in ServerIndexDefs[counter].options then
IndexFields := TStringList.Create;
ExtractStrings([';'],[' '],pchar(ServerIndexDefs[counter].Fields),IndexFields);
for fieldc := 0 to IndexFields.Count-1 do
begin
IndexFields := TStringList.Create;
ExtractStrings([';'],[' '],pchar(ServerIndexDefs[counter].fields),IndexFields);
for fieldc := 0 to IndexFields.Count-1 do
begin
F := FindField(IndexFields[fieldc]);
if F <> nil then
F.ProviderFlags := F.ProviderFlags + [pfInKey];
end;
IndexFields.Free;
F := FindField(IndexFields[fieldc]);
if F <> nil then
F.ProviderFlags := F.ProviderFlags + [pfInKey];
end;
IndexFields.Free;
end;
end;
end;