Запись текста в файл. Delphi 7

[qpMAXqp]

Здравствуйте.
Хочу записать максимальный элемент массива в текстовый документ. По красоте, он должен ещё и открыться что бы было 2 окошка: Delphi и текстового файла, в котором будет записан макс элемент массива

 procedure TForm1.btn1Click(Sender: TObject);
var a: array [1..10] of integer;
max, i: integer;
f: TextFile;

begin
  AssignFile(f, 'c:\exampleMax.txt');
  Rewrite(f);
  Randomize;
    form1.mmo1.Lines.Clear;
  max:=0;

   for i :=1 to 10 do  begin
     a[i] :=Random(99);

     if a[i] > max then
      max:= a[i];
        end;
    for i :=1 to 10 do
      form1.mmo1.Lines.Add(IntToStr(a[i]));
      form1.mmo1.Lines.Add(' максимальный элемент: ' + IntToStr(max)); // в мемо вывел
      Writeln(f, max); // вывел в файл
      CloseFile(f);
end;

Программа зависает при запуске.
Признателен за любые подсказки и помощь.

[ATL]

Объект точно называется mmo1? Может Memo1?
В целом код рабочий, проверьте.

[Stilet]

Программа зависает при запуске.

Представленный код к запуску не имеет никакого отношения.
Поэтому - полный код в студию.

[qpMAXqp]

Мне бы студийный номер :D
Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 procedure TForm1.btn1Click(Sender: TObject);
var a: array [1..10] of integer;
max, i: integer;
f: TextFile;

begin
  AssignFile(f, 'c:\exampleMax.txt');
  Rewrite(f);
  Randomize;
    form1.mmo1.Lines.Clear;
  max:=0;

   for i :=1 to 10 do  begin
     a[i] :=Random(99);

     if a[i] > max then
      max:= a[i];
        end;
    for i :=1 to 10 do
      form1.mmo1.Lines.Add(IntToStr(a[i]));
      form1.mmo1.Lines.Add('максимальный элемент: '+ IntToStr(max));
      Writeln(f, max);
      CloseFile(f);
end;



end.

[qpMAXqp]

Сообщение от ATL

Объект точно называется mmo1? Может Memo1?
В целом код рабочий, проверьте.

Да да, точно =)

[Stilet]

Не понимаю как этот код может стать причиной зависания при запуске, если только btn1Click не является событием для OnCreate формы.
Или имелось ввиду "когда я запускаю мышку по кнопке"?

[Serge_Bliznykov]

указание Form1 для mmo1 совершенно не обязательно в методе формы.
я бы так написал:

procedure TForm1.btn1Click(Sender: TObject);
var a: array[1..10] of integer;
  max, i: integer;
  f: TextFile;

begin
  Randomize;
  AssignFile(f, 'c:\exampleMax.txt');
  Rewrite(f);
  mmo1.Lines.Clear;

  a[1] := Random(99);
  max := a[1];

  for i := 2 to 10 do begin
    a[i] := Random(99);

    if a[i] > max then
      max := a[i];
  end;
  for i := 1 to 10 do
    mmo1.Lines.Add(IntToStr(a[i]));
  mmo1.Lines.Add('максимальный элемент: ' + IntToStr(max));
  Writeln(f, max);
  CloseFile(f);
end;

но это не принципиально. Ваш код вполне себе работоспособный.
В чём проявляется зависание?!
Рискну предположить, что у Вас Windows 7 или 8 и у программы банально нет прав писать в корень диска C:\
изменить путь для сохраняемого файла (например, так:

  AssignFile(f, ExtractFilePath(Application.ExeName) + 'exampleMax.txt');

тогда файл будет создан в том же каталоге, где лежит ваш EXE файл.

[qpMAXqp]

Рискну предположить, что у Вас Windows 7 или 8 и у программы банально нет прав писать в корень диска C:\
изменить путь для сохраняемого файла (например, так:

  AssignFile(f, 'c:\1\exampleMax.txt');

Вы были правы, изменил папку и файл создался - уже круто )
Возможно ли его открыть как-нибудь,используя btn1Click ?)
Ввёл rewrite(f);
запустил программу, нажал на кнопку, и программа зависла
А так, уже норм. Благодарю )

[Serge_Bliznykov]

Сообщение от qpMAXqp

Вы были правы, изменил папку и файл создался - уже круто )

ну, это уже хорошо.

Сообщение от qpMAXqp

Возможно ли его открыть как-нибудь,используя btn1Click ?)
Ввёл rewrite(f);
запустил программу, нажал на кнопку, и программа зависла
А так, уже норм. Благодарю )

не понял, что именно Вы хотите сделать.

[qpMAXqp]

В итоге файл должен быть открыт, при нажатии на кнопку, в котором будет записан макс элемент.