[T-dayne]

Нужно, чтобы при запуске приложения, загружались строки из c:\data.txt в таблицу stringgrid.
Вот нашел код для записи/загрузки из файла строк в таблицу , но не получается привязать к фиксированому файлу его http://www.delphisources.ru/pages/fa...load_file.html

Надеюсь на помощь

[TOJluK]

Что именно не получается?

[T-dayne]

вот что происходит при создании формы

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, 'c:\data.txt');
   Reset(f);
   with StringGrid1 do
   begin

    Readln(f, iTmp);
     ColCount := iTmp;

    Readln(f, iTmp);
     RowCount := iTmp;

    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
end; 


однако таблица, остается пустой.(файл не пустой)

[TOJluK]

Ну понятно, а в файле вначале записано кол-во строк и столбцов?

[T-dayne]

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

Ну понятно, а в файле вначале записано кол-во строк и столбцов?

не понял о каких столбцах речь...
если загружать кнопкой load, то все корректно загружается.
но при запуске программы почему-то не работает.
http://file.qip.ru/file/118486644/efdbc296/123.html

[TOJluK]

Вы бы хоть исходник чтоль разменстили, а то по откомпилированному проекту сложно судить, где вы что сделали не так.)) Но могу сказать, что у меня с вашим файлом test.txt все работает.

[Страдалецъ]

Не, так как вы делаете не пойдет.
Вы работаете с текстовым файлом, и поэтому при чтении из файла командой ReadLn вы считывать строку должны в строковую переменную, а вот уже потом, вы ее можете преобразовать в число и получить размерность таблицы.
Запись в текстовый файл должна происходить по тому-же принципу, если надо сохранить число, то преобразуйте его сначала в строку, а потом уже записывайте в файл.

[T-dayne]

при его отдельной загрузке, я знаю что работает. Но не работает событие create для главной формы , не загружается он автоматически при запуске программы!

Source:

[AntoNechayuk]

не могу сохранить вложение... перезалейте

[TOJluK]

Сообщение от T-dayne

при его отдельной загрузке, я знаю что работает. Но не работает событие create для главной формы , не загружается он автоматически при запуске программы!

Source:

Да все там работает. Единственное, что могу предположить- это то, что указан путь к файлу, а его там нет:

Код:

   AssignFile(f, 'c:\test.txt');

Т.е. убедитесь, что 'c:\test.txt' существует на самом деле по этому пути.

[NIch]

Зайди в ObjectInspector своей формы, там на вкладке Events выбери нужную процедуру (FormCreate) напротив события OnCreate...
Теперь OnCreate будет работать, но прога будет ворчать т.к. ты указываешь читать файл с C:\ , а его там нет...
Тебе бы добавить функцию FileExists
http://www.delphibasics.ru/FileExists.php

[T-dayne]

там файл есть, заранее подготовленный и читаемый. Но событие не срабатывает.

нить число, то преобразуйте его сначала в строку,

вот кусок кода:

PHP код:

begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end; 


так и есть, файл читается, сначала в строковую переменную.

[T-dayne]

попытался сделать так:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
   f:          tstringlist;
   iTmp, i, k, l: Integer;
   strTemp:    String;
 begin
   f:=tstringlist.Create();
   f.loadfromfile('c:\test.txt');
   with StringGrid1 do
   begin
   for l:=1 to 10 do
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         strtemp:=f.strings[l];
         Cells[i, k] := strTemp;
       end;
   end;
f.Free;
end; 


тоже не срабатывает!

[TOJluK]

T-dayne я еще раз повторяю- в представленном тобой коде все работает. Проблема не в нем, может что- то с системой, может с дэльфой, но не с кодом.

[NIch]

Повторюсь еще раз

Зайди в ObjectInspector своей формы, там на вкладке Events выбери нужную процедуру (FormCreate) напротив события OnCreate...

У тебя такого не было, проверил в твоем коде...