[Alloc]

Всем привет!

Ребята, помогите составить формулу, я никак не могу сообразить..

В общем проще говоря, что бы было понятно...

Код:

KeyPressed:= 10; //это количество кнопок которые должны быть нажаты.
Keys:= 'ABCD'; // Сами кнопки.


for i:=0 to KeyPressed do
begin
  SendKeys('Keys');
end;

т.е. получается, если указать KeyPressed = 10 то нажиматься будут 40.. а нужно конкретно столько сколько указали... надеюсь понятно объяснил)) Помогите пожалуйста)

[Alegun]

Оффтоп: Пора уж и научиться пользовать тег [СODE]..[/СODE] для оформления кода, а то и до бани недолго так

"Формула" если правильно понял, может быть такой

Код:

var
 KeyPressed, i, b: integer;
 Keys, s: string;
begin
 KeyPressed:= 10;
 Keys:= 'ABCD';
 s:= '';
 b:= 1;
 for i := 0 to KeyPressed do
  begin
   s:= s + Keys[b];
   Inc(b);
   if b > Length(Keys) then b:= 1;
  end;
 SendKeys(s);
end;

[Alloc]

Сообщение от Alegun

Оффтоп: Пора уж и научиться пользовать тег [СODE]..[/СODE] для оформления кода, а то и до бани недолго так

"Формула" если правильно понял, может быть такой

исправился, спешил просто очень. Большое спасибо за помощь, это как раз то, что я хотел)

[Verevkin]

если указать KeyPressed = 10 то нажиматься будут 40

не 40, а 44.