Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.07.2012, 18:15   #1
TonyF
Пользователь
 
Аватар для TonyF
 
Регистрация: 16.12.2011
Сообщений: 14
По умолчанию Не выводятся значения в stringgrid из файла .txt

В общем, есть программа, которая должна читать массив из файла тхт типа:
х у
2 3
4 5
5 6

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

Код:
procedure TForm1.Button2Click(Sender: TObject);
var
   f:TextFile;
   i,k,x,y:integer;
   s:String;
 begin
   AssignFile(f, 'file.txt');
   Reset(f);

   while not eof(f) do
       begin
         Readln(f,x,y);
         //StringGrid1.cells
         StringGrid1.Cells[x,y]:=s;
         //StringGrid1.Cells[x,0]:=s;

   end;
   CloseFile(f);
 end;
TonyF вне форума Ответить с цитированием
Старый 08.07.2012, 18:25   #2
Zer0
Форумчанин
 
Аватар для Zer0
 
Регистрация: 13.12.2007
Сообщений: 788
По умолчанию

неправильно считываете
по факту вы считываете номера столбцов и строк, и в эти позиции записываете пустую строку s

правильно будет так:

Код:
procedure TForm1.Button2Click(Sender: TObject);
var
   f:TextFile;
   k,x,y:integer;
   s:String;
 begin
   AssignFile(f, 'file.txt');
   Reset(f);
   readln(f,s);
   k:=0;
   while not eof(f) do
       begin
         Readln(f,x,y);
         StringGrid1.Cells[0,k]:=IntToStr(x);
         StringGrid1.Cells[1,k]:=IntToStr(y);
         inc(k);
   end;
   CloseFile(f);
 end;
благодарность - сюда (не забываем писать от кого)
Zer0 вне форума Ответить с цитированием
Старый 08.07.2012, 18:54   #3
TonyF
Пользователь
 
Аватар для TonyF
 
Регистрация: 16.12.2011
Сообщений: 14
По умолчанию

Благодарю! Все работает
TonyF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
txt файл в StringGrid evgen-20058 Общие вопросы Delphi 4 21.08.2012 00:13
Запись из файла txt в StringGrid mafuea Помощь студентам 6 09.12.2011 15:41
Как скопировать текст с файла 1.txt и записать в 2.txt Kasper1 Общие вопросы по Java, Java SE, Kotlin 1 14.12.2010 05:56
Из StringGrid В txt Roger_07 Общие вопросы Delphi 2 07.01.2009 02:57