Fórum Meu Delphi está bugado ou eu não sei absolutamente NADA? #467573
22/01/2014
0
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Edit1:Tedit;
implementation
{$R *.dfm}
procedure gustavo;
var S:String;
begin
S := Edit1.Text;
Delete(S,5,4);
Edit1.Text := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
gustavo;
end;
end.Acredito que quando eu clicasse no button1 era para apagar 4 letras a partir do índice 5 da palavra que está armazenada em S, não é? Mas nada acontece... O que é? Se eu for muito iniciante, gostaria que alguem me recomendasse uma apostila para estudar, preciso muito, pois entrei na área a pouco tempo e preciso muito de ajuda... Obrigado.
Gustavo Carmo
Curtir tópico
+ 0Posts
22/01/2014
Gustavo Carmo
Gostei + 0
22/01/2014
Leandro Chiodini
da sequite maneira
depois do delete
ShowMessage(S);
se a mensagem estiver certa,
pode ter algum problema nas tuas chamadas ai,
ou no projet.
att,
Gostei + 0
22/01/2014
Marcos Saffran
a sua procedure "gustavo" foi criada de forma errada, sugiro que a inclua primeiro na área private ou public e use o ctrl+shift+c para que o delphi crie o começo da procedure, dessa fora o seu código ficará assim:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure gustavo;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.gustavo;
var S:String;
begin
S := Edit1.Text;
Delete(S,5,4);
Edit1.Text := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
gustavo;
end;
end.
Gostei + 0
22/01/2014
Leandro Chiodini
nao me atentei a criação,
Obrigado MArcos pelo complemento
Gostei + 0
22/01/2014
Gustavo Carmo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)