matematik

uses
  Math;

function Int2Str(I, Len: Integer): String;
begin
  Str(I, Result);
  for I := Length(Result) to Len -1 do
    Result := '0' + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Len, I: Integer;
begin
  Len := Length(Edit1.Text);
  for I := StrToInt(Edit1.Text) to Round(IntPower(10, Len))-1 do
    ListBox1.Items.Add(Int2Str(I));
end;

(ikke testet)

Første fejl:

ListBox1.Items.Add(Int2Str(I));
  Skal være:
ListBox1.Items.Add(Int2Str(I, Len));

Jeg har lige bikset lidt sammen der skulle være brugbart.
Det er bare bikset sammen som jeg nu har udtænkt det, så det kan med garanti godt optimeres lidt/gøres lidt pænere :)

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

function AddCiffers(inputnr: integer; totallength: integer):string;
var
  tempstr: string;
  I: integer;
begin
  tempstr := inttostr(inputnr);
  for I:=length(tempstr) to totallength-1 do begin
    tempstr := '0'+tempstr;
  end;
  result := tempstr;
end;

procedure GenNumbers(startnr: string; listbox: TListBox);
var
  len: integer;
  start: integer;
  tempstr : string;
begin
  len := length(startnr);
  start := strtoint(startnr);
  tempstr := AddCiffers(start,len);
  while (length(tempstr) = len) do begin
    inc(start);
    tempstr := AddCiffers(start,len);
    if (not (length(tempstr)>len)) then listbox.Items.add(tempstr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.clear;
  GenNumbers(edit1.text,ListBox1);
end;

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

Og glædelig jul til dig :)

//_DJ_

hovsa hermandsen, der var du ligegodt hurtigere ;)

og din løsning er faktisk oss lidt mere elegant og der foregår knap så mange konverteringer (sagde jo den ku gøres pænere =)

Men god jul til dig også :)

Hehe...
Bare i orden dj! ;)

Glædelig jul til dig også! Nu vil jeg sgu installere XP, wish me luck! ;)

>>game_tracker
Virker det?

det vil ikke virke

Hvilke fejl meddelser får du?

Det kan gøres lidt kortere:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=StrToInt(Edit1.Text) to Round(Power(10, Length(Edit1.text))-1) do
    ListBox1.Items.Add(StringOfChar('0',Length(Edit1.Text)-Length(IntToStr(i)))+IntToStr(i));
end;

>>abpdk
Det kan sikkert også gøres mere uoverskueligt! ;)

Meget muligt, men hvis man sparer en for-løkke så...;)