[xrpcompany]

Доброе времени суток! Как можно загрузить текстовый файл в объект edit1.text?

[einstein]

ассигнфайл
ресет
реад
клозефайл

[Bargest]

или без напрягу

Код:

1 2 3 4 5

var t:TStringList; ... t:=TStringList.Create; t.LoadFromFile('123.txt'); Edit1.Text:=t.text;

[NumLock]

на WinAPI:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var   h: THandle;   s: String;   dummy: Cardinal; begin   h:=CreateFile('d:\Temp\Avatar.avi', GENERIC_READ, 0,     nil, OPEN_EXISTING, 0, 0);   if h<>INVALID_HANDLE_VALUE then   begin     SetLength(s, GetFileSize(h, nil));     if ReadFile(h, s[1], Length(s), dummy, nil) then Edit1.Text:=s;     CloseHandle(h);   end; end;

Bargest, у тебя TStringList не прибивается

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

Длинно, да и много объявлять надо. Так короче:

Код:

1 2 3 4 5 6

with TStringList.Create do begin    LoadFromFile('C:\sc.txt');    Edit1.Text := Text;    Free;    end;

Кто еще предложит вариант?

[AND_REY]

Ещё вариант :

Код:

1 2	ListBox1.Items.LoadFromFile('C:\1.txt'); Edit1.Text:= ListBox1.Items.Strings[0];

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

unit ***;   interface   uses   Classes, StdCtrls;   type   TLoadableEdit = class(TEdit)   public     procedure LoadFromFile(const FileName: String);   end;   implementation   procedure TLoadableEdit.LoadFromFile(const FileName: String); var   AStrings: TStrings; begin   AStrings:=TStringList.Create;   try     AStrings.LoadFromFile(FileName);     Text:=AStrings.Text;   finally     AStrings.Free;   end; end;   end.

использование:

Код:

1 2 3 4 5 6 7

var   edit: TLoadableEdit; begin   edit:=TLoadableEdit.Create(Self); // не в счет :)   edit.Parent:=Self; // не в счет :)   <b>edit.LoadFromFile('d:\Temp\Project1.dpr');</b> end;

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

Ну тогда уж лучше не новый класс создавать, а старый доработать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

.... THelperEdit = class helper for TEdit  procedure LoadFromFile(FileName: String); end; ....   procedure THelperEdit.LoadFromFile(FileName: String); begin  with TStringList.Create  do try        LoadFromFile(FileName);        Self.Text := Text;      finally       Free;       end; end;

И все, теперь TEdit будет считать что у него есть родной метод загрузки из файла.

[dr. F.I.N.]

Не изменяя программу все эдиты получат новый метод:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

... interface ... type   TEdit = class(StdCtrls.TEdit)   public     procedure LoadFromFile(FileName: String);   end; ...   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton; ... implementation   { TEdit } procedure TEdit.LoadFromFile(FileName: String); begin   //ToDo; end;   { TForm1 } ...

(с) Статья "Шаманский метод GEO" с королевства делфи.

[NumLock]

THelperEdit = class helper for TEdit

у меня в 7 такое не проходит

TEdit = class(StdCtrls.TEdit)

ага, забыл про это