не получается прога на делфи.поиск символов в файле

[valiza]

всем драсте)суть такова.есть этот код:
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,x: integer;
s1,s: string;
begin


k:=0;

for i := 0 to Memo1.Lines.Count - 1 do
Begin
s1:= Edit1.Text;
s := Memo1.lines[i];
for j := 0 to Length(s)-1 do
Begin
if s[j] = Edit1.Text then k := k + 1;
end;

Label2.Caption := IntToStr(k);

end;

end;
procedure Tform1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('gh.txt');

end;


end.



програма делает подсчет символов в загружонном файле(txt)
мне нужно что б она считала не только по одному символу,а и несколько символов подряд..но чет не выходит нифигапомогите если не трудно)

[SERG1980]

во первых эту строку for j := 0 to Length(s)-1 do
лучше переделать на for j := 1 to Length(s) do т.к. нумерация строки начинается с 1
эту строку s1:= Edit1.Text; можно вынести за пределы цикла. например после строки k:=0; никчему это
а несколько символов подряд можно считать с помощью ф-ии Pos

if Pos(Edit1.Text,s)<>0 then k := k + 1;

Только тогда лучше это проверять в цикле while
если я вообще правильно понял выражение

несколько символов подряд

[valiza]

тоесть я в эдите пишу символ и прога считает количество в файле символов:например "а" и выдается некое количество.а когда пишу например "аа" не считает уже нифига и выдает результат 0

[valiza]

чуть переделал:
k:=0;
s1:= Edit1.Text;
for i := 0 to Memo1.Lines.Count - 1 do
Begin

s := Memo1.lines[i];
for j := 1 to Length(s) do
Begin
if s[j] = Edit1.Text then k := k + 1;
end;
while x>0 do
begin
if Pos(Edit1.Text,s)<>0 then k := k + 1;
end;

Label2.Caption := IntToStr(k);

end;

end;
procedure Tform1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('gh.txt');

end;


end.



всеравно не считает два символа подряд

[SERG1980]

Что то вроде этого

procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
    s:string;
begin
 k:=0;
 for i := 0 to Memo1.Lines.Count - 1 do
 Begin
  s := Memo1.lines[i];
  while Pos(Edit1.Text,s)<>0 do
  begin
   k:=k+1;
   Delete(s,Pos(Edit1.Text,s),Length(edit1.Text));
  end;
 end;
 label2.Caption:=inttostr(k);
end;

[valiza]

Огромнейшее спасибо.задача выполняется)щас буд разбираться с кодом)

[puporev]

количество в файле символов:например "а" и выдается некое количество.а когда пишу например "аа" не считает уже нифига и выдает результат 0

А Вы уверены что 'аа' - это есть символ?