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

lcl: remove dbctrls.ExtractFieldName since it is not needed anymore (db.ExtractFieldName already implemented)

Browse Source 
git-svn-id: trunk@43477 -
This commit is contained in:
blikblum 2013-11-24 23:42:57 +00:00
parent e35c0db3e2
commit f8ca4d297e
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/dbctrls.pp
View File

@ -1284,10 +1284,6 @@ type
property Images; property Images;
end; end;
// ToDo: Move this to db.pp
function ExtractFieldName(const Fields: string; var StartPos: Integer): string;
procedure ChangeDataSource(AControl: TControl; Link: TDataLink; procedure ChangeDataSource(AControl: TControl; Link: TDataLink;
NewDataSource: TDataSource); NewDataSource: TDataSource);
@ -1321,17 +1317,6 @@ begin
RegField(AFieldClasses[I]); RegField(AFieldClasses[I]);
end; end;
function ExtractFieldName(const Fields: string; var StartPos: Integer): string;
var
i: Integer;
begin
i:=StartPos;
while (i<=Length(Fields)) and (Fields[i]<>';') do Inc(i);
Result:=Trim(Copy(Fields,StartPos,i-StartPos));
if (i<=Length(Fields)) and (Fields[i]=';') then Inc(i);
StartPos:=i;
end;
procedure ChangeDataSource(AControl: TControl; Link: TDataLink; procedure ChangeDataSource(AControl: TControl; Link: TDataLink;
NewDataSource: TDataSource); NewDataSource: TDataSource);
begin begin