Как загрузить текст в листбокс

[cargo29]

Где у меня ошибка подскажите??

procedure TForm1.FormCreate(Sender: TObject);
begin
if (FileExists(dir+'\names.txt')=true) and (FileExists(dir+'\sait.txt')=true) then
begin
Form2.ListBox1.Items.LoadFromFile(dir+'\names.txt');
Form2.ListBox2.Items.LoadFromFile(dir+'\sait.txt');
ListBox1.Items.Text:=Form1.ListBox1.Items.Text;
end;
end;

лист боксы лежат на 2 форме, когда файлы лежат в этой директории выскакивает ошибка, типа прочитать не может память что не так делаю?? (Делфи 7)

[ReportCube]

Поскольку используете обработчик OnCreate первой формы, то всякое обращение ко второй форме проблематично - на этой стадии второй формы ещё не существует

[cargo29]

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

Поскольку используете обработчик OnCreate первой формы, то всякое обращение ко второй форме проблематично - на этой стадии второй формы ещё не существует

а куда тогда прописать?? в каком событии тогда прописать?

[artemavd]

procedure TForm1.FormCreate(Sender: TObject);
begin
if (FileExists(dir+'\names.txt')=true) and (FileExists(dir+'\sait.txt')=true) then
begin
Form2.ListBox1.Items.LoadFromFile(dir+'\names.txt');
Form2.ListBox2.Items.LoadFromFile(dir+'\sait.txt');
ListBox1.Items.Text:=Form1.ListBox1.Items.Text; //тут случаем Form2. в начале не потерял?
end;
end;

Изначально непонятная вообще задача. Проверить существование файла и если он есть, то загрузить из него текст? Тогда так, например:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if FileExists(dir + '\names.txt') then
 begin
  Form1.ListBox1.Items.LoadFromFile(dir + '\names.txt');
 end;
end;

Как мне кажется, то не надо писать FileExists(...)=true ибо функция итак либо вернет True и выполнит загрузку текста или вернет False и ничего не выполнит.

[cargo29]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
if (FileExists(dir+'\names.txt')=true) and (FileExists(dir+'\sait.txt')=true) then
begin
Form2.ListBox1.Items.LoadFromFile(dir+'\names.txt');
Form2.ListBox2.Items.LoadFromFile(dir+'\sait.txt');
ListBox1.Items.Text:=Form1.ListBox1.Items.Text; //тут случаем Form2. в начале не потерял?
end;
end;

Изначально непонятная вообще задача. Проверить существование файла и если он есть, то загрузить из него текст? Тогда так, например:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if FileExists(dir + '\names.txt') then
 begin
  Form1.ListBox1.Items.LoadFromFile(dir + '\names.txt');
 end;
end;

Как мне кажется, то не надо писать FileExists(...)=true ибо функция итак либо вернет True и выполнит загрузку текста или вернет False и ничего не выполнит.

там да ошибка я тут опечатался там форма 2, вообщем смотри когда создается 1 форма, проверяется существует ли файлы если да то загружается в листбоксы которые расположены на 2 форме, именно на 2.

[artemavd]

Ты не сможешь загрузить текст в листбоксы, которые на форме 2, т.к. они еще не созданы. Создай переменную типа TStringList и грузи в нее текст при открытии формы 1, а потом, его загружай при открытии второй формы в листбоксы, которые расположены на форме 2.

[cargo29]

Щас попробую поковыряться помотрим что получится...