Количество символов в memo

[littlecoder]

Здрастуйте.
Как можно узнать киличество символов(например ? ) в тексте с мемо ?
Думал так
var
a,b, i,f:integer
begin
a:=memo.lines.cout;
b:=a-1;
f:=0;
for i:=0 to b do
begin
if memo.lines.(string)[b][0]= '?' then
f+1
end;
end;
Так, как вы видите мне нужно опредилить именно 1 символ в каждой строке текста !

[Levsha100]

У строки свойство

Length(String):Integer;

. Сделай цикл по всем строкам и посчитай...

[littlecoder]

Мож показать как ?
Кодом ..

[KORN]

label1.caption:=strtoint(length(memo1.text)); // длина текста в мемо
var
r, i, j: integer;
s: string;
begin
r:=0;
for i:=0 to memo1.count-1 do
begin
  for j:=1 to length(memo1.lines.strings[i]) do
  begin
  s:=copy(memo1.lines.strings[i], j, 1); // копируем j символ строки в переменную S
    if s='?' then
    inc(R); // увеличиваем результат
  end;
end;
end;

[LexFreeman]

Сообщение от littlecoder

Здрастуйте.
Как можно узнать киличество символов(например ? ) в тексте с мемо ?
Так, как вы видите мне нужно опредилить именно 1 символ в каждой строке текста !

Да, все просто:

var
  i,k:integer;
begin
  k:=0;
  for i:=0 to Length(Memo1.Text) do
    begin
       if Memo1.Text='?' then inc(k);
    end;

В конце цикла в переменной k будет содержаться число элементов "?", находящихся в объекте Memo1

[LexFreeman]

Сообщение от KORN

label1.caption:=strtoint(length(memo1.text)); // длина текста в мемо
var
r, i, j: integer;
s: string;
begin
r:=0;
for i:=0 to memo1.count-1 do
begin
  for j:=1 to length(memo1.lines.strings[i]) do
  begin
  s:=copy(memo1.lines.strings[i], j, 1); // копируем j символ строки в переменную S
    if s='?' then
    inc(R); // увеличиваем результат
  end;
end;
end;

Что-то код какой-то громоздкий)

[Alter]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var S :String;
    P,N :integer;
begin
 Label1.Caption := '0';
  S := Memo1.Text;
  N := 0;
 While Pos(Edit1.Text, S)>0 do
 begin
   P := Pos(Edit1.Text, S);
  If P>0 then
  begin
   Inc(N);
   Delete(S, P, Length(Edit1.Text));
  end;
 end;
  Label1.Caption := IntToStr(N);
end;

end.

[littlecoder]

Спасибо за ответы.

[Arigato]

LexFreeman
Немного неточно. Забыли указать обращение к i-му символу:

if Memo1.Text[i]='?' then inc(k);

[KORN]

Сообщение от LexFreeman

Да, все просто:

var
  i,k:integer;
begin
  k:=0;
  for i:=0 to Length(Memo1.Text) do
    begin
       if Memo1.Text='?' then inc(k);
    end;

В конце цикла в переменной k будет содержаться число элементов "?", находящихся в объекте Memo1

а ты то свой код проверил7 он вообще работает7 проверяет равен ли весь текст знаку '?', а код кажется большим из за Begin end; если их убрать будет на 4 строки меньше