Продлема с отображением в мемо окно

[mazaev87]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
AFile: TextFile;
  FieldVals,Vals,data: TStringList;
  Rec,a,line, line1: string;
  i,j: integer;
  potok: TStringStream;
begin
 FieldVals := TStringList.Create;
 Vals := TStringList.Create;
 data := TStringList.Create;
 potok:=TStringStream.Create(rec);
   try
      begin
      AssignFile(AFile, OpenDialog1.FileName);
      Reset(AFile);
      while not System.EOF(AFile) do
      begin
      Readln(AFile, Rec);  //Читаем строку из файла
      potok.WriteString(rec) //добавляем строку в конец потока
      end;
      end;
      System.CloseFile(AFile); //Закрываем файл
      line:=potok.DataString;
      line1:=StringReplace(line,')))','^',[rfReplaceAll]); //
      line:=StringReplace(line1,' ','_',[rfReplaceAll]);
      FieldVals.Clear;
      Vals.Clear;
      data.Clear;
      FieldVals.Delimiter:='^';
      Vals.Delimiter:='|';
      Data.Delimiter:='=';
      FieldVals.DelimitedText := line;
      //memo1.Lines.Append(line);
      for i:=0 to FieldVals.Count -1 do begin
      Vals.DelimitedText:=FieldVals[i];
      for j:=0 to Vals.Count -1 do begin
      memo1.Lines.Append(Vals[j]);
       data.DelimitedText:=Vals[j];
            if j=0 then begin
               data[0];
               a:=data[0];
               delete(a,1,3);
             //  label2.Caption:=a;
               memo1(j+1).AsString:=a           
    end
               else
               memo1(data[0]).AsString:=data[1]  ;
            end;
            end;
                finally
     end;
    // memo1.Lines.Append(line);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

procedure TForm1.OpenDialog1SelectionChange(Sender: TObject);
begin
label2.Caption:='file is:'+opendialog1.FileName;
end;

end.

*************************ошибки**** *******************
[Error] Unit1.pas(76): Missing operator or semicolon
[Error] Unit1.pas(79): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
*********************************** *******************
заранее благодарю за помощь!

[BOBAH13]

Даже ни слова ничего... просто код... может memo1(j+1).AsString:=a тут вы забыли дописать после a символ ";" да и что такое memo1 меня смущает вообще синтаксис написаного memo1 + скобки да и еще круглые... ну просто я в шоке... как можно писать код так ну да ладно, а так я бы пожаловался бы на это сообщение но делать не буду этого...

[mihali4]

да и что такое memo1

Memo1: TMemo;

Я тоже немало удивлен. Ошибки уже указаны, сам вопрос не сформулирован...
Хвастается достижениями, наверное...

[Bayazet]

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

unit Unit1;

*************************ошибки**** *******************
[Error] Unit1.pas(76): Missing operator or semicolon
[Error] Unit1.pas(79): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
*********************************** *******************

первый и второй эрроры - на 99% отсутствие ';' в конце предыдущей строки
третий вытекает из первых двух..

[BOBAH13]

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

Я тоже немало удивлен. Ошибки уже указаны, сам вопрос не сформулирован...
Хвастается достижениями, наверное...

не я про то как это работает

memo1(j+1)

если это TMemo не помню что такое возможно.

[mihali4]

не я про то как это работает
если это TMemo не помню что такое возможно.

Так и я об этом... Синтаксические ошибки указаны красным цветом. Что еще нужно?

99% отсутствие ';' в конце предыдущей строки

При чем тут точка с запятой? Это дело - десятое.
Кстати, после "else" она не ставится.
Единственно, где не хватает (может быть...), так это после memo1(j+1).AsString:=a