Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.03;
Скачать: 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 вся ветка

Текущий архив: 2007.06.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.058 c
15-1178529482
lu4ina
2007-05-07 13:18
2007.06.03
TreeView


15-1178456078
raqy.style
2007-05-06 16:54
2007.06.03
формирование фильтра


2-1179137910
FIL-23
2007-05-14 14:18
2007.06.03
как подать звук на спикер из под XP


4-1167030209
clickmaker
2006-12-25 10:03
2007.06.03
диалог с "SysDateTimePick32" не работает под самой первой win95


15-1178791060
Руслан
2007-05-10 13:57
2007.06.03
Можно ли включить компьютер с помощью сетевой карты?