type
lists = record
i,summ:integer;
sroc: real;
pr: array [1..30] of string;
oc: array [1..30] of integer;
fio:string;
end;
...
procedure TOtchForm.BitBtn8Click(Sender: TObject);
var
a,b:integer;
begin
Windows.DeleteFile('C:\123\IniFileName.Ini');
for a := 1 to 20 do
begin
if list[a].fio <> '' then
begin
for b := 1 to 20 do
begin
if list[a].oc[b] <>0 then
begin
IniFile.WriteString(list[a].fio,'Предмет'+inttostr(b),list[a].pr[b]);
IniFile.WriteInteger(list[a].fio,'Оценка'+inttostr(b),list[a].oc[b]);
end;
end;
IniFile.WriteInteger(list[a].fio,'i',list[a].i);
IniFile.WriteInteger(list[a].fio,'Сумма',list[a].summ);
IniFile.WriteFloat(list[a].fio,'Средняя оценка',list[a].sroc);
end;
end;
iniFile.free;
end;
24.09.2016, 19:55
Чтение из INI файла
Линейный вид
