![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
![]() |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
![]()
Исправил, но tedit все равно идет как узкая строка, она не увеличивается, когда я запускаю программу
|
![]() |
![]() |
![]() |
#13 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
Эдит и не предназначен для многострочных данных. В Мемо считывай
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
![]()
procedure TForm2.PUSK(Sender: TObject);
var s:string ; begin assignfile(f,'c:\primer1.txt'); reset(f); while not eof(f) do begin readln(f,s); memo1.text:=s; end; CloseFile(f); end; end. Отображает только 3 строку |
![]() |
![]() |
![]() |
#15 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
Ну я бы для начала справку по мемо прочитал внимательно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#16 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
![]() Код:
Код:
|
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
![]()
А как теперь дать каждому числу по ячейке?
|
![]() |
![]() |
![]() |
#18 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
![]()
Используйте компонент stringGrid.
Попробуйте самостоятельно найти информацию по тому, как работать с ним. Подсказка: вам нужно свойство этого компонента под названием cells |
![]() |
![]() |
![]() |
#19 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
![]()
А если сделать вот так?
assignfile(f,'c:\primer1.txt'); reset(f); readln(f,VKLAD); readln(f,PROZENT); readln(f,SROK); Label1.Caption:='Сумма вклада = '+IntToStr(VKLAD); CloseFile(f); |
![]() |
![]() |
![]() |
#20 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]()
блин, ну прям изба-гадальня.
и никто не посоветовал автору изучить матчасть по хорошей книжке. кстати, задание дебильно составлено и вводит в заблуждение. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
Последний раз редактировалось min@y™; 02.03.2015 в 01:11. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Экранная лупа | SaNeKBF | C# (си шарп) | 5 | 05.05.2011 19:34 |
Компонент экранная клавиатура | MikeSam | Компоненты Delphi | 1 | 02.05.2011 19:18 |
экранная клавиатура | mobilitialex | Общие вопросы Delphi | 1 | 10.03.2011 17:19 |
Экранная клавиатура | Кристинка89 | Общие вопросы Delphi | 7 | 02.03.2011 23:45 |
Экранная клавиатура | aesoem | Софт | 9 | 13.03.2009 10:59 |