var
s:string;
begin
s:='string1'+#10#13+'string2';
end;

var
s:string;
begin
s:='string1'+#10#13+'string2';
end;

s:='string1'+#10#13+'string2';

Function CharCount(S:String; Ch:Char):integer;
var i:integer;
begin
 Result:=0;
 i:=1;
 repeat
   i:=PosEx(Ch,S,i);
   if (i>0) then
      begin
        inc(Result);
        inc(i);
      end;
 until i<=0;
end;

S:='ABC'#13'CDE'#13'FGH';

ShowMessage('Line count in string is : '+IntToStr(CharCount(Trim(S),#13)));  

Function CharCount(S:String; Ch:Char):integer;
var i:integer;
begin
 Result:=0;
 i:=1;
 repeat
   i:=PosEx(Ch,S,i);
   if (i>0) then
      begin
        inc(Result);
        inc(i);
      end;
 until i<=0;
end;

function LineCount(const Str: string): Integer;
var
  PStr: PChar;
begin
  Result := 0;
  if Str = '' then Exit;
  Inc(Result);
  PStr = Pointer(Str);
  while PStr^ <> #0 do begin
    if PStr^ = #10 then Inc(Result);
    Inc(PStr);
  end;   
end;

MyString:='This'#0#0#0#0'is'#13'my'#13'string';

function LineCount(const Str: string): Integer;
asm
  test  eax, eax
  jz    @@exit
  lea   ecx, [eax - 2]
  xor   eax, eax
@@found:
  inc   eax
@@loop:
  add   ecx, 2
  mov   dx, word ptr [ecx]
  cmp   dx, 10
  jz    @@found
  test  dx, dx
  jnz   @@loop
@@exit:
end;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы