paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 03:07:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed truncating of last char

Browse Source
This commit is contained in:
peter 2000-06-30 22:11:25 +00:00
parent 957d4cdc89
commit fbb293b639
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/inifiles.pp
View File

@ -516,8 +516,8 @@ begin
end end
else else
begin begin
sIdent:=Trim(Copy(sLine, 1, j- 1)); sIdent:=Trim(Copy(sLine, 1, j - 1));
sValue:=Trim(Copy(sLine, j + 1, Length(sLine) - j - 1)); sValue:=Trim(Copy(sLine, j + 1, Length(sLine) - j));
end; end;
end; end;
oSection.KeyList.Add(TIniFileKey.Create(sIdent, sValue)); oSection.KeyList.Add(TIniFileKey.Create(sIdent, sValue));
@ -770,7 +770,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2000-05-11 14:50:01 peter Revision 1.13 2000-06-30 22:11:25 peter
* fixed truncating of last char
Revision 1.12 2000/05/11 14:50:01 peter
* fixed getting of value when there was no separator. But it still * fixed getting of value when there was no separator. But it still
doesn't work for fpcmake doesn't work for fpcmake