ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/fbsql/fbsql.lpr

Comparing ibx/trunk/examples/fbsql/fbsql.lpr (file contents):
Revision 262 by tony, Tue Apr 10 13:32:36 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	Line 160 | Line 160 | begin
160		Result := inherited ProcessStatement(stmt);
161		if not Result then
162		begin
163	<	Terminator := FSymbolStream.Terminator;
163	>	Terminator := SQLStatementReader.Terminator;
164		ucStmt := AnsiUpperCase(stmt);
165		RegexObj := TRegExpr.Create;
166		try
167		RegexObj.Expression := '^ *(QUIT|EXIT) *(\' + Terminator + '|)';
168		if RegexObj.Exec(ucStmt) then
169		begin
170	<	TInteractiveSymbolStream(FSymbolStream).Terminated := true;
170	>	TInteractiveSQLStatementReader(SQLStatementReader).Terminated := true;
171		Result := true;
172		end;
173		finally
#	Line 179 | Line 179 | end;
179		constructor TInteractiveSQLProcessor.Create(aOwner: TComponent);
180		begin
181		inherited Create(aOwner);
182	<	FSymbolStream := TInteractiveSymbolStream.Create;
182	>	SetSQLStatementReader(TInteractiveSQLStatementReader.Create);
183	>	Echo := true;
184		end;
185
186		procedure TInteractiveSQLProcessor.Run;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines