Лабуда с файлами

← →
Bovdur (2003-10-09 17:58) [0]

Єсть файл записей:
Type
dani=record
q:string[150];
p1:string[20];
p2 :string[20];
p3 :string[20];
p4 :string[20];
p5 :string[20];
p6:string[20];
v:integer;
end;

Var f: file of dani; zap:dani;

Хочу вывести содержимое файла в StringGrid
AssignFile(f,filename);
reset(f);
StringGrid1.RowCount:=filesize(f);
for i:=1 to filesize(f) do
begin
read(f,zap);
StringGrid1.Cells[0,i]:=zap.q;
StringGrid1.Cells[1,i]:=zap.p1;
StringGrid1.Cells[2,i]:=zap.p2;
StringGrid1.Cells[3,i]:=zap.p3;
StringGrid1.Cells[4,i]:=zap.p4;
StringGrid1.Cells[5,i]:=zap.p5;
StringGrid1.Cells[6,i]:=zap.p6;
StringGrid1.Cells[7,i]:=inttostr(zap.V);
end;
closefile(f);

В результате выводится почемуто
StringGrid1.Cells[0,i]:=zap.q;
StringGrid1.Cells[7,i]=0
остальные не выводятся или вобще какая то лабуда.
Что здесь неправильно.
Как мне вывести содержымое файла

← →
ZEE (2003-10-09 18:06) [1]

а с записью проблем нет? - ну т.е. сам файл точно содержит все что надо?..

← →
Bovdur (2003-10-09 18:10) [2]

Да все правильно записано

← →
ZEE (2003-10-09 18:14) [3]

>Bovdur (09.10.03 17:58)
>Что здесь неправильно
да вроде все правильно, поэтому и спрашивал про запись - может все-таи покажешь как записываешь...

← →
Bovdur (2003-10-09 18:15) [4]

В чем весь прикол. Прожка ета чтото типа тестовой программы типа вопрос-варианты ответов-ответ.
Файл создан, и если запустить тест все отображаетсь верно: вопрос, варианты ответов.
Но когда я хочу открыть файл и посмотреть все содержымое начинается ета лобуда.
Если что могу на мыло выслать исходняки может кто поможет.

← →
Bovdur (2003-10-09 18:16) [5]

дай адрес мыла вышлю так будет проще всего

← →
Verg (2003-10-09 18:19) [6]

> dani= packed record

Не в этом ли дело?

← →
ZEE (2003-10-09 18:19) [7]

давай, посмотрю...

← →
Bovdur (2003-10-09 19:59) [8]

извините что долго молчал проблемы снетом
dani=packed record
попробывал вроде тот же результат

← →
Bovdur (2003-10-11 12:15) [9]

Ну то ка с моэй проблемой. никто не желает помочь?

← →
Verg (2003-10-11 12:22) [10]

> Bovdur (11.10.03 12:15) [9]

Тебе же сказали - покажи как записывается этот файл.

Понимаешь, Это :

> Bovdur (09.10.03 18:10) [2]
> Да все правильно записано

- голословно.

Чудес же не бывает.

← →
Bovdur (2003-10-11 12:26) [11]

Всмысле создание самого файла даных?

← →
Bovdur (2003-10-11 12:32) [12]

assignFile(f,filename);
reset(f);
if (edit1.Text="") or (edit8.Text="") then exit;
seek(f,filesize(f));
zap.q:=edit1.Text;
zap.p1:=edit2.Text;
zap.p2:=edit3.Text;
zap.p3:=edit4.Text;
zap.p4:=edit5.Text;
zap.p5:=edit6.Text;
zap.p6:=edit7.Text;
zap.V:=strtoint(edit8.Text);
write(f,zap);
close(f);

← →
Bovdur (2003-10-11 12:36) [13]

Но скорее тут проблема не всоздании файла даных.
Поскольку если взять опцию начать тест, содержимое файла выводится верно.

← →
Verg (2003-10-11 12:40) [14]

> Bovdur (11.10.03 12:32) [12]
> assignFile(f,filename);
> reset(f);
> if (edit1.Text="") or (edit8.Text="") then exit;
> seek(f,filesize(f));
> zap.q:=edit1.Text;
> zap.p1:=edit2.Text;
> zap.p2:=edit3.Text;
> zap.p3:=edit4.Text;
> zap.p4:=edit5.Text;
> zap.p5:=edit6.Text;
> zap.p6:=edit7.Text;
> zap.V:=strtoint(edit8.Text);
> write(f,zap);
> close(f);

А если "совсем" показать?

Как здесь объявлена zap?

Отлаживать пробовал? Может проблема с StringGrid?

Мелкие неточности, а вообще-то просто ошибки надо бы исправить:

> StringGrid1.RowCount:=filesize(f);
> for i:=1 to filesize(f) do
Почему i отсчитывается с 1-цы, а не с нуля?
> begin
> read(f,zap);
> StringGrid1.Cells[0,i]:=zap.q;

> assignFile(f,filename);
> reset(f);
> if (edit1.Text="") or (edit8.Text="") then exit;
ну хорошо, может и exit, но кто будет тогда делать close(f)?
> seek(f,filesize(f));
> zap.q:=edit1.Text;
> zap.p1:=edit2.Text;
> zap.p2:=edit3.Text;
> zap.p3:=edit4.Text;
> zap.p4:=edit5.Text;
> zap.p5:=edit6.Text;
> zap.p6:=edit7.Text;
> zap.V:=strtoint(edit8.Text);
> write(f,zap);
> close(f);

← →
Bovdur (2003-10-11 12:47) [15]

← →
Verg (2003-10-11 12:48) [16]

Счас. надо прочистить от спама публичный почт.ящик....
А то там..... Хоть дихлофосом......

← →
Bovdur (2003-10-11 12:49) [17]

Ок

← →
Verg (2003-10-11 12:52) [18]

Ё!! Чего там только не было .... :)))
Ну давай: andruk@mail.ru

← →
Bovdur (2003-10-11 13:17) [19]

I>
> Verg

Исходняки выслал посмотри что да как буду очень благодарен.

← →
Verg (2003-10-11 13:55) [20]

Слушай, там полный "бардак".....

в одном (unit1)
test =record
q :string[150];
p1,p2,p3,p4,p5,p6:string[ 100];
V:integer;
end;

в другом (unit3)
test =record
q :string[150];
p1,p2,p3,p4,p5,p6:string[ 20];
V:integer;
end;

это например....

И чего ж ты хотел-то?!

Понятия о типизации данных, модульности.... короче случай тяжелый....

Ты извини, но..... азы надо изучать... - в "школу"

← →
Marser (2003-10-13 22:50) [21]

Да просто "бовдур" по-украински "болван"

Лабуда с файлами Найти похожие ветки