All-Access – A nova caixa de ferramentas da Embarcadero

por: Andreano Lanusse

Esta apresentação é uma visão geral sobre o All-Access a caixa de ferramentas da Embarcadero, proporcionando a todo desenvolvedor e DBA acesso completo a todas as ferramentas Embarcadero, acesso ao recurso InstantOn que permite a execução de aplicações sem a necessidade de instalação e receber todas as novas versões de produtos no período de 1 ano a partir da aquisição do All-Access

Clique aqui

Dicas Delphi – Criando um Splash Screen – A

Você pode criar uma tela de abertura no seu programa em Delphi. Após ter criado um formulário principal, crie um formulário para a tela de abertura. Aqui iremos chamá-lo de FormSplash.

Depois de criar os dois formulários, clique no menu VIEW, na opção PROJECT SOURCE, que permite que seja exibido o código do arquivo principal do projeto. Localize no código a linha em que o formulário de abertura é criado e apague-a (ou coloque em modo de observação, inserindo // no início da linha).

Linha que deve ser apagada:

begin

Application.CreateForm(TFormSplash, FormSplash); // Esta linha deve ser apagada

end;

Após remover a linha acima, insira as linhas abaixo antes da criação dos demais formulários do seu aplicativo:

Linhas que devem ser inseridas:

begin
FormSplash:= TFormSplash.Create(Application);
FormSplash.show;
FormSplash.Release;

{Os demais formulários devem ser criados aqui}


FormSplash.Free;
Application.Run;
End;

Os comandos…

FormSplash := FormSplash.Create(Application); – cria o formulário
FormSplash.Show – exibe o formulário de abertura na tela
FormSplash.Free; – tira o formulário da memória

Dicas Delphi – Procurando e Substituindo string num campo memo

Procedure FindReplace(const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count – 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

// Utilize a função assim:

Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;