paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 01:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

sqldb: less warnings

Browse Source 
git-svn-id: trunk@36465 -
This commit is contained in:
mattias 2012-03-30 14:39:34 +00:00
parent a3b86d11f7
commit 31b926bdad
11 changed files with 9 additions and 180 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/sqldb/languages/sqlstringspropertyeditordlg.de.po
View File

@ -9,30 +9,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "Keine Syntaxfehler in SQL-Anweisung."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Ergebnisse"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "SQL-Fehler"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr "SQL OK"
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Syntaxfehler in SQL-Anweisung:\n"
"%s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "SQL-Code"

22
components/sqldb/languages/sqlstringspropertyeditordlg.it.po
View File

@ -1,4 +1,4 @@
# Massimo Soricetti <notturno@quipo.it>, 2011.
Massimo Soricetti <notturno@quipo.it>, 2011.
msgid ""
msgstr ""
"PO-Revision-Date: 2011-04-20 17:49+0200\n"
@ -11,30 +11,10 @@ msgstr ""
"Plural-Forms: nplurals=2; plural=(n != 1);\n"
"X-Generator: Virtaal 0.5.1\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "La sintassi SQL del comando è corretta."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Risultati"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "Errore SQL"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Errore di sintassi nel comando SQL:\n"
" %s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "Codice SQL"

18
components/sqldb/languages/sqlstringspropertyeditordlg.lt.po
View File

@ -10,28 +10,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr ""
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Rezultatai"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "SQL kodas"

18
components/sqldb/languages/sqlstringspropertyeditordlg.po
View File

@ -1,28 +1,10 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr ""
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr ""

20
components/sqldb/languages/sqlstringspropertyeditordlg.pt.po
View File

@ -9,30 +9,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "Nenhum erro de sintaxe na declaração SQL."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Resultados"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "Erro SQL"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr "SQL OK"
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Erro de sintaxe na declaração SQL:\n"
"%s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "Código \"SQL\""

20
components/sqldb/languages/sqlstringspropertyeditordlg.pt_BR.po
View File

@ -9,30 +9,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "Nenhum erro de sintaxe na declaração SQL."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Resultados"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "Erro SQL"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr "SQL OK"
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Erro de sintaxe na declaração SQL:\n"
"%s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "Código \"SQL\""

20
components/sqldb/languages/sqlstringspropertyeditordlg.ru.po
View File

@ -9,30 +9,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "В выражении SQL нет синтаксических ошибок."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Результаты"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "Ошибка SQL"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr "SQL OK"
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Синтаксическая ошибка в выражении SQL:\n"
"%s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "Код SQL"

20
components/sqldb/languages/sqlstringspropertyeditordlg.uk.po
View File

@ -9,30 +9,10 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr "В інструкції SQL немає помилок."
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "Результати"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr "Помилка SQL"
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr "SQL OK"
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
"Синтаксична помилка в інструкції SQL:\n"
"%s\n"
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "Код SQL"

18
components/sqldb/languages/sqlstringspropertyeditordlg.zh_CN.po
View File

@ -12,28 +12,10 @@ msgstr ""
"X-Poedit-Country: CHINA\n"
"X-Poedit-SourceCharset: utf-8\n"
#: sqlstringspropertyeditordlg.sqlsyntaxok
msgid "No syntax errors in SQL statement."
msgstr ""
#: sqlstringspropertyeditordlg.sresulttabcaption
msgid "Results"
msgstr "返回值"
#: sqlstringspropertyeditordlg.ssqlerror
msgid "SQL Error"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlok
msgid "SQL OK"
msgstr ""
#: sqlstringspropertyeditordlg.ssqlsyntaxerror
msgid ""
"Syntax error in SQL statement:\n"
"%s\n"
msgstr ""
#: sqlstringspropertyeditordlg.ssqltabcaption
msgid "SQL Code"
msgstr "SQL代码"

6
components/sqldb/registersqldb.pas
View File

@ -104,9 +104,9 @@ Type
constructor Create; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
function GetResourceSource(const ResourceName: string): string; override;
function CreateSource(const Filename, SourceName,
ResourceName: string): string; override;
function GetResourceSource(const {%H-}ResourceName: string): string; override;
function CreateSource(const {%H-}Filename, {%H-}SourceName,
{%H-}ResourceName: string): string; override;
end;

7
components/sqldb/sqlstringspropertyeditordlg.pas
View File

@ -54,7 +54,7 @@ type
FTransaction:TSQLTransaction;
function CheckConnection:boolean;
procedure CheckSQLSyntax(SQL: TStrings);
procedure CheckSQLSyntax({%H-}SQL: TStrings);
procedure CleanupDelphiCode;
procedure CreateConstant;
public
@ -77,12 +77,14 @@ uses
{$R *.lfm}
resourcestring
SSQLTabCaption = 'SQL Code';
SResultTabCaption = 'Results';
SSQLTabCaption = 'SQL Code';
{$IFDEF HASSQLPARSER}
SSQLOK = 'SQL OK';
SQLSyntaxOK = 'No syntax errors in SQL statement.';
SSQLError = 'SQL Error';
SSQLSyntaxError = 'Syntax error in SQL statement:'+slineBreak+'%s';
{$ENDIF}
{ TSQLStringsPropertyEditorDlg }
@ -222,6 +224,7 @@ Var
I : Integer;
begin
C:='';
For I:=0 to SQLEditor.Lines.Count-1 do
begin
S:=SQLEditor.Lines[i];