Classes em Delphi

[Ronaldo Lanhellas]

Bom, atualmente trabalho com JAVA e a estruturação das classes lá é totalmente diferente em delphi, tanto que estou tentando entender como funciona as classes em delphi.

Em java:

public class PrimeiraClasse{

private String PrimeiraVariavelGlobal //atributos da classe

public void PrimeiroMetodo{
}


}

Otimo, em java é esta estrutura que utilizamos. E Em delphi ?

[João Paulo Taraciuk]

Bom não sei se entendi a sua dúvida, mas, vamos lá..., em delphi, basicamente, ele pega e lê cada form de cima até embaixo, geralmente a programação é feita em cima dos eventos dos componentes.

O que no JAVA você utilizaria assim:

importa java.awt.swing.*;

seria o que temos na uses do delphi, para realizar uma boa parte das funções no delphi, você não precisa adicionar nada na USES, digamos que você precise fazer alguns cálculos de arredondamentos, ou trabalhar com funções mais aprimoradas de strings, basta adicionar na uses as uses: Math, StrUtils, que várias funções serão adicionadas ppara serem utilizadas.

Vamos imaginar que no java você precise calcular o quadrado de um número:

class Quadrado   
{   
    public static void main(String args[])   
    {   
        int i, quad     
        quad = i*i; 
        System.out.println("O quadrado de " + i + " é " + quad);       
    }   
}

No delphi, você poderia utilizar uma função, nesse caso. Inicia um projeto, colocar um form, adiciona nele um componente Button -> Paleta Addicional e 2 Edit Vamos utilizar no nosso mini exemplo uma função, no caso, no delphi, podemos declarar ela na public, que poderá ser utilizada em outros forms, ou na private, que poderá ser utilizada somente neste form, então, criamos a funcao quadrado na private:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
  [color="#FF0000"]function quadrado(Valor: Double): Double;[/color]
    { Private declarations }
  public
    { Public declarations }
  end;

A função quadrado vai receber um valor em Double, valor decimal, e retornará outro valor decimal. Ficando assim, aí, pressiona CTRL + SHIFT + C que ele cria a função abaixo, onde ela ficará dessa maneira:

function TForm1.quadrado(Valor: Double): Double;
begin
  Result := Valor * Valor;
end;

Depois dá um duplo clique no botão, e coloca algo ficando dessa forma:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := FloatToStr(quadrado(StrToFloat(Edit1.Text)));
end;

Aqui, o edit2 está recebendo o resultado da função, que foi passado para ela o que estiver no campo Edit1.Text, foi passado o valor já convertido para ponto flutuante(StrToFloat).

Mais ou menos isso, pode-se trabalhar com funções e procedures tranquilamente no Delphi.