|
From: Maxim M. <max...@us...> - 2010-07-11 00:37:43
|
Update of /cvsroot/lngcompiler/lngcompiler In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv16790 Modified Files: BigIni.pas LngForm.pas MD5.pas MView.pas Utils.pas WrapStrm.pas XCoder.pas XReader.pas Log Message: Some obsolete unused variables did produce minor compiler warnings. Index: BigIni.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/BigIni.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** BigIni.pas 7 Feb 2008 12:21:29 -0000 1.4 --- BigIni.pas 11 Jul 2010 00:37:33 -0000 1.5 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or Index: LngForm.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/LngForm.pas,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** LngForm.pas 24 Sep 2009 09:25:07 -0000 1.27 --- LngForm.pas 11 Jul 2010 00:37:33 -0000 1.28 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or *************** *** 369,373 **** procedure TNamedStrIndex.Add(AName, AValue, ALng: String); var ! I, J, VL, LL: Integer; begin VL := Length(AValue); --- 369,373 ---- procedure TNamedStrIndex.Add(AName, AValue, ALng: String); var ! I, VL, LL: Integer; begin VL := Length(AValue); *************** *** 424,428 **** var I, J, K, L: Integer; ! S, N, V: String; begin S := AdjustLineBreaks(AText); --- 424,428 ---- var I, J, K, L: Integer; ! S, N: String; begin S := AdjustLineBreaks(AText); *************** *** 1083,1087 **** LastT, T: TLngToken; LLine, LastLine: Integer; - LI: TLngString; CP: String; --- 1083,1086 ---- *************** *** 2465,2472 **** OL: TStringList; CF: TLngForm; - LF: TLngFile; LI, LLI: TLngString; XX: Boolean; ! NS, S, SS: String; begin OL := nil; --- 2464,2470 ---- OL: TStringList; CF: TLngForm; LI, LLI: TLngString; XX: Boolean; ! NS, SS: String; begin OL := nil; *************** *** 2640,2644 **** function NameNotTranslated(Idx: Integer): Boolean; var - I: Integer; S, SS: String; begin --- 2638,2641 ---- *************** *** 3165,3168 **** --- 3162,3166 ---- CheckLngChange; M := nil; + LF := nil; try LL := TStringList.Create; LL.Sorted := True; Index: MD5.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/MD5.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** MD5.pas 5 Apr 2002 15:06:22 -0000 1.4 --- MD5.pas 11 Jul 2010 00:37:33 -0000 1.5 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or Index: MView.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/MView.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MView.pas 5 Apr 2002 15:06:22 -0000 1.3 --- MView.pas 11 Jul 2010 00:37:33 -0000 1.4 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or Index: Utils.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/Utils.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Utils.pas 7 Feb 2008 12:21:30 -0000 1.5 --- Utils.pas 11 Jul 2010 00:37:33 -0000 1.6 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or Index: WrapStrm.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/WrapStrm.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WrapStrm.pas 5 Apr 2002 15:06:22 -0000 1.3 --- WrapStrm.pas 11 Jul 2010 00:37:33 -0000 1.4 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or Index: XCoder.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/XCoder.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** XCoder.pas 7 Feb 2008 12:21:30 -0000 1.4 --- XCoder.pas 11 Jul 2010 00:37:33 -0000 1.5 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or *************** *** 251,255 **** InBS, CInBS, BS, CBS: Integer; I, J, II, MCd3, BSdMC: Integer; - P4: PI4RecArray; p3: PI3RecArray; --- 251,254 ---- *************** *** 412,416 **** procedure DoDecodeUTF7; ! var P, XP, I, XBS: Integer; B: Boolean; S, Q: String; --- 411,415 ---- procedure DoDecodeUTF7; ! var P, XP, XBS: Integer; B: Boolean; S, Q: String; *************** *** 619,623 **** procedure DoEncodeUTF7; ! var I, J, K: Integer; B: Boolean; --- 618,622 ---- procedure DoEncodeUTF7; ! var I, J: Integer; B: Boolean; *************** *** 711,718 **** function StringToUTF(const S: String; UTF8: Boolean): String; var WStr: PWideChar; - StrSize: Integer; P: PChar; SSize: Integer; - F: Integer; begin WStr := nil; --- 710,715 ---- Index: XReader.pas =================================================================== RCS file: /cvsroot/lngcompiler/lngcompiler/XReader.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** XReader.pas 5 Apr 2002 15:06:22 -0000 1.3 --- XReader.pas 11 Jul 2010 00:37:33 -0000 1.4 *************** *** 4,8 **** lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001 RITLABS S.R.L. This program is free software; you can redistribute it and/or --- 4,8 ---- lngcompiler - Ritlabs LNG files editor & compiler ! Copyright (C) 2001-2010 RITLABS S.R.L. This program is free software; you can redistribute it and/or |
