Вопрос № 56436: Быть может, глупый вопрос, но как окргулить число? Пробовал Roundto? но если меньше 5, то ответ 0, а больше - 10. Спасибо...Вопрос № 56471: Здравствуйте уважаемые эксперты . Помогите новичку(мне) в решении следущей проблемы: 1)Есть код написанный мной в Delphi 7(см. приложение).
Если повесить его на ButtonClick он компилируется.Но он(код) часто используется. Выношу его в процедуру по...Вопрос № 56502: Здравствуйте эксперты!
Как можно (при запуске программы) в массив загрузить данные из файла (простого текстого файла *.txt) ?...
Вопрос № 56.436
Быть может, глупый вопрос, но как окргулить число? Пробовал Roundto? но если меньше 5, то ответ 0, а больше - 10. Спасибо
Отправлен: 23.09.2006, 14:58
Вопрос задал: Oricardo (статус: 1-ый класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: n0name
Здравствуйте, Oricardo!
Если вам нужно округлить до целых, то подойдет и round().
А если всё таки использовать roundto, то второй параметр показывать разряд до которого округлять, 1 - разряд десятков, 0 - разряд едениц. То есть чтобы округлить до десятых используйте roundto(Number, -1).
Ответ отправил: n0name (статус: 6-ой класс)
Ответ отправлен: 23.09.2006, 15:07 Оценка за ответ: 5
Вопрос № 56.471
Здравствуйте уважаемые эксперты . Помогите новичку(мне) в решении следущей проблемы: 1)Есть код написанный мной в Delphi 7(см. приложение).
Если повесить его на ButtonClick он компилируется.Но он(код) часто используется. Выношу его в процедуру получаю:Undeclared identifier:'Text'.
Screen- это Edit
2) Как настроить редактор кода чтобы он показывал номерацию строк?
С уважением Михаил.
Приложение:
Отправлен: 23.09.2006, 20:36
Вопрос задал: MIXAIL (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: n0name
Здравствуйте, MIXAIL!
1) Добавте перед Screen.Text, имя формы, на котором он расположен, напримре, Form1.Screen.Text, это происходит потому что в делфи есть одноименный объект Screen, когда вы вызываете этот код в обработчике кнопки, то сначала Screen ищется как имя компонента на форме.
Ответ отправил: n0name (статус: 6-ой класс)
Ответ отправлен: 23.09.2006, 21:12 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо. Всё получилось!!!
Отвечает: Савенко Вадим Иванович
Здравствуйте, MIXAIL!
По первому вопросу смотрите приложение.
Приложение:
Ответ отправил: Савенко Вадим Иванович (статус: Студент)
Ответ отправлен: 23.09.2006, 21:23 Оценка за ответ: 4 Комментарий оценки: Спасибо, сделал как посоветовал n0name всё получилось.
Вопрос № 56.502
Здравствуйте эксперты!
Как можно (при запуске программы) в массив загрузить данные из файла (простого текстого файла *.txt) ?
Приложение:
Отправлен: 23.09.2006, 23:41
Вопрос задал: Pagewin (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Н.В.
Здравствуйте, Pagewin!
Считывате каждую строку из файла и добавляете её в динамический массив.
Пример в приложении. Писал здесь, поэтому могут быть ошибки.
Удачи!
Приложение:
--------- http://TheDelphi.Ru
Ответ отправил: Н.В. (статус: 5-ый класс)
Ответ отправлен: 23.09.2006, 23:48
Отвечает: Mo-skin
Здравствуйте, Pagewin!
Допустим у Вас есть файл из десяти строк.
и массив
var
A: array[1..10] of string;
i: integer;
f: textfile;
s:string;
begin
AssignFile(f,'c:/test.txt');
Reset(f);
for iL=1 to 10 do
begin
Readln(f,s);
A[i]:=s;
end;
end;
А лучше использовать TStringList;
var
SL:TStringList;
begin;
SL:=TStringList.Create;
SL.LoadFromFile('c:/test.txt');
ShowMessage(SL.Strings[0]);
end;
--------- Чем больше женщину мы меньше, тем больше меньше мы ее!
Ответ отправил: Mo-skin (статус: 2-ой класс)
Ответ отправлен: 23.09.2006, 23:58
