delphi и время (Timer)

[arthur1]

итак я хочу создать программу в которой скачала нажимаю начать и числу а присваевается значение 100 после чего условие на включение таймера if a>1 then ...но я хочу сделать так что бы первые три секунды к 100 прибовлялось по 1 в каждую секунду потом отнималось одну секунду 1 а дальше прибовлялось три секунды по 1 потом отнималосьпо 1 несколько секунд и так далее. вот думаю как это сделать?
помогите.
значения каждую секунду будут выводиться через Timer2 в Label1.

p.s (один человек мне сказал так "Создай массив - константу с положительными и отрицательными значениями для прибавления/убавления, а по таймеру меняй переменную индекс массива." но я не понял что он имел ввиду если кто сможет расшифруйте)

[mss]

расшифруйте

Что расшифровывать-то ?
Ничего зашифрованного и нет совсем.
Или во фразе "одного человека" есть незнакомые тебе буквы ?

[lux16]

Хм, массив это просто последовательность чисел, например: +100 +1 +1 +1 -1 -1 +1 -1 +1 +1 +1 +1 -1 -1 -1 +1 +1 и т. д. Начальное значение у таймера 0, и потом:

a := a + a[i];
Inc(i);

i - это индекс массива

[arthur1]

спасибо. подумаю
а как создать массив? b: array[1..100];
дальша что делать то??
делал так пока что без таймера

var a: currency; i: integer;
b: array[1..100] of integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=100;
a:=a+b[i];
inc(i);
label1.Caption:= currtostr(a) + '=' + inttostr(i);
end;

Но что то не выходит значение (а) не меняется.

программировал последний раз в 98 (и последнюю неделю) так что трудно что то вспомнить

Пришлось вот так извращаться что бы получить жалаемый результат

var a: currency; i: integer;

procedure tform1.a_pl;
begin
a:=a+1/10;
inc(i);
end;

procedure tform1.a_sn;
begin
a:=a-1/10;
inc(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:= currtostr(a) + ' = ' + inttostr(i) ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (i>=0) and (i<3) then
form1.a_pl;
if (i>=3) and (i<5) then
inc(i);
if (i>=5) and (i<6) then
form1.a_sn;
if (i>=6) and (i<8) then
inc(i);
if (i>=8) and (i<10) then
form1.a_pl;
if (i>=10) and (i<12) then
inc(i);
if (i>=12) and (i<15) then
form1.a_sn;
if (i>=15) and (i<17) then
inc(i);
if (i>=17) and (i<21) then
form1.a_pl;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Refresh;
a:=0;
i:=0;
end;

может кто знает более лёгкий способ? (желательно показать примером полного кода)

[Step_UA]

Получается, что до начала выполнения программы вы знаете на каждой секунды что нужно делать - прибавлять или отнимать, следовательно вы можете вычислить для каждой секунды состояние ...

a:array [0..4] of integer = (100, 99, 98, 97,98);
i:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=0;
 Button1.Enabled:=false;
 Timer1.Enabled:=true;
 Label1.Caption:=IntToStr(a[0])+'=0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i>high(a)
 then
  begin
   Timer1.Enabled:=false;
   Button1.Enabled:=true;
   Label1.Caption:='Off'
  end
 else
Label1.Caption:=IntToStr(a[i])+'='+IntToStr(i);
end;

[puporev]

один человек мне сказал так "Создай массив - константу с положительными и отрицательными значениями для прибавления/убавления

const a:array[1..100] of integer=(1,1,1,-1,-1,-1,1,1,1,1,1,-1,-1,........//100значений);
По таймеру меняешь индекс массива и изменяешь значение

inc(znach,a[i]);

[arthur1]

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

Получается, что до начала выполнения программы вы знаете на каждой секунды что нужно делать - прибавлять или отнимать, следовательно вы можете вычислить для каждой секунды состояние ...

a:array [0..4] of integer = (100, 99, 98, 97,98);

да, Спасибо.) я знаю порядок для каждой секунды и этот код помог поставить всё на место.
теперь вот буду думать как сделать так что бы эти числа читались из файла.(1.txt)

var  i:integer;
a: array [0..5] of integer;

procedure tform1.aaa;
var f: file of integer;
begin
AssignFile(f, '1.txt');
Reset(f);
for i:=0 to 5 do
read(f,a); 
closefile(f);
end;

может кто подскажет что не так делаю?
выдаёт ошибку при компиляции.

[Step_UA]

read(f,a[i]);

[puporev]

что бы эти числа читались из файла.(1.txt)

var  a: array [0..5] of integer;

procedure tform1.aaa;
var i:integer;
     f: text;
begin
AssignFile(f, '1.txt');
Reset(f);
for i:=0 to 5 do
read(f,a[i]); 
closefile(f);
end;

[arthur1]

Спасибо помогло.

возник ещё вопрос как сделать так что бы в поле мемо когда место в строке для символов кончалось оно переносило последующий текст на следующую строку?
например текст состоит из 30 слов по 5-6 символов... он не вмещается в одну строку и должен переходить на следующую строку.
как это сдалать?