Числа - считать от 00001 до 99999

[puporev]

Человеку надо по нажатию кнопки увеличивать значение в поле вывода. Самый простой на мой взгляд вариант:

var
  Form1: TForm1;
  i:word; //обязательно в глобальные
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var st:string[5];
    j:byte;
begin
inc(i);
st:=inttostr(i);
if length(st)<5 then
for j:=1 to 5-length(st)do
insert('0',st,1);
Edit1.Text:=st;
end;

end.

[Alter]

Простой вариант, нормальная скорость:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var S :String;
begin
    S := Format('%5d', [I]);
 While Pos(' ', S)>0 Do
 S[Pos(' ', S)] := '0';
    Button1.Caption := S;
 Inc(I);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 I:=0;
end;

end.

[mutabor]

procedure TForm1.FormCreate(Sender: TObject);
begin
I:=0;
end;

Это не обязательно. При создании объекта Form1 память под него будет обнулена (заполнена нулями), соответственно переменная I :LongInt; будет равна нулю.

[JRcoker]

Всем спасибо учту все варианты...

[Alter]

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

Это не обязательно. При создании объекта Form1 память под него будет обнулена (заполнена нулями), соответственно переменная I :LongInt; будет равна нулю.

Это так, чтобы знал, что начальные значения можно было ставить. На случай если надо не с нуля .

[Arigato]

Это не обязательно. При создании объекта Form1 память под него будет обнулена (заполнена нулями), соответственно переменная I :LongInt; будет равна нулю.

Вообще-то на это лучше не расчитывать. По правилам нужно явно инициализировать переменные, например, так (только для глобальных):

I :LongInt = 0;

[Alex.rus]

Можно и так:

for i:=0 to j do
begin
st:=inttostr(i);
if length(St)<8 then
begin
b:=8-length(St);
for a:=1 to b do
begin
st:='0'+st;
end;
end;
WriteLn(F,st);
end;
i-минимальное число
J-максимальное
8-восьмизначное число
F-файл вывода

[mutabor]

Вообще-то на это лучше не расчитывать

А на что тогда расчитывать? Тогда каждую функцию Дельфи под сомнение ставить надо.

Выдержка из хелпа (Constructors)

To create an object, call the constructor method on a class type. For example,

MyObject := TMyClass.Create;

This allocates storage for the new object on the heap, sets the values of all ordinal fields to zero, assigns nil to all pointer and class-type fields, and makes all string fields empty.

[Stilet]

Тогда каждую функцию Дельфи под сомнение ставить надо.

Эт ты загнул конечно, но с Arigato я согласен - лучше будет если все сделать самому и явно.

[DearHunter]

for i := 0 to 99999 do
format('<%.5d>', [i]);