Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2013, 01:58   #1
ALEXXELA
 
Регистрация: 02.12.2012
Сообщений: 5
По умолчанию редактор memo

помогите плиз срочно надо решить задачку
На форме располагаются компоненты: редактор Memo, кнопки + и -, кнопка «Очи-стить» и кнопка Close. Исходно в первой строке редактора находится число 0. На-жатие кнопки + приводит к увеличению содержимого редактора на 1, а кнопки -, к уменьшению на 1. Аналогичный результат может быть достигнут с помощью со-ответствующих клавиш клавиатуры. Если число в редакторе больше 15, то появля-ется линейка прокрутки, с помощью которой ширину редактора можно менять в диапазоне 50 .. 200 пикселей. Нажатие кнопки «Очистить» приводит к установке редактора в исходное состояние. Close заканчивает программу.
ALEXXELA вне форума Ответить с цитированием
Старый 26.10.2013, 02:32   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,865
По умолчанию

Что значит "увеличению содержимого редактора на 1"?
Arigato вне форума Ответить с цитированием
Старый 26.10.2013, 02:42   #3
ALEXXELA
 
Регистрация: 02.12.2012
Сообщений: 5
По умолчанию

ну наверно на другую строчку я так думаю или был 0 и стал 1 ещё раз нажал + стало 2 а может на разных строчках 0
1
2
и т.д.
можете подсказать хотя бы с переходом на др строчку
ALEXXELA вне форума Ответить с цитированием
Старый 26.10.2013, 10:16   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

С учетом полосы прокрутки - скорее всего имеется ввиду количество символов в memo.
Т.е. при последовательном увеличении будет так:
0
00
000
0000
...
Пятнадцать нулей
Если больше 15 - добавить кнопки "расширения" и "сужения" ширины memo.
Смотрите стандартные свойства элементов, для memo -weight вроде бы.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 27.10.2013, 23:22   #5
ALEXXELA
 
Регистрация: 02.12.2012
Сообщений: 5
По умолчанию

помогите составить программу для этого задания
ALEXXELA вне форума Ответить с цитированием
Старый 27.10.2013, 23:45   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Так что ли?:
Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonPlus: TButton;
    ButtonMinus: TButton;
    Memo1: TMemo;
    procedure ButtonPlusClick(Sender: TObject);
    procedure ButtonMinusClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
 with  Memo1 do begin Lines.Append(IntToStr(tag)); tag:=tag+1; end;
end;

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
 with  Memo1 do begin Lines.Delete(Lines.Count-1) ;tag:=tag-1; end;
end;

end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi.Чтение файла в Memo, вычисление, добавление строк в Memo antonio_sk Помощь студентам 0 26.04.2013 18:01
Delphi передача текста из memo в memo hauk70 Помощь студентам 27 22.05.2012 18:33
Memo поверх других memo. qwertyk Общие вопросы Delphi 2 29.11.2011 22:00
Перевод из Memo по английскому в Memo по русскому Sanek777 Общие вопросы Delphi 5 26.09.2008 00:17
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40