Løkker og edit check

Kode 

for I : 0 to StrToInt(Edit1.Text) do begin
....
end;

Hej,
Jeg er ved at lave et email program der skal have muligheden for at sende den samme mail afsted X antal gange. Hvordan laver man sådan at brugeren kan skrive i et edit felt, det antal mails der skal sendes. Jeg har tænkt mig til en løkke men den vil ikke lige virke....har I nogen forslag?

Og efter som det ikke skal bruges til at spamme med hvordan laver man så en check funktion til en edit altså jeg tænker noget ala:

Kode 

if (edit1.value > 10) then bla bla...?

//Xyber

Hvad gør du når du sender e-mails og hvordan ser din løkke ud?

Emil Melgaard
emil.melgaard@fyrrevang.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Kode 

Id.SMTP1.Quicksend('bla', 'jap', 'et eller andet', 'og så videre')

...og hvordan checker man om Edit1.Text's værdi er over f.eks. 20 ?

//Xyber

...og hvordan checker man om Edit1.Text's værdi er over f.eks. 20 ?

//Xyber

if Edit1.Text > IntToStr(20) then
...



MVH.
Armen L.A.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
if Edit1.Text < IntToStr(20) then
for I := 1 to StrToInt(Edit1.Text) do
 begin
  ShowMessage('Box: '+IntToStr(i));
 end else
 ShowMessage('Number Too high');
end;

...og hvordan checker man om Edit1.Text's værdi er over f.eks. 20 ?

//Xyber

if Edit1.Text > IntToStr(20) then
...



MVH.
Armen L.A.

Armen jeg ved du ligger og snorker lige nu så jeg sætter lige den her thread:

Ja det første du gav virker perfekt men det ovenfor tjekker desværre kun om det første ciffer er under 2 ? eksempel vis vil:

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
if Edit1.Text < IntToStr(20) then
for I := 1 to StrToInt(Edit1.Text) do
 begin
  ShowMessage('Box: '+IntToStr(i));
 end else
 ShowMessage('Number Too high');
end;

Give fejl ved 30 men ikke ved 112 ? Det er en lille bug jeg gerne vil have et svar på

//Xyber

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
if Edit1.Text < StrToInt(20) then
for I := 1 to StrToInt(Edit1.Text) do
 begin
  ShowMessage('Box: '+IntToStr(i));
 end else
 ShowMessage('Number Too high');
end;

Sådan nu virker det da