Скачать: CL | DM;

Помогите прочесть в TStringGrid   Найти похожие ветки 

← →
Dennis S ©   (2002-10-15 01:52) [0]

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

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

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

---

← →
Dennis S ©   (2002-10-15 09:35) [1]

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

---

← →
ЮЮ ©   (2002-10-15 10:40) [2]

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-16 00:54) [3]

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? :)
и

---

← →
Karbo ©   (2002-10-16 01:36) [4]

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

---

← →
Dennis S ©   (2002-10-16 01:42) [5]

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

---

← →
Karbo ©   (2002-10-16 02:01) [6]

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

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;


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c