|
#1
|
|||
|
|||
мемо ошибка
Код:
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); на это вот ругается но с чего вдруг? |
#2
|
|||
|
|||
Undeclared Identifier Memo1
Missing operator or semicolon такие ошибки |
#3
|
||||
|
||||
Во первых ты не правильно пишешь код, тобишь в консоли можно написать begin ... end., а тут нет, надо писать код в определенном событии (например нажатии на кнопку), или же в процедуре/функции. Например твой код будет работать, если написать твой код в кнопке:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin // твой код end; ЗЫ Добавь на форму кнопку (Button1) и само мемо, куда хочешь загружать (Memo1) |
#4
|
|||
|
|||
да пришлось так сделать, и вопрос как мне убрать надпись Memo1 с окошка мемо? точней эта надпись внутри окошка
Последний раз редактировалось Adrenalin666, 30.09.2010 в 18:06. |
#5
|
|||
|
|||
вот |
#6
|
||||
|
||||
Свойство Lines в Memo. Откройте и сотрите лишнее.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#7
|
|||
|
|||
о благодарю!
просто сам пень пнем... |
#8
|
|||
|
|||
вернемся к изначальному, я нажимаю на кнопку открывается окно и мне надо чтобы в нем сразу в memo был текст из файла а не дополнительно нажимать в этом окне. тоесть кликаю и там как в ICQ к примеру сразу лог открывается.
|
#9
|
|||
|
|||
события onActivate, onCreate, onShow
|
#10
|
|||
|
|||
отлично через onCreate сделал
|