paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

ValEdit: use Strings.NameValueSeparator instead of hardcoded '='.

Browse Source 
Patch by Cyrax (slightly adapted).

git-svn-id: trunk@42197 -
This commit is contained in:
bart 2013-07-24 12:06:14 +00:00
parent b52f1519a6
commit 52faf04b92
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/valedit.pas
View File

@ -811,7 +811,7 @@ var
Line: String;
begin
if (KeyName <> '') and (Value <> '') then
Line := KeyName + '=' + Value
Line := KeyName + Strings.NameValueSeparator + Value
else
Line := '';
if (Row > Strings.Count) or ((Row - FixedRows) >= Strings.Count)
@ -1051,7 +1051,7 @@ begin
Cells[1,I]:=AValue;
end
else
Strings.Add(Key+'='+AValue);
Strings.Add(Key + Strings.NameValueSeparator + AValue);
end;
procedure TValueListEditor.ShowColumnTitles;
@ -1277,7 +1277,7 @@ begin
if (Key = '') and (KeyValue = '') then
Line := ''
else
Line := Key + '=' + KeyValue;
Line := Key + Strings.NameValueSeparator + KeyValue;
// Empty grid: don't add a the line '' to Strings!
if (Strings.Count = 0) and (Line = '') then Exit;
if I>=Strings.Count then