VPF::Символы в MaskEdit - Форум программистов

Letion

Дата 21.8.2009, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 19.8.2009

Репутация: нет
Всего: 0

Добрый День, Уважаемые программисты! У меня к Вам возник такой вопрос: есть форма с компонентом MaskEdit на ней и кнопкой. В MaskEdit будут вводиться цифры. Как сделать так, чтобы впоследствии, при нажатии на кнопку, вводимые цифры суммировались?
Вот мой код, но выскакивают ошибки [Error] Unit1.pas(38): Incompatible types: 'String' and 'Integer' и
[Error] Unit1.pas(39): Incompatible types: 'Integer' and 'String' : smile

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask;

type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string;
  sum,ch1,ch2,ch3,ch4,ch5,ch6:integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
s:=StrToInt(MaskEdit1.text);
ch1:= Copy(s,1,1);
ch2:= Copy(s,2,1);
ch3:= Copy(s,3,1);
ch4:= Copy(s,4,1);
ch5:= Copy(s,5,1);
ch6:= Copy(s,6,1);
sum:=ch1+ch2+ch3+ch4+ch5+ch6;
end;

end.

Это сообщение отредактировал(а) Letion - 21.8.2009, 14:24

Rrader

Дата 21.8.2009, 17:35 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MaskEdit1.EditMask := '000000';
end;

{$HINTS OFF}
procedure TForm1.Button1Click(Sender: TObject);
const
  Nums: array['0'..'9'] of Byte = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var
  I, V: Integer;
  Code, Sum: Integer;
  S: String;
begin
  Sum := 0;
  S := MaskEdit1.Text;
  Val(S, V, Code);
  if Code = 0 then
  begin
    for I := 1 To Length(S) do
      Inc(Sum, Nums[S[I]]);
    ShowMessage(IntToStr(Sum));
  end
  else
    ShowMessage('Ошибка ввода');
end;
{$HINTS ON}

end.

--------------------

Let's do this quickly!
Rest in peace, Vit!

NewDima

Дата 22.8.2009, 18:08 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: нет
Всего: 12

Rrader, ты себе такой же код пишешь? Или только остальным?

Код


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
sum := -48*length(MaskEdit1.Text);
for i:=1 to length(MaskEdit1.Text) do
  inc(sum, ord(MaskEdit1.text[i]));
end;

--------------------

Начинаем черкать!

Rrader

Дата 22.8.2009, 19:01 (ссылка)

(голосов:2)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

NewDima, а что не нравится? Проверка? Твой код все равно медленнее, в разы smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 23.8.2009, 01:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

А разы эти будут увеличиваться пропорционально увеличению букв в эдите smile

З.Ы. Хотя при малых значениях и если скорость вообще не важна можно использовать и второе решение, имхо.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

NewDima

Дата 23.8.2009, 05:28 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

Репутация: нет
Всего: 12

Rrader, извини, настроение вчера плохое было, так получилось smile

в общем стало то же, что и у тебя почти)

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
var i, sum: integer;
    s: string;
begin
s := MaskEdit1.text;
sum := -48*length(s);
try
  i := strtoint(s);
  for i:=1 to length(s) do
    inc(sum, byte(s[i]));
except
  showmessage('invalid value');
end;
end;

А вообще, ребят,
1. у нас компилятор, а не интерпритатор (что беспокоиться по поводу скорости;
2. проверку считаю здесь делать вообще не уместной, потому как нужно ввод ограничивать
ну так, просто вариант предложил

--------------------

Начинаем черкать!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »