Проблема работы с текстом.

[Kykyryza]

Програма должна выводить нименьшие строки, но вместо этого,вылетает сообщение об ошибке "debugge exception natification", и всё зависает.
Я не могу понять, это что то с компилятором, или очень коряво написано?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tn,s:string;
  t:TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.execute then
  begin
	tn:=opendialog1.filename;
        memo1.lines.loadfromfile(tn);
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var ca, i,g,j: integer;  c:Real;
    a: array [1..100] of Integer;
begin
      assignfile(t,tn);
      reset(t);
      read(t,s);


    ca:=0;
    while not Eof(t) do
      begin
         a[i]:=length(s);
              ca:=ca+a[i];
               i:=i+1;
      end;
     c:=ca/i;
     j:=0;
    for g:=0 to i do
    begin
      if a[g]<c then Memo2.Lines[j]:=memo1.Lines[g];

    end;
      closefile(t);
       end;

end.

[Alexei91]

Нельзя смешивать работу с файлами, открытыми с помощью Reset и Rewrite
(для их обработки применяются процедуры Read, Write, BlockRead, BlockWrite) и работу с файлами, открытыми с помощью функций Windows.

[Stilet]

Alexei91

Ну и где мы там такое увидели?

Kykyryza

Пройдишь пошаговкой по программе, выясни на каком операторе застряет.
Поставь точку прерывания на assignfile(t,tn); и от нее трассируй.

[WhiteSpirit]

Скорее всего, ошибка здесь:

for g:=0 to i do
    begin
      if a[g]<c then Memo2.Lines[j]:=memo1.Lines[g];

а массив объявлен как

a: array [1..100] of Integer;

т.е. индексация должна идти с 1.

[Alexei91]

var
  Form1: TForm1;
  tn,s:string;
...
memo1.lines.loadfromfile(tn);
...
assignfile(t,tn);

Обратите внимание на tn.
http://articles.org.ru/docum/filefunc.php - работа с файлами в Delphi.
ИМХО,
Kykyryza смешивает досовский метод работы с файлами (от паскаля) и виндосовский - от этого и беды.


WhiteSpirit вроде как у Memo.Lines[i] нумерация с 0 идёт.

P.S.
Не считая того, что лишние begin ... end (но это уже по мелочи):

    for g:=0 to i do
    begin
      if a[g]<c then Memo2.Lines[j]:=memo1.Lines[g];

    end;

[Stilet]

Обратите внимание на tn.

И что там такого криминального?

[WhiteSpirit]

А ещё вот здесь

while not Eof(t) do
      begin
         a[i]:=length(s);
              ca:=ca+a[i];
               i:=i+1;

Переменная i не инициализирована

[Alexei91]

Stilet
Я перепутал с File или ещё с чем-то,потому как этот код рабочий:

var
  F: TextFile;
  S: String;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    Readln(F, S);
    Edit1.Text := S;
    CloseFile(F);
  end;
end;