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

Use helper methods where possible, and leave GUI stuff in form units.

Browse Source
This commit is contained in:
Ansgar Becker
2009-04-28 22:35:00 +00:00
parent 8610147eaa
commit eadeed1ae2
5 changed files with 12 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/texteditor.pas
View File

@ -102,7 +102,10 @@ begin
if LB <> '' then
text := WideStringReplace(text, LB, CRLF, [rfReplaceAll]);
CheckAndWarnIfNulChar(text);
if ScanNulChar(text) then begin
MessageDlg(SContainsNulCharGrid, mtInformation, [mbOK], 0);
text := RemoveNulChars(text);
end;
// TODO: Find out why the Delphi IDE insists hinting that this
// property is ANSI when it is in fact a WideString.