Тема: Загрузка текстового файла
Показать сообщение отдельно
  #5  
Старый 08.06.2011, 10:30
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
  
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию
Длинно, да и много объявлять надо. Так короче:

Код:
 with TStringList.Create
 do begin
    LoadFromFile('C:\sc.txt');
    Edit1.Text := Text;
    Free;
    end;
Кто еще предложит вариант?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием