project raised exception class estringlisterror with message list index out of bounds

[obsession]

что нужно сделать чтобы не было этой ошибки? подскажите пожалуйста)

[Valio]

Нужно исправить исходный код таким образом, чтоб не возникала ситуация вызывающая эту ошибку.

[obsession]

а как исправить??

[Valio]

Какбы это был намёк что нужно привести кусок кода, где возникла эта ошибка.

[obsession]

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

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

[Valio]

Ошибка обнаруживается, вероятно она гдето в FormCreat, показывай.

Сама по себе ошибка означает что ты обращаешся к несуществующему индексу массива, компонента ListBox и пр.

[obsession]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
f1,f2,f3:textfile;
s1,s2,s3,s4,s5,s6:string;
c:integer;
  Form1: TForm1;
 i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Hide;
radiogroup2.Hide;
button1.Show;
button3.Hide;
button2.Show;
radiogroup1.Show;
c:=0;
assignfile(f1,'test1.txt');
assignfile(f2,'test2.txt');
assignfile(f3,'test3.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if messagedlg('Âû óâåðåíû, ÷òî õîòèòå âûáðàòü ýòó êàòåãîðèþ?',mtconfirmation,[mbyes,mbno],0)=mryes
then begin
if radiogroup1.ItemIndex=0 then
    messagedlg('Âû âûáðàëè êàòåãîðèþ ãåîãðàôèÿ.',mtinformation,[mbok],0);
if radiogroup1.ItemIndex=1 then
    messagedlg('Âû âûáðàëè êàòåãîðèþ ìóçûêà.',mtinformation,[mbok],0);
if radiogroup1.ItemIndex=2 then
    messagedlg('Âû âûáðàëè êàòåãîðèþ íàóêà è òåõíèêà.',mtinformation,[mbok],0);
end;

if radiogroup1.ItemIndex=0 then begin
    reset(f1);
    if eof(f1)=false then begin
    readln(f1,s1); readln(f1,s2); readln(f1,s3); readln(f1,s4); readln(f1,s5);
    closefile(f1);
    end; end;
if radiogroup1.ItemIndex=1 then begin
    reset(f2);
    if eof(f2)=false then begin
    readln(f2,s1); readln(f2,s2); readln(f2,s3); readln(f2,s4); readln(f2,s5);
    closefile(f2);
    end; end;
if radiogroup1.ItemIndex=2 then begin
    reset(f3);
    if eof(f3)=false then begin
    readln(f3,s1); readln(f3,s2); readln(f3,s3); readln(f3,s4); readln(f3,s5);
    closefile(f3);
    end; end;

label1.Show;
radiogroup2.Show;
button1.Hide;
button2.Show;
button3.Show;
radiogroup1.Hide;

label1.Caption:=s1;
radiogroup1.Items[0]:=s2;
radiogroup1.Items[1]:=s3;
radiogroup1.Items[2]:=s4;
radiogroup1.Items[3]:=s5;
radiogroup1.ItemIndex:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=strtoint(s6) then c:=c+1;

if radiogroup1.ItemIndex=0 then begin
    reset(f1);
    if eof(f1)=false then begin
    readln(f1,s1); readln(f1,s2); readln(f1,s3); readln(f1,s4); readln(f1,s5);
    label1.Caption:=s1;
    radiogroup1.Items[0]:=s2;
    radiogroup1.Items[1]:=s3;
    radiogroup1.Items[2]:=s4;
    radiogroup1.Items[3]:=s5;
    radiogroup1.ItemIndex:=0;
    closefile(f1);
   end
else begin
label1.Show;
radiogroup2.Hide;
button1.Hide;
button2.Show;
button3.Hide;
radiogroup1.Hide; end;    end;
if radiogroup1.ItemIndex=1 then begin
    reset(f2);
    if eof(f2)=false then begin
    readln(f2,s1); readln(f2,s2); readln(f2,s3); readln(f2,s4); readln(f2,s5);
    label1.Caption:=s1;
    radiogroup1.Items[0]:=s2;
    radiogroup1.Items[1]:=s3;
    radiogroup1.Items[2]:=s4;
    radiogroup1.Items[3]:=s5;
    radiogroup1.ItemIndex:=0;
    closefile(f2);
    end
else begin
label1.Show;
radiogroup2.Hide;
button1.Hide;
button2.Show;
button3.Hide;
radiogroup1.Hide; end;   end;
if radiogroup1.ItemIndex=2 then begin
    reset(f3);
    if eof(f3)=false then begin
    readln(f3,s1); readln(f3,s2); readln(f3,s3); readln(f3,s4); readln(f3,s5);
    label1.Caption:=s1;
    radiogroup1.Items[0]:=s2;
    radiogroup1.Items[1]:=s3;
    radiogroup1.Items[2]:=s4;
    radiogroup1.Items[3]:=s5;
    radiogroup1.ItemIndex:=0;
    closefile(f3);
    end
else begin
label1.Show;
radiogroup2.Hide;
button1.Hide;
button2.Show;
button3.Hide;
radiogroup1.Hide; end;    end;

label1.Caption:=inttostr(c);
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

Оформи код в теги, но это наврятли поможет ибо нереально понять что тут.

Ставь брекпоинт на строке label1.Hide; и когда при запуске он остановится на ней то жми F8 и смотри, на какойто строке у тебя вылетит ошибка. Вот и скажешь на какой имено.

[obsession]

эммм... а можно по подробней как нибудь
и что такое бекпоинт? (может я знаю, но мало ли кто как обзовет какое слово... )
тест.rar

[Valio]

Найди строку label1.Hide; и ткни рядом с ней (на рисунке там точка стоит). Появится красная точка. Брекпоинт - BreackPoint - точка остановки - один из инструментом отладки любого ЯП.