Выборка из файла.

[maladoy]

текст ошибки бы посмотреть?

if (base.Strings[i])[1]='а' then
kol1.Add(base.Strings[i]);

а может все таки вот так

if base.Strings[i][1]='а' then
kol1.Add(base.Strings[i]);

[Дмитрий-кодер]

if (base.Strings[i])[1]='а' then

да, сомнительная строка ...

[mihali4]

Да нет, этот вариант вполне "прокатывает".
Похоже, там байда с объявлениями объектов и переменных.
Но он это от нас упорно скрывает.
Если все объявлено (как следует из текста функции) снаружи, то функция и знать не знает об их существовании, и тут главной загадкой становится "все компилируется". В это слабо верится...

[maladoy]

Похоже, там байда с объявлениями объектов и переменных.
Но он это от нас упорно скрывает.

да и код какой то странный никакой логики! зачем объявлять функцию если результат не возвращается?

[StartMis]

вот исходник

ну объясните почему не работает.

[Serge_Bliznykov]

в текстовом файле пустые строки в конце..
это не отрабатывалось!
и вообще жуть как написано... :-(((

вместо функции ON1 напишите ПРОЦЕДУРУ:

procedure on1;
var
  stroka:string;
  I : integer;
begin
  Form1.Memo1.Lines.Clear;
  for i:=0 to base.Count-1 do
  begin
  stroka := base.Strings[i];
  if (Length(stroka)>0) and (Uppercase(stroka[1])='А') then
     Form1.Memo1.Lines.Add(stroka);
 end;
end;