Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

StringGrid & File Знайти схожі гілки


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

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

procedure TForm1.TreeView1Click (Sender: TObject);
var i:integer; t:string;
починати
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;
починати
AssignFile(F1,"file_name");
Reset (F1);
j: = 0;
if TreeView1.Items.Item[1].selected then
with StringGrid1 do
повторювати
for i: = 0 to 5 do
починати
Readln(F1,t);
Cells[i,j]:=t;
end;
j: = 1;
until j<>1;
end;
||||||||||||||||||||||||||||||||||||||||||||||||||||


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



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.54 MB
Час: 0.023 c
14-74968
кіборг
2002-12-03 11:36
2002.12.23
Психологи є?


3-74576
VanySh
2002-12-02 20:17
2002.12.23
KADao


8-74853
Злий
2002-03-27 07:41
2002.12.23
Не підкажете хорошу компоненту для програвання mp3, wav файлів


1-74742
a-leksey
2002-12-14 15:25
2002.12.23
Як створити покажчик на об'єкт всередині методу цього об'єкта? заступники


1-74812
знову
2002-12-10 17:22
2002.12.23
RadioButton





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська