Текущий архив: 2004.10.24;
Скачать: CL | DM;
Вниз
Чтение строки из файла и помещение её в TEdit Найти похожие ветки
← →
CoolMan © (2004-10-10 16:53) [0]Здраствуйте, уважаемые мастера.
Помогите разобраться:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
F: TextFile;
S: string;
begin
AssignFile(F,"D:\test.txt"); { File selected in dialog }
Readln(F, S); { Read first line of file }
Edit1.Text :=S; { Put string in a TEdit control }
CloseFile(F);
end;
end.
Что не так? Ругается на Edit1.Text :=S;
Спасибо
← →
Palladin © (2004-10-10 17:13) [1]угу... а на то что точка ожидалась вместо запятой там пониже ошибки нет? учи синтаксис паскаля, парень, а не занимайся C&P
← →
GuAV © (2004-10-10 17:16) [2]Ну да, а где там Edit1 ? он же не глобальная, а всего лишь поле класса.
← →
CoolMan © (2004-10-10 17:56) [3]Конкретней плиз
← →
Алхимик © (2004-10-10 18:48) [4]Модуль имеет следующую структуру:
Unit <имя>;
interface
<интерфейсная часть>
implementation
<выполняемая часть>
initialization
<блок инициирования>
finalization
<блок завершения>
end.
Раздел Implementation предназначен для описания внутренних, т.е. доступных к использованию только внутри данного модуля компонент: типов, констант, переменных, процедур и функций.
Отсюда ошибка номер раз: нет описания какой нить процедуры - обработчика события. Таким событием, судя по контексту, вполне может быть OnShow.
Создадим обработчик события OnShow, который будет вызываться при каждом показе формы:procedure TForm1.FormShow(Sender: TObject);
var
F: TextFile;
S: string;
begin
AssignFile(F,"D:\test.txt"); { File selected in dialog }
Readln(F, S); { Read first line of file }
Edit1.Text :=S; { Put string in a TEdit control }
CloseFile(F);
end;
Далее. Когда ты копировал этот кусок кода из Help, то пропустил строку Reset(f). (Хорошо что вообще в Help заглянул).procedure TForm1.FormShow(Sender: TObject);
var
F: TextFile;
S: string;
begin
AssignFile(F,"D:\test.txt"); { File selected in dialog }
Reset(f);
Readln(F, S); { Read first line of file }
Edit1.Text :=S; { Put string in a TEdit control }
CloseFile(F);
end;
← →
CoolMan © (2004-10-11 09:42) [5]2 Алхимик
Спасибо большое
Страницы: 1 вся ветка
Текущий архив: 2004.10.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.04 c
