paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 15:49:32 +01: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;
Inc(i);
end;
MemoErr.Add('Ñòðîêà ' + IntToStr(i + 1) + '/' + IntToStr(j - 1) + ': ' + s);
MemoErr.Add('Line ' + IntToStr(i + 1) + '/' + IntToStr(j - 1) + ': ' + s);
end;
procedure ProcessBrackets(var i: Integer);
@ -353,7 +353,7 @@ procedure DoFuncId; forward;
goto 1;
end
else if Pos('END', bs) = 1 then cur := cur - Length(bs) + 3
else AddError('Çäåñü òðåáóåòñÿ ";" èëè "end"');
else AddError('Expected ";" or "end"');
end;
procedure DoIf;
@ -386,7 +386,7 @@ procedure DoFuncId; forward;
cur := nsm;
end;
end
else AddError('Çäåñü òðåáóåòñÿ "then"');
else AddError('Expected "then"');
end;
procedure DoRepeat;
@ -410,7 +410,7 @@ procedure DoFuncId; forward;
DoExpression;
MemoTo.Add(ttIf + Chr(nl) + Chr(nl div 256) + CopyArr(nsm, cur - nsm));
end
else AddError('Çäåñü òðåáóåòñÿ ";" èëè "until"');
else AddError('Expected ";" or "until"');
end;
procedure DoWhile;
@ -429,7 +429,7 @@ procedure DoFuncId; forward;
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;
end
else AddError('Çäåñü òðåáóåòñÿ "do"');
else AddError('Expected "do"');
end;
procedure DoGoto;
@ -440,7 +440,7 @@ procedure DoFuncId; forward;
nsm := cur;
lastp := cur;
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)));
end;
@ -476,7 +476,7 @@ procedure DoFuncId; forward;
MemoTo.Add(s);
end
else
AddError('Çäåñü òðåáóåòñÿ ":="');
AddError('Expected ":="');
end;
{-------------------------------------}
procedure DoExpression;
@ -552,7 +552,7 @@ procedure DoFuncId; forward;
SkipSpace;
lastp := cur;
if buf^[cur] = ')' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ ")"');
else AddError('Expected ")"');
end
else if bs[1] = '[' then
begin
@ -561,7 +561,7 @@ procedure DoFuncId; forward;
SkipSpace;
lastp := cur;
if buf^[cur] = ']' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ "]"');
else AddError('Expected "]"');
end
else if (bs[1] = '+') or (bs[1] = '-') then
begin
@ -656,7 +656,7 @@ procedure DoFuncId; forward;
goto 1;
end
else if buf^[cur] = ')' then Inc(cur)
else AddError('Çäåñü òðåáóåòñÿ "," èëè ")"');
else AddError('Expected "," or ")"');
end;
end;