Средства разработки приложений для персональных компьютеров. Ефремов О.В. - 24 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

1.2
15
2.7
2.9
11
12
14
19
33.8
11
11
15
Рис. 3. Схема записи чисел из файла в сетку строк
Вариант 1: Процедура с заранее известным количеством
procedure TfrmMain.btnLoadClick(Sender: TObject);
var
fdata: textfile;
st: string;
i,j: byte;
begin
if odLoad.execute then
begin
assignfile(fdata,odLoad.filename);
reset(fdata);
for i:=1 to 4 do
begin
sgData.Cells[0,i-1]:='Ряд '+IntToStr(i);
for j:=1 to 3 do
begin
readln(fdata,st);
sgData.Cells[j,i-1]:=st;
end;
end;
closefile(fdata);
end;
end;
Вариант 2: Процедура с неизвестным заранее количеством
procedure TfrmMain.btnLoadDataClick(Sender: TObject);
var
fdata: textfile;
st: string;
j: byte;
count: word; // счетчик
begin
if odLoad.execute then
begin
assignfile(fdata,odLoad.filename);
reset(fdata);
count:=0;
while not eof(fdata) do

Страницы