forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix init of string range

This commit is contained in:
Basile Burg 2016-03-21 22:41:20 +01:00
parent 32655fd0d1
commit eeb9502757
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_symstring.pas
View File

@ -245,7 +245,7 @@ end;
function TCESymbolExpander.expand(const value: string): string; function TCESymbolExpander.expand(const value: string): string;
var var
rng: TStringRange; rng: TStringRange = (ptr:nil; pos:0; len: 0);
sym: string; sym: string;
begin begin
Result := ''; Result := '';
@ -253,7 +253,7 @@ begin
exit; exit;
// //
updateSymbols; updateSymbols;
rng := TStringRange.create(value); rng.init(value);
while true do while true do
begin begin
if rng.empty then if rng.empty then