Курсовая работа: Создание базы данных

until s[j]='-';

st:='';

for k:=j+1 to length(s) do

st:=st+s[k];

if st[length(st)]='Д' then begin

st:=inttostr(Table1['Номер'])+';'+Table1['ФИО']+';'+Table1['Факультет']+';';

st:=st+inttostr(Table1['Курс'])+';'+Table1['Группа']+';';

if Table1['Поощрения']=null then

st:=st+';'

else

st:=st+Table1['Поощрения']+';';

if Table1['Датавыдачи']=null then

st:=st+';'

else

st:=st+Table1['Датавыдачи']+';';

if Table1['Сумма']=null then

st:=st+';'

else

st:=st+Table1['Сумма']+';';

if Table1['Примечание']=null then

st:=st+';'

else

st:=st+Table1['Примечание']+';';

if Table1['Поездки']=null then

st:=st+';'

else

st:=st+Table1['Поездки']+';';

if Table1['Примечания']=null then

st:=st+';'

К-во Просмотров: 446
Бесплатно скачать Курсовая работа: Создание базы данных