Форум: "Базы";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Вниз
Помогите прочесть в 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 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
