From edbe2280e73ab06df31f6274c31507675955ce05 Mon Sep 17 00:00:00 2001 From: juha Date: Thu, 1 Nov 2012 19:35:42 +0000 Subject: [PATCH] SqlDb: formatting git-svn-id: trunk@39222 - --- components/sqldb/registersqldb.pas | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/components/sqldb/registersqldb.pas b/components/sqldb/registersqldb.pas index 7ffb1634d7..338d5db935 100644 --- a/components/sqldb/registersqldb.pas +++ b/components/sqldb/registersqldb.pas @@ -246,9 +246,7 @@ begin Result := [paMultiSelect, paSortList, paValueList, paRevertable]; end; -procedure TSQLDBConnectorTypePropertyEditor.GetValues( - Proc: TGetStrProc); - +procedure TSQLDBConnectorTypePropertyEditor.GetValues(Proc: TGetStrProc); Var L : TStringList; I : Integer; @@ -257,7 +255,7 @@ begin try GetConnectionList(L); for I:=0 to L.Count-1 do - Proc(L[i]); + Proc(L[i]); finally L.Free; end; @@ -388,8 +386,7 @@ begin IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil); end; -procedure TSQLSyntaxChecker.ShowMessage(const Fmt: String; - Args: array of const); +procedure TSQLSyntaxChecker.ShowMessage(const Fmt: String; Args: array of const); begin ShowMessage(Format(Fmt,Args)); end; @@ -517,8 +514,7 @@ begin Result:=SSQLScriptDesc; end; -function TSQLFileDescriptor.GetResourceSource(const ResourceName: string - ): string; +function TSQLFileDescriptor.GetResourceSource(const ResourceName: string): string; begin Result:=''; end;