opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Don't know what I meant to fix by this split-and-combine-again code, as it only has the effect that lines get trimmed. Remove that code. Fixes issue #2002.

Browse Source
This commit is contained in:
Ansgar Becker
2010-06-09 22:42:54 +00:00
parent 6b9dbf18ee
commit d7784a3a25
1 changed files with 0 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/tabletools.pas
View File

@ -948,7 +948,6 @@ procedure TfrmTableTools.DoExport(DBObj: TDBObject);
var
IsLastRowInChunk, NeedsDBStructure: Boolean;
Struc, Header, DbDir, FinalDbName, BaseInsert, Row, TargetDbAndObject, BinContent, tmp: String;
MultiSQL: TStringList;
i: Integer;
RowCount, Limit, Offset, ResultCount: Int64;
StartTime: Cardinal;
@ -1100,9 +1099,6 @@ begin
lntFunction, lntProcedure: begin
Struc := Mainform.Connection.GetVar('SHOW CREATE '+UpperCase(DBObj.ObjType)+' '+m(DBObj.Database)+'.'+m(DBObj.Name), 2);
// Todo: Why exploding?
MultiSQL := Explode(';', Struc);
Struc := ImplodeStr(';'+CRLF, MultiSQL);
if ToDb then begin
if DBObj.NodeType = lntProcedure then
Insert(m(FinalDbName)+'.', Struc, Pos('PROCEDURE', Struc) + 10 )
@ -1116,8 +1112,6 @@ begin
lntEvent: begin
Struc := Mainform.Connection.GetVar('SHOW CREATE '+UpperCase(DBObj.ObjType)+' '+m(DBObj.Database)+'.'+m(DBObj.Name), 'Create Event');
MultiSQL := Explode(';', Struc);
Struc := ImplodeStr(';'+CRLF, MultiSQL);
if ToDb then
Insert(m(FinalDbName)+'.', Struc, Pos('EVENT', Struc) + 6 );
if ToFile or ToDir or ToClipboard then