| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите прочесть в TStringGrid [D6]

Dennis S ©   (2002-10-15 01:52:00) 

Базами данным пока не занимался, т.к. понимаю, что этот вопрос нуждается в подробном изучении и пока меня особо не интересовало, но вот приспичело...

Очень нужно грузить большой (но не для БД) объем взамосвязанных данных. Хотелось бы, с нетипизированого файла (records) прочесть в поля TStringGrid при загрузки формы. Как это сделать?
В TStringGrid - 6 полей, В файле 6 типов записей...

Заранее спасибо и просьба, по подробнее, что касается TStringGrid.

---

Karbo   (2002-10-16 02:01:00) [1]

Дак это файл - слабонетипизированный.

type TNonType = record
тип1 : cardinal;
тип2 : double;
тип3 : string [40]
end;

Var Buffer : TNonType; F : file of TNonType;


Begin
Try
Assignfile ( f, "MyFile.pzd");
Reset (f);
StringGrid.RowCount:=0;
while not eof (f) do
begin
readln ( f, buffer );
StringGrid.RowCount := StringGrid.RowCount+1;
StringGrid.Cells [0,RowCount-1] := IntToStr (bufer.тип1);
StringGrid.Cells [1,RowCount-1] := FloatToStr (bufer.тип2);
StringGrid.Cells [2,RowCount-1] := (bufer.тип3);
end;
fileclose (f);
except
не повезло
end
end;


---

Dennis S   (2002-10-16 01:42:00) [2]

в таком: 1 тип 1запись, 2тип 1зп....6тип 1запись
и тд: 1тип, 2 тип....6тип

---

Karbo   (2002-10-16 01:36:00) [3]

А в каком порядке в файле идут все эти "1тип 1запись, 2ст - 2тип 1зп....6ст - 6тип 1запись" ?

---

Dennis S   (2002-10-16 00:54:00) [4]

2 ЮЮ
------
--begin
-- считал свою строку;
------
Все кул, но там их 6 и вставлять надо не по колонкам,
а по-строчно...
т.е. ->
1строка:
1столбик - 1тип 1запись, 2ст - 2тип 1зп....6ст - 6тип 1запись
2строка:
1столбик - 1тип 2запись, 2ст - 2тип 2зп....6ст - 6тип 2запись
итд....до конца

Any comments? :)
и

---

ЮЮ   (2002-10-15 10:40:00) [5]

StringGrig.RowCount:=1;
Пока не кончился файл do
begin
считал свою строку;
StringGrig.RowCount:=StringGrig.RowCount+1;
StringGrig.Cell[0,StringGrig.RowCount-1]:=... //1 колонка
...
StringGrig.Cell[5,StringGrig.RowCount-1]:=... //6 колонка
end;

---

Dennis S   (2002-10-15 09:35:00) [6]

Подскажите, кто-нибудь...

---

Наверх