помогите найти ошибку

[lg12]

код:

procedure TForm1.Button1Click(Sender: TObject);
var c,x,i:integer;
a:string;
begin
Memo1.Text;
for i:=0 to memo1.Lines.Count-1 do
if pos('ку', Memo1.Lines.Strings[i])<>0 then
begin
memo2.Lines.Add(inttostr(i));
a:=memo2.Lines.Strings[2];
c:=StrToInt(a);
label2.Caption:=inttostr(c);
end;
end;
end.

меняю на a:=memo2.Lines.Strings[1]; тогда работает

[uberchel]

Я так и не понял, что точно вам надо, но может так:

procedure TForm1.btn1Click(Sender: TObject);
var
 i:integer;
 a: string;
begin
 for i:=0 to memo1.Lines.Count-1 do
 if pos('ку', Memo1.Lines.Strings[i])<>0 then
 begin
  memo.Lines.Add(inttostr(i));
  a:= Memo.Lines.Strings[1];
  lab.Caption:= a;
 end;
end;

[Пепел Феникса]

a:=memo2.Lines.Strings[1]
так может в одной строке число а в другой нет?

a:=memo2.Lines.Strings[2];
c:=StrToInt(a);

а так короче будет:

c:=StrToInt(memo2.Lines.Strings[2]);

[Def_mzk]

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

код:
procedure TForm1.Button1Click(Sender: TObject);
var c,x,i:integer;
a:string;
begin
Memo1.Text;
for i:=0 to memo1.Lines.Count-1 do
if pos('ку', Memo1.Lines.Strings[i])<>0 then
begin
memo2.Lines.Add(inttostr(i));
a:=memo2.Lines.Strings[2];
c:=StrToInt(a);
label2.Caption:=inttostr(c);
end;
end;
end.
меняю на a:=memo2.Lines.Strings[1]; тогда работает

memo2.Lines.Strings[2] скорее всего равна null.

[puporev]

А сколько строк записано в Мемо1?

[lennon]

а может быть просто в паскале отсчет идет не с 0 а с 1? может такое быть?

[puporev]

а может быть просто в паскале отсчет идет не с 0 а с 1? может такое быть?

Если писать точнее, то это Делфи. А писать с ноля или с одного зависит не от языка, а от типа переменных.
Кстати здесь написано от ноля
for i:=0 to memo1.Lines.Count-1 do
потому что в Мемо отсчет строк идет с ноля.