Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StringGrid&File [D6, Win95/98]

Tik © (2002-12-10 21:41:00)
Ввожу числа в файл. Потом при нажатии на узел вывожу эти числа в 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;

Харьковчанин (2002-12-10 22:43:00) [1]
Как уже сказали, надо сделать скорее всего так:

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???

Anatoly Podgoretsky (2002-12-10 21:56:00) [2]
А работаешь с 7 колонками, ты бы прояснил, что не получается, может есть ошибка?

Song (2002-12-10 21:51:00) [3]
А кто RowCount будет увеличивать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »