paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TValueListEditor: implement FindRow.

Browse Source 
git-svn-id: trunk@40515 -
This commit is contained in:
bart 2013-03-09 14:28:23 +00:00
parent cf333ab605
commit e085ecd22c
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/valedit.pas
View File

@ -164,6 +164,7 @@ type
procedure DeleteColRow(IsColumn: Boolean; index: Integer);
procedure DeleteRow(Index: Integer); override;
procedure DeleteCol(Index: Integer); override;
function FindRow(const KeyName: string; out aRow: Integer): Boolean;
procedure InsertColRow(IsColumn: boolean; index: integer);
function InsertRow(const KeyName, Value: string; Append: Boolean): Integer;
procedure ExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
@ -745,6 +746,15 @@ begin
Raise EGridException.CreateFmt(rsVLEInvalidRowColOperation,['DeleteCol','']);
end;
function TValueListEditor.FindRow(const KeyName: string; out aRow: Integer): Boolean;
var
Index: Integer;
begin
Index := Strings.IndexOfName(KeyName);
Result := (Index > -1);
if Result then aRow := Index + FixedRows;
end;
procedure TValueListEditor.InsertColRow(IsColumn: boolean; index: integer);
begin
if not IsColumn then