GARANTIR DESCONTO

Fórum forma correta. #289553

26/07/2005

0

Delphi

Como vocês fazem para identar no delphi.

Verifiquei um site Delphi Basics, mostra que o correto é assim.
 if (condition1) And (condition2)   // Both conditions must be satisfied
   then
     begin
       statement1;
       statement2;
       ...
     end              // Notice no terminating ´;´ - still part of ´if´
   else
     begin
       statement3;
       statement4;
       ...
     end;



   if condition1 
   then statement1
   else if condition2
        then statement2
        else statement3;





Eu faço dessa maneira
if condicao then
 begin
   ............
 end;



Já vi muita gente fazer o begin depois do end também...

Como vocês fazem ?
Obrigado


Lynx

Lynx

Responder

Posts

26/07/2005

Lynx

escrevi errado , na última frase

Já vi muita gente fazer o begin depois do end também...


O Correto é
Já vi muita gente colocar o begin depois do then
Desculpas


Responder

Gostei + 0

26/07/2005

Bruno Belchior

a fórmula que a borland assume (pode olhar por toda VCL) é a seguinte:
if ... then
begin
  ....
  ....
end;
só mais uma coisa o [b:f430a4321a]and[/b:f430a4321a] assim como todas as palavras reservadas, sempre em minúscula.


Responder

Gostei + 0

26/07/2005

Lynx

eu também prefiro assim, o código fica mais legivel.

o site que mostra essa forma é http://www.delphibasics.co.uk/Article.asp?Name=Logic


Responder

Gostei + 0

03/08/2005

Fx|hand

ahh... sei lah... eu num consigo fazer diferente... axo q é costume do vb... q num precisa de beguin !!!

eu faço assim !!

if {condição} then begin
    {...}
end;


ou

if {condição} then begin
    {...}
end else begin
    {...}
end;



inclusive nas procedures... 

procedure TForm1.FormCreate(Sender: TObject); begin
    {...}
end;


e quando uso variaveis faço assim !!!

procedure TForm1.FormCreate(Sender: TObject); 
Var
    s:string;
    i:integer;
begin
    {...}
end;


hehehe... diferente ?? naaumm... EU NAUM SO MALUKO !!! hehehe
=D


Responder

Gostei + 0

03/08/2005

Motta

http://community.borland.com/soapbox/techvoyage/article/1,1795,10280,00.html


Responder

Gostei + 0

04/08/2005

Raianemg 

procedure Tfrmentrada.soma_total;
var
   TsomaVend: real;
begin
  TsomaVend := 0;
  F_DTM.TbEntradas.First;
  with F_DTM.TbEntradas do
  begin
     while not eof do
     begin
      TsomaVend := TsomaVend + (F_DTM.TBentradasSub.Value);
      F_DTM.TbEntradas.Next;
     end;
  end;
  LBTotal.caption := ´Total: ´+format(´¬m´,[TsomaVend]);
end;



Responder

Gostei + 0

04/08/2005

Rjun 

procedure Tfrmentrada.soma_total;
var
   TsomaVend: real;
begin
  TsomaVend := 0;
  F_DTM.TbEntradas.First;
  with F_DTM.TbEntradas do
  begin
     while not eof do
     begin
      TsomaVend := TsomaVend + (F_DTM.TBentradasSub.Value);
      F_DTM.TbEntradas.Next;
     end;
  end;
  LBTotal.caption := ´Total: ´+format(´¬m´,[TsomaVend]);
end;


Esse é um exemplo de como não se deve fazer.


Responder

Gostei + 0

14/09/2005

Raianemg

sera q o tal de Rjun poderia por favor me dizer o porque de minha forma de identar no delphi não esta de acordo?
você afirmo q esta forma é a q ñ deve ser feita, mas poderia justificar?


Responder

Gostei + 0

14/09/2005

Rjun

Sem streess...

O que quis dizer é que vc identa o código do primeiro begin com dois espaços. Ai depois, no begin do WITH você usa 3 espaços. No begin do while você usa 1 espaço. Pq não padronizar tudo com 2 espaços como o Delphi faz? Fica muito mais facil de compreender o código.


Responder

Gostei + 0

14/09/2005

Michelli88

Na faculdade aprendi assim:
  
procedure exemplo;
begin
  if (condição) then
    begin
      comando;
    end;
  else
    begin
      comando;
    end;
end;


mas agora uso assim e acho mais facil de visualizar
procedure exemplo;
begin
  if (condição) then begin
    comando;
  end;
  else begin
    comando;
  end;
end;


[b:f816597451]acho q fica mais enxuto...[/b:f816597451]


Responder

Gostei + 0

14/09/2005

Raianemg

entendi sua crítica e concordo plenamente, é q não havia percebido isso antes, normalmente uso a tecla tab e pronto, ela se responsabilisa pelo resto, mas de qualquer forma, fico mais aliviada. um q não entendo é quando colocam o begin no final da linha tipo
if <condicao> then begin
         comando
end;


não me acostumo a fazer assim.
isso é triste na programaçao criamos tantos vícios.
abraços


Responder

Gostei + 0

14/09/2005

Massuda

Não entendo porque falar em ´forma correta´... o que existe é estilo (pessoal) de escrever.

Já ví/li muito código escrito (por mim ou outras pessoas) da forma que estão classificando aqui como ´correta´ mas com pequenas variações (mais ou menos tabs/espaços, põe/não põe tab/espaço antes do begin, etc) ou da forma ´incorreta´ (feito eu que costumo usar o que o pessoal gringo chama de ´hanging begin´, o begin pendurado no fim da linha) mas o que sempre me atrapalhou não foi o fato da pessoa seguir este ou aquele estilo mas sim o fato da pessoa ficar mudando de estilo dentro de um mesmo fonte, ou pior, não ter estilo algum.

Saindo um pouco do tópico... De que adianta se preocupar em formatar bonitinho o programa se o código está cheio de form1, edit2, form34, label879 ao invés de NomesQueFazemSentido? Mais do que ser bonito de ler, o código tem que ser fácil de entender e isso só se consegue se o estilo de escrita for uniforme ao longo do código e seguir regras que favoreçam o entendimento. Afinal, a pessoa mais importante que vai ler o código fonte é você e não o compilador.

Dica: para formatar o código fonte automaticamente, pode-se usar o [url=http://www.dow.wau.nl/aew/DelForExp.html]DelForExp[/url] (Delphi Formatter Expert, freeware com fontes).


Responder

Gostei + 0

15/09/2005

Dedi

O estilo que uso para endentar o codigo pode ser errado para aqueles que criaram ou seguem o padrão, para meu melhor rendimento na costrução de rotinas e para uma posterior manutenção no codido faço assim:
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 if length(Removechrinval(Trim(edit1.Text)))< 2 then begin
  MessageBox(Handle, ´Nome de tarefa faltando ou incompleto´, ´Information´, 64);
  exit;
 end;
 if BitBtn2.Tag=0 then begin
  if FileExists(Local_Apld+Removechrinval(Trim(edit1.Text)+´.taf´)) then begin
   MessageBox(Handle, ´Nome de tarefa já existe´, ´Information´, 64);
   exit;
  end;
 end;
 if Tag=0 then adicionou:=true;
 Atarefa.Items.SaveToFile(Local_Apld+Removechrinval(Trim(edit1.Text))+´.taf´);
 close;
end;



Responder

Gostei + 0

13/02/2007

Marcosrocha 

if Condition then
  DoSomething
else
begin
  DoThat;
  DoThis;
end;

I := 0;
J := 10;
while I < J do
begin
  Caption := IntToStr(I);
  Inc(I);
  Sleep(500);
end;

for I := 1 to 100 do
begin
  Caption := IntToStr(I);
  Sleep(500);
end;

procedure TForm1.BitBtn1Click(nil);
var
  I: Integer;
begin
  I := 0;
  Caption := IntToStr(I);
  ShowMessage(´Click on OK´);
  Inc(I);
  Caption := IntToStr(I);
end;

// esse eu faço do jeito que acho "elegante"
// embora eu conheça outra maneira (que no site da Borland está diferente)
case ShowMessage(´Pressione um botão!´,mtConfirmation,[mbYes,mbNo],0) of
  IDYes: // meu jeito
  begin
    DoSomething;
    DoSomethingElse;
  end;
  IDNo: // peguei no site da borland
    begin
      DoThat;
      DoThis;
      ShowMessage(´What you want more else?´);
    eng;
end;

Tento seguir ao máximo os exemplos da ajuda do Delphi e seus padrões...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar