Код
var
F: TextFile;
S: String;
begin
AssignFile(F, 'Text.txt');
Reset(F);
Read(F, S);
Label1.Caption := S;
end;
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| Dead.MorozZ |
Сообщение
#1
|
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
Помогите присвоить метке значение Текстового Файла. Мой код присваивает только первую строку из файла, в чем ошибка???
Код var F: TextFile; S: String; begin AssignFile(F, 'Text.txt'); Reset(F); Read(F, S); Label1.Caption := S; end; -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
![]() ![]() |
| hardcase |
Сообщение
#2
|
![]() code warrior ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: 8 |
я просто считаю, что такие вещи как ФАЙЛОВЫЕ ПЕРЕМЕННЫЕ - устаревшие вещи. (Наверно привык просто к Сям)
И считаю использование их - не очень хорошим тоном программирования. (кстати, про пушку эт что? про StrStrm?) ------------- сообщение администратора ---------------- Цитата ФАЙЛОВЫЕ ПЕРЕМЕННЫЕ - устаревшие вещи. (Наверно привык просто к Сям) Цитата И считаю использование их - не очень хорошим тоном программирования. ЭТО твое ЛИЧНОЕ мнение, понял ? читай правила ВНИМАТЕЛЬНО! Делаю предупреждение. (-1) Сообщение отредактировано: Altair - -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
Dead.MorozZ Текстовые Файлы 13.01.2006 23:23
volvo А ты что, в Caption все содержимое файла затолкать… 13.01.2006 23:27
hardcase Для работы с файлами в Делфи лучше использовать ст… 14.01.2006 0:14
volvo hardcase
Ну, и на кой это все, если больше чем 255… 14.01.2006 0:27![]() ![]() |
|
Текстовая версия | 23.11.2025 5:33 |