Работа с файлом

Форум — Ответы ( К темам )

? Иван: Работа с файлом (10-02-2003 16:28:21)
Не могу понять,почему когда я кликаю на MainMenu1->N9(обработчик события
приведен ниже)
ListBox на форме остается пустым.
Потом форму закрываю,опять кликаю:ListBox уже заполнен,
нужно чтобы он заполнялся с первого раза.
Подскажите пожалуйста!

void __fastcall TForm1::N9Click(TObject *Sender)
{
Form3->ShowModal();
//---------------Read of name-file--------
if((FN = fopen("stnm.txt","rt"))==NULL)
{
ShowMessage("Файл не удается открыть!");
return;
}
for(i=0;i<5;i++)
{
fgets(n,50,FN);
nm[i]=n;
}
fclose(FN);
//---------------Read of time-file--------
if((FT = fopen("sttm.txt","rt"))==NULL)
{
ShowMessage("Файл не удается открыть!");
return;
}
for(i=0;i<5;i++)
{
fscanf(FT,"%d",&t);
tm[i]=t;
}
fclose(FT);
Form3->ListBox1->Clear();
for(i=0; i < 5; i++){
Form3->ListBox1->Items->Add(AnsiString(nm[i])+":"+IntToStr(tm[i]));}
}
Petro (11-02-2003 12:11:14)

Ты заполняешь листбокс после выхода из формы. :) Поставь ShowModal после заполнения.

?	Иван: Работа с файлом (10-02-2003 16:28:21)
Не могу понять,почему когда я кликаю на MainMenu1->N9(обработчик события приведен ниже) ListBox на форме остается пустым. Потом форму закрываю,опять кликаю:ListBox уже заполнен, нужно чтобы он заполнялся с первого раза. Подскажите пожалуйста! void __fastcall TForm1::N9Click(TObject *Sender) { Form3->ShowModal(); //---------------Read of name-file-------- if((FN = fopen("stnm.txt","rt"))==NULL) { ShowMessage("Файл не удается открыть!"); return; } for(i=0;i<5;i++) { fgets(n,50,FN); nm[i]=n; } fclose(FN); //---------------Read of time-file-------- if((FT = fopen("sttm.txt","rt"))==NULL) { ShowMessage("Файл не удается открыть!"); return; } for(i=0;i<5;i++) { fscanf(FT,"%d",&t); tm[i]=t; } fclose(FT); Form3->ListBox1->Clear(); for(i=0; i < 5; i++){ Form3->ListBox1->Items->Add(AnsiString(nm[i])+":"+IntToStr(tm[i]));} }
Petro (11-02-2003 12:11:14)
Ты заполняешь листбокс после выхода из формы. :) Поставь ShowModal после заполнения.