payk

coder

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

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

type

telefon=record

fio:string[50];

tel,dy:string[12];

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

s.tel Телефон

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

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

Вот такая

pas(57): Incompatible types

coder

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

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;

пишет

undeclared identifier: 'StringGrid1'

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;

конец света близок ! ! ! спасайте свои души ! ! !

О_О в 18 квартале реально туман сильный.

со вспышкой

Роланд из Гилеада

ага, ботинками обкидать кого-нибудь на сцене.

остановка трамваев на центральном рынке

Скачал, установил, такая же фигня. Шо можно ещё сделать ?

он вместе с раздачей шел ? в какой папке ?

MirrorsEdge.exe его я заменил

Люди ! ! ! У мну глюки ! ! ! вроде всё норм было, а потом она пешком начала ходить.

XLXV

Прикольно )) сам бы тоже не вмешался. А вот то что обокрали 12 раз и сняли ботинки 8, это враньё ))

давайте еще имэйл, от него пароль.....дату рождения.......как зовут родителей, где работают

когда уходять на работу......где хранятся деньги......код сигнализации

*158

В Воскресенье, уряяя ! ! ! )) нада сходить. Цена та же ?

http://ulanovka.ru/forum/viewtopic.php?t=62261

http://ulanovka.ru/forum/viewforum.php?f=124 вот они видЕо )))

не плохо, но зачем это нужно ?

ыыы не плохо- не плохо Ангелы Битвы

При скандинавских богах такие, как вы, попадали в Вальхаллу. Бесстрашные воины, не страшащиеся смерти. Вы погибли в бою и нисколько об этом не жалеете. И потому и дальше вам придётся сражаться. Ангелы Битвы и ныне витают над полями сражений помогая тем, кому ещё есть, что свершить, и забирая тех, кто выполнил своё предназначение. Ближе всех вам Ангел Смерти, вы почти коллеги.

Что такое лост, Которому нужно закончится ?

Заинтересован. Когда ещё можно будет прыгнуть ?

vladiks

+1

Итак Вы Воин Шинсенгуми...Защитник Киото...Ваши цели очень благородны и у вас доброе сердце,но вы понимаете что ваш меч несет только смерть и принимаете эту истину

N1ke

немудрено, глаза-то у тебя тряпкой перевязаны ))