Курсовая работа: Создание базы данных
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+';'