[xrpcompany]

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

[einstein]

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

[Bargest]

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

Код:

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

[NumLock]

на WinAPI:

Код:

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 не прибивается

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

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

Код:

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

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

[AND_REY]

Ещё вариант :

Код:

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