diff options
| author | Oskari Timperi <oskari.timperi@iki.fi> | 2015-12-08 22:04:51 +0200 |
|---|---|---|
| committer | Oskari Timperi <oskari.timperi@iki.fi> | 2015-12-08 22:04:51 +0200 |
| commit | 60da249b49e9e53205ede54f1778349407882203 (patch) | |
| tree | 558b6925a1ad1f33a5aae4215f21754379b5429f | |
| parent | 668fe7b3ff59e5cb7d3953ca7ed7a82092f91474 (diff) | |
| download | lbasi-60da249b49e9e53205ede54f1778349407882203.tar.gz lbasi-60da249b49e9e53205ede54f1778349407882203.zip | |
combine if's in GetNextToken
| -rw-r--r-- | calc1.pas | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -143,9 +143,8 @@ begin begin Result := TokenInteger.Create(GetInteger); Exit; - end; - - if CurChar = '+' then + end + else if CurChar = '+' then begin Result := TokenPlus.Create; Inc(CurPos); |