Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись в фал значений из динамического массива

Просто_новичок © (2007-05-14 21:16:00)
Такая проблема, хочу сохранить в файл 5 цифр: 01234, реализовываю это с помощью статического массива - всё ок! Работает! Вот код:
procedure TForm1.Button1Click(Sender: TObject);
const
mass: array [1..5] of byte = (48,49,50,51,52);
var
f:file;
i:byte;
begin
OpenDialog1.Execute;
AssignFile(f,OpenDialog1.FileName);
Rewrite(f,5);
BlockWrite(f,mass,1);
end;
Теперь хочу туже самую задачу реализовать с помощью динамического массива, не получается, ну ни как, записывает в файл не 01234, а какую-то фигню. Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
mass: array of byte;
f:file;
i:byte;
begin
OpenDialog1.Execute;
AssignFile(f,OpenDialog1.FileName);
Rewrite(f,5);
for i:=1 to 5 do
begin
Setlength(mass,i);
mass[i-1]:=47+i;
end;
BlockWrite(f,mass,1);
end;
Почему не получается? Подскажите пожалуйста, как решить мне данную задачу именно с помощью динамического массива.

Просто_новичок (2007-05-14 22:11:00) [1]
begin...end - ОГРОМНОЕ СПАСИБО!!!!

begin...end (2007-05-14 22:05:00) [2]

> for i:=1 to 5 do
> begin
> Setlength(mass,i);
> mass[i-1]:=47+i;
> end;
> BlockWrite(f,mass,1);
> end;

SetLength(mass, 5);
for i := 1 to 5 do
mass[i - 1] := 47 + i;
BlockWrite(f, mass[0], 1);

Просто_новичок (2007-05-14 21:44:00) [3]
Кто-нибудь, подскажите, плиз....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »