Loop com string.
18/04/2013
0
Olá, estou tentando criar uma aplicaçao que leia uma string de inicio em um edit e outra delimitando final porem nao consigo pois no for somente é possivel integer.
Segue o código:
com numero inteiro funciona mas se eu colocar por ex: usuario.001 ate usuario.100 ja da erro.
aguaro ajuda, Obrigado desde já!
Segue o código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) txt_inicio: TEdit; txt_fim: TEdit; Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for I := strtoint(txt_inicio.Text;) to strtoint(txt_fim.Text;) - 1 do begin memo1.Lines.Add(inttostr(i)); end; end; end.
com numero inteiro funciona mas se eu colocar por ex: usuario.001 ate usuario.100 ja da erro.
aguaro ajuda, Obrigado desde já!
Marcelo Alves
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)