kenny,
наверно вы хотели сказать, так
наверно вы хотели сказать, так
| Код |
|---|
function GetStrLen(List: TStrings): integer; begin Result:= length(StringReplace(List.Text,#13#10,#0,[rfReplaceAll])); end; |