[Adrenalin666]

Код:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form3: TForm3;

implementation

{$R *.dfm}


var
   f: TextFile;      // файловая переменная
   fName: String;    // имя файла
   buf: String;      // буфер для чтения из файла

begin
   fName := 'Log';
   AssignFile(f, fName);

   try
       Reset(f);  // открыть для чтения
   except
     on e: EInOutError do
     begin
       MessageDlg('Ошибка доступа к файлу' + #13+
                   e.Message, mtError,[mbOk],0);
       exit;
     end;
   end;

   // чтение из файла
   while not EOF(f) do
     begin
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;

   CloseFile(f); // закрыть файл
end.

Memo1.Lines.Add(buf); на это вот ругается но с чего вдруг?

[Adrenalin666]

Undeclared Identifier Memo1
Missing operator or semicolon

такие ошибки

[v1s2222]

Во первых ты не правильно пишешь код, тобишь в консоли можно написать begin ... end., а тут нет, надо писать код в определенном событии (например нажатии на кнопку), или же в процедуре/функции. Например твой код будет работать, если написать твой код в кнопке:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
// твой код
end;

ЗЫ Добавь на форму кнопку (Button1) и само мемо, куда хочешь загружать (Memo1)

[Adrenalin666]

да пришлось так сделать, и вопрос как мне убрать надпись Memo1 с окошка мемо? точней эта надпись внутри окошка

[Adrenalin666]

вот

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

Свойство Lines в Memo. Откройте и сотрите лишнее.

[Adrenalin666]

о благодарю!
просто сам пень пнем...