Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

StringGrid&File   Найти похожие ветки 

 
Tik   (2002-12-10 21:41) [0]

Ввожу числа в файл. Потом при нажатии на узел вывожу эти числа в StringGrid1. Покрайней мере я пытаюсь, но почему-то не получается.

procedure TForm1.TreeView1Click(Sender: TObject);
var i:integer; t:string;
begin
AssignFile(F1,"file_name");
Reset(F1);

if TreeView1.Items.Item[1].selected then

//у меня StringGrid1 из двух строк и 6 колонок. заполяню вторую строку только.

with StringGrid1 do
for i:=0 to 6 do
ReadLn(F1,t);
Cells[i,1]:=t;
end;


 
Song ©   (2002-12-10 21:51) [1]

А кто RowCount будет увеличивать?


 
Anatoly Podgoretsky ©   (2002-12-10 21:56) [2]

А работаешь с 7 колонками, ты бы прояснил, что не получается, может есть ошибка?


 
Харьковчанин   (2002-12-10 22:43) [3]

Как уже сказали, надо сделать скорее всего так:

procedure TForm1.TreeView1Click(Sender: TObject);
var i,j:integer; t:string;
begin
AssignFile(F1,"file_name");
Reset(F1);
j:=0;
if TreeView1.Items.Item[1].selected then
with StringGrid1 do
repeat
for i:=0 to 5 do
begin
Readln(F1,t);
Cells[i,j]:=t;
end;
j:=1;
until j<>1;
end;
||||||||||||||||||||||||||||||||||||||||||||||||||||


А у меня такой вопросик!
Как заполненный Stringgrid экспортировать в Excel???



Страницы: 1 вся ветка

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
6-74879
Lefan
2002-10-28 09:19
2002.12.23
проверка страницы перед закачкой...


14-74912
MaximatorVeter
2002-11-28 21:44
2002.12.23
Мудрость приходящая с годами


1-74820
stone
2002-12-11 16:20
2002.12.23
Свойство Caption у компонента.


7-75006
calmterror
2002-10-19 22:03
2002.12.23
Запуск программы из сервиса


7-74998
Semion
2002-10-17 06:28
2002.12.23
помогите сроки горят!!!!!! - удаленное соединение