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

Outsource new line replacements into new StripNewLines() function

Browse Source
This commit is contained in:
Ansgar Becker
2024-04-12 06:59:16 +02:00
parent dec0acea39
commit 010a46c48f
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/apphelpers.pas
View File

@ -334,6 +334,7 @@ type
function IsFloat(Str: String): Boolean;
function ScanLineBreaks(Text: String): TLineBreaks;
function fixNewlines(txt: String): String;
procedure StripNewLines(var txt: String; Replacement: String=' ');
function GetLineBreak(LineBreakIndex: TLineBreaks): String;
procedure RemoveNullChars(var Text: String; var HasNulls: Boolean);
function GetShellFolder(FolderId: TGUID): String;
@ -828,6 +829,12 @@ begin
result := txt;
end;
procedure StripNewLines(var txt: String; Replacement: String=' ');
begin
txt := StringReplace(txt, #13#10, Replacement, [rfReplaceAll]);
txt := StringReplace(txt, #13, Replacement, [rfReplaceAll]);
txt := StringReplace(txt, #10, Replacement, [rfReplaceAll]);
end;
function GetLineBreak(LineBreakIndex: TLineBreaks): String;
begin

4
source/exportgrid.pas
View File

@ -948,9 +948,7 @@ begin
// Remove linebreaks, see #474
if chkRemoveLinebreaks.Checked then begin
Data := StringReplace(Data, #13#10, ' ', [rfReplaceAll]);
Data := StringReplace(Data, #13, ' ', [rfReplaceAll]);
Data := StringReplace(Data, #10, ' ', [rfReplaceAll]);
StripNewLines(Data);
end;
case ExportFormat of