paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

ValEdit: do not store '=' in Strings is "key" and "value" cell is empty.

Browse Source 
git-svn-id: trunk@40297 -
This commit is contained in:
bart 2013-02-13 15:08:52 +00:00
parent 354039f2b0
commit ba23bf1705
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/valedit.pas
View File

@ -932,7 +932,7 @@ end;
procedure TValueListEditor.SetCells(ACol, ARow: Integer; const AValue: string);
var
I: Integer;
Line: string;
Key, KeyValue, Line: string;
begin
if (ARow = 0) and (doColumnTitles in DisplayOptions) then
begin
@ -942,11 +942,22 @@ begin
begin
I:=ARow-FixedRows;
if ACol=0 then
Line:=AValue+'='+Cells[1,ARow]
begin
Key := AValue;
KeyValue := Cells[1,ARow]
end
else
Line:=Cells[0,ARow]+'='+AValue;
// Empty grid: don't add a the line '=' to Strings!
if (Strings.Count = 0) and (Line = '=') and (AValue = '') then Exit;
begin
KeyValue := AValue;
Key := Cells[0,ARow];
end;
//If cells are empty don't store '=' in Strings
if (Key = '') and (KeyValue = '') then
Line := ''
else
Line := Key + '=' + KeyValue;
// Empty grid: don't add a the line '' to Strings!
if (Strings.Count = 0) and (Line = '') then Exit;
if I>=Strings.Count then
Strings.Insert(I,Line)
else