Meu Delphi está bugado ou eu não sei absolutamente NADA?

Delphi

22/01/2014

Bom, galera, tentei implementar este código para fazer um testezinho aqui no trabalho não deu para executar

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

Gustavo Carmo

Curtidas 0

Respostas

Gustavo Carmo

Gustavo Carmo

22/01/2014

alguem ajuda por favorr
GOSTEI 0
Leandro Chiodini

Leandro Chiodini

22/01/2014

Voce pode testar para ver se o delete esta funcionando
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
Marcos Saffran

Marcos Saffran

22/01/2014

Olá Gustavo,

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
Leandro Chiodini

Leandro Chiodini

22/01/2014

É verdade
nao me atentei a criação,
Obrigado MArcos pelo complemento
GOSTEI 0
Gustavo Carmo

Gustavo Carmo

22/01/2014

Muto obrigado Pessoal. Comecei a entender o funcionamento do programa e tudo mais... Obrigado.
GOSTEI 0
POSTAR