Скачать: CL | DM;

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

← →
Просто_новичок   (2007-05-14 21:16) [0]

Такая проблема, хочу сохранить в файл 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 21:44) [1]

Кто-нибудь, подскажите, плиз....

---

← →
begin...end ©   (2007-05-14 22:05) [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 22:11) [3]

begin...end - ОГРОМНОЕ СПАСИБО!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c