Найдите ошибку плиз (делфи)

[payk]

begin

StringGrid1.Cells[0,0]:='ФИО'; (вот в этой строке ошибка)

StringGrid1.Cells[1,0]:='Телефон';

StringGrid1.Cells[2,0]:='Год установки';

assignfile(f,'h:/телефоны.txt');

reset(f);

for i:=1 to filesize(f) do

begin

read(f,s);

stringgrid1.cells[0,i]:=s.fio;

stringgrid1.cells[1,i]:=s.tel;

stringgrid1.cells[2,i]:=s.dy;

StringGrid1.RowCount:=StringGrid1.RowCount+1;

end;

closefile(f);

end;

[coder]

StringGrid1.Cells[0,0]:='ФИО'; (вот в этой строке ошибка)

ошибки в строке нет =).

неплохо бы вашу версию ошибки увидеть. телепатов нет.

у вас при компиляции проблема или в рантайме?

[payk]

пишет

undeclared identifier: 'StringGrid1'

[coder]

payk

ну вот и раскрыт секрет,

а где вы создали экземпляр объекта TStringGrid

[payk]

coder

Всё, разобрался )) это лишняя часть программы )))

Спасибо. )

вот здесь еще

begin

assignfile(f,'H:\Телефоны.txt');

reset(f);

j:=1;

stringgrid1.rowcount:=2;

stringgrid1.Rows[2].clear;

for i:=1 to filesize(f) do

begin

read(f,s);

if s.dy>strtoint(combobox1.text) then (вот тута ошибка)

begin

stringgrid1.cells[0,j]:=s.fio;

stringgrid1.cells[1,j]:=s.tel;

stringgrid1.cells[2,j]:=s.dy;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

inc(j);

end;

end;

closefile(f);

end;

[coder]

payk

так и не научились ?

телепатов нет.

код гумно ацкое.

[payk]

coder

не научились чему ? здесь точно не такая ошибка как в прошлом коде.

[coder]

payk

видать нет.

телепатов нет.

не такая ошибка как в прошлом коде.

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

[payk]

Вот такая

pas(57): Incompatible types

[coder]

вы видать решили растянуть эту беседу =))

ну делитесь или телитесь дальше, как вам угодно, но шо це таке

s.dy мне не известно, могу предположить туда попадает что то связано с годом, но как описано у вас увы. телепатов нет.

[payk]

s.fio Фамилия Имя Отчество

s.tel Телефон

s.dy год установки

нужно, что бы прога вывела в СтрингГрид Информацию об установивших телефоны с Вводимого года.

[coder]

щас всё объясню

полезной информации 0 для решения вашей проблемы.

s.dy мне не известно, могу предположить туда попадает что то связано с годом, но как описано у вас увы.

ответа нет? как описан s.dy

ps теперь позвольте полюбопытствовать, а для чего все это пишется, учеба ? а где ?

[payk]

coder

Учеба, ВСГТУ.

создаю прогу с базой данных.

type

telefon=record

fio:string[50];

tel,dy:string[12];

[coder]

payk

курс то какой ?

dy:string[12] и strtoint(combobox1.text) при такой подсказке Incompatible types тут уже без телепатии понятно, не так ли ?

[payk]

О_О точно.

2 курс

[Lucky]

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

payk, учись в мозгах программировать и готовый код выдавать, а то у тебя сплошные недосидки получаются - извиняюсь за выражение, ахота какнуть, а получается пукнуть.

думать надо больше, думать, а не в ромашку играть...