[Devil669]

Есть прога,считающая сумму четных чисел меньших 100

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,c:integer;
begin
c:=0;
//i:=0;
for i:=1 to 99 do
if i mod 2=0 then c:=c+i;
Memo1.Text:=inttostr(c);

end;

Я вывожу в типизированный файл

Код:

procedure TForm1.Button3Click(Sender: TObject);
 type
 MyType=record
var
f2: file of integer;
if RadioGroup1.ItemIndex=2 then
    begin
      saveDialog1.DefaultExt := 'mp3';
      saveDialog1.Filter := 'mp3-типизированный(*.mp3)|*.mp3';
      if savedialog1.Execute then
        begin
          assignfile(f2,savedialog1.FileName);
           rewrite(f2);
             for i:=0 to memo1.Lines.Count do begin

             write(f2);
             end;
           closefile(f2);
        end;

        end;

А потом открываю файл, но ничего не происходит(хотя ошибки в коде не выдает). В чем ошибка.

Код:

procedure TForm1.Button2Click(Sender: TObject);
type
MyType=record
var
f2: file of integer;
x: integer;
if RadioGroup1.ItemIndex=2 then
        begin
          openDialog1.Filter := 'mp3-типизированный(*.mp3)|*.mp3';
            if opendialog1.Execute then
              begin
                assignfile(f2,opendialog1.FileName);
                Reset(f2);
                  while not EOF(f2) do
                    begin
                      read(f2,x);
                 Memo1.Lines.Add(inttostr(x));
                    end;
                closefile(f2);
              end;
        end;
 end;

[Страдалецъ]

Код:

for i:=0 to memo1.Lines.Count do begin

             write(f2);
             end;

Это прямо уличная магия. Сколько пустоту ни записывай, все равно будет пусто
ПС: Мемо имеет собственные методы сохранения в файл, так-что все можно сделать одной строчкой.