paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 22:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, translated russian texts to english

Browse Source 
git-svn-id: trunk@34124 -
This commit is contained in:
jesus 2011-12-12 01:22:04 +00:00
parent f8f5fa68e1
commit 1f95690d16
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazreport/source/lr_intrp.pas
View File

@ -308,7 +308,7 @@ procedure DoFuncId; forward;
if c = 0 then break; if c = 0 then break;
Inc(i); Inc(i);
end; end;
MemoErr.Add('Ñòðîêà ' + IntToStr(i + 1) + '/' + IntToStr(j - 1) + ': ' + s); MemoErr.Add('Line ' + IntToStr(i + 1) + '/' + IntToStr(j - 1) + ': ' + s);
end; end;
procedure ProcessBrackets(var i: Integer); procedure ProcessBrackets(var i: Integer);
@ -353,7 +353,7 @@ procedure DoFuncId; forward;
goto 1; goto 1;
end end
else if Pos('END', bs) = 1 then cur := cur - Length(bs) + 3 else if Pos('END', bs) = 1 then cur := cur - Length(bs) + 3
else AddError('Çäåñü òðåáóåòñÿ ";" èëè "end"'); else AddError('Expected ";" or "end"');
end; end;
procedure DoIf; procedure DoIf;
@ -386,7 +386,7 @@ procedure DoFuncId; forward;
cur := nsm; cur := nsm;
end; end;
end end
else AddError('Çäåñü òðåáóåòñÿ "then"'); else AddError('Expected "then"');
end; end;
procedure DoRepeat; procedure DoRepeat;
@ -410,7 +410,7 @@ procedure DoFuncId; forward;
DoExpression; DoExpression;
MemoTo.Add(ttIf + Chr(nl) + Chr(nl div 256) + CopyArr(nsm, cur - nsm)); MemoTo.Add(ttIf + Chr(nl) + Chr(nl div 256) + CopyArr(nsm, cur - nsm));
end end
else AddError('Çäåñü òðåáóåòñÿ ";" èëè "until"'); else AddError('Expected ";" or "until"');
end; end;
procedure DoWhile; procedure DoWhile;
@ -429,7 +429,7 @@ procedure DoFuncId; forward;
MemoTo.Add(ttGoto + Chr(nl) + Chr(nl div 256)); MemoTo.Add(ttGoto + Chr(nl) + Chr(nl div 256));
bs := MemoTo[nl]; bs[2] := Chr(last); bs[3] := Chr(last div 256); MemoTo[nl] := bs; bs := MemoTo[nl]; bs[2] := Chr(last); bs[3] := Chr(last div 256); MemoTo[nl] := bs;
end end
else AddError('Çäåñü òðåáóåòñÿ "do"'); else AddError('Expected "do"');
end; end;
procedure DoGoto; procedure DoGoto;
@ -440,7 +440,7 @@ procedure DoFuncId; forward;
nsm := cur; nsm := cur;
lastp := cur; lastp := cur;
DoDigit; DoDigit;
if Error then AddError('Ìåòêà â goto äîëæíà áûòü ÷èñëîì'); if Error then AddError('Label in goto must be a number');
MemoTo.Add(ttGoto + Trim(CopyArr(nsm, cur - nsm))); MemoTo.Add(ttGoto + Trim(CopyArr(nsm, cur - nsm)));
end; end;
@ -476,7 +476,7 @@ procedure DoFuncId; forward;
MemoTo.Add(s); MemoTo.Add(s);
end end
else else
AddError('Çäåñü òðåáóåòñÿ ":="'); AddError('Expected ":="');
end; end;
{-------------------------------------} {-------------------------------------}
procedure DoExpression; procedure DoExpression;
@ -552,7 +552,7 @@ procedure DoFuncId; forward;
SkipSpace; SkipSpace;
lastp := cur; lastp := cur;
if buf^[cur] = ')' then Inc(cur) if buf^[cur] = ')' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ ")"'); else AddError('Expected ")"');
end end
else if bs[1] = '[' then else if bs[1] = '[' then
begin begin
@ -561,7 +561,7 @@ procedure DoFuncId; forward;
SkipSpace; SkipSpace;
lastp := cur; lastp := cur;
if buf^[cur] = ']' then Inc(cur) if buf^[cur] = ']' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ "]"'); else AddError('Expected "]"');
end end
else if (bs[1] = '+') or (bs[1] = '-') then else if (bs[1] = '+') or (bs[1] = '-') then
begin begin
@ -656,7 +656,7 @@ procedure DoFuncId; forward;
goto 1; goto 1;
end end
else if buf^[cur] = ')' then Inc(cur) else if buf^[cur] = ')' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ "," èëè ")"'); else AddError('Expected "," or ")"');
end; end;
end; end;