paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 04:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: strings property editor: count characters instead of bytes (issue #17753)

Browse Source 
git-svn-id: trunk@28036 -
This commit is contained in:
vincents 2010-11-02 09:54:49 +00:00
parent 39f58d48bc
commit b90196f307
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/stringspropeditdlg.pas
View File

@ -22,7 +22,7 @@ unit StringsPropEditDlg;
interface interface
uses uses
Classes, SysUtils, Forms, Controls, Buttons, Dialogs, StdCtrls, Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Dialogs, StdCtrls,
TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel; TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel;
type type
@ -64,7 +64,7 @@ var
I: Integer; I: Integer;
begin begin
NumChars := 0; NumChars := 0;
for I := 0 to Memo.Lines.Count - 1 do Inc(NumChars, Length(Memo.Lines[I])); for I := 0 to Memo.Lines.Count - 1 do Inc(NumChars, Utf8Length(Memo.Lines[I]));
if Memo.Lines.Count = 1 then if Memo.Lines.Count = 1 then
StatusLabel.Caption := Format(ois1LineDChars, [NumChars]) StatusLabel.Caption := Format(ois1LineDChars, [NumChars])