Utilizando LINQ to Objetcs em Delphi Prism

Salve salve amigos,

Veja no blog do Andreano Lanusse, de como utilizar Linq to Objects com Delphi Prism.

Clique aqui


Take care

Vídeos sobre Visual Studio 2010

Salve, salve amigos,

Veja no link abaixo, alguns videos sobre Visual Studio.

Channel9

http://bit.ly/BsFWs

http://bit.ly/171aVv


Take care

Apresentações do Delphi Conference Online - Disponibilizadas

Salve, salve amigos,

Amigos da comunidade Delphi, dia 26 de fevereiro foi realizado o Delphi Conference Online, uma seleção de 6 apresentações super bem avaliadas no Delphi Conference em São Paulo, realizado no final de 2009.

Assuntos:

- Touch e Gesture
- Servidor de aplicação DataSnap para web no mundo real
- Desmistificando o IntraWeb: desenvolvendo aplicações corporativas com VCL for Web
- Boas práticas OOP no desenvolvimento Web com Delphi Prism
- Testes para desenvolvedor Delphi
- MINICURSO - Técnicas Avançadas com Rave Reports

Para ter acesso a todas as apresentações clique aqui, lembre-se que para assistir ou efetuar o download você deve utilizar sua conta do EDN, caso não tenha basta criar no momento em que for solicitado é GRÁTIS.

Um forte abraço

Take care

Suporte Delphi Prism no Visual Studio 2010

Salve, salve amigos


Veja no link abaixo, infomação do site da Embarcadero, referente ao suporte do Delphi Prism no Visual Studio 2010 antes de 30 de maio/2010 (Delphi Prism with Visual Studio 2010 prior to May 30, 2010)

Clique aqui

Take care

Dicas Delphi - Criar e ler arquivos ini

Salve, salve

//Primeiro declare IniFiles na seção USES do seu projeto.
//Defina uma variável global data: TInifile;
//Para criar o arquivo INI:

begin

data := TIniFile.Create('C:arquivo.ini'); //Nome do meu arquivo INI que será criado

data.WriteString('NOME1', 'NOME2', Edit1.Text);
//O conteúdo do Edit1.Text será gravado dentro da chave NOME1 e na subchave NOME2

data.Free; //Libera a memória

//Para ler o arquivo INI:

begin

data := TIniFile.Create('C:arquivo.ini'); //Nome do meu arquivo INI que quero ler

Edit1.Text := data.ReadString('NOME1', 'NOME2', ''); //O Edit1.Text vai receber o que está gravado dentro da chave NOME1 e da subchave NOME2

data.Free; //Libera a memória

{

O arquivo INI fica assim

[NOME1]

NOME2=Edit1.Text

}



Take care

Dicas Delphi - Deletar todos arquivos e subdiretórios do diretório

Salve salve,

// Dica para deletar todos arquivos e subdiretórios do diretório "Temp" do Windows

function GetTempDir: string; // Retorna o Diretorio Temp do Windows

var TempDir: array[0..255] of Char;

nSize:integer;

begin

SetLength(Result,255);

nSize:=GetTempPath(255, PChar(Result));

SetLength(Result,nSize);

if Result[Length(Result)]<>'' then Result:= Result+'';

end;



procedure NewZapFiles(StDelDir: boolean; Caminho: string);

var SR: TSearchRec;

Count: integer;

begin

if DirectoryExists(ExtractFilePath(Caminho))=False then

ShowMessage('Diretório Inexistente!!!') else

begin

Count:= FindFirst(Caminho,faAnyFile,SR);

while Count=0 do

begin

//Application.ProcessMessages;

if (SR.Attr= faDirectory) then

begin

if (SR.Name<>'.') and (SR.Name <> '..') then

NewZapFiles(True,ExtractFilePath(Caminho)+SR.Name+'*.*')

end else

begin

if FileGetAttr(ExtractFilePath(Caminho)+SR.Name)>0 then

FileSetAttr(ExtractFilePath(Caminho)+SR.Name, 0);

DeleteFile(ExtractFilePath(Caminho)+SR.Name);

end;

Count:= FindNext(SR);

end;

FindClose(SR);

if StDelDir= True then RemoveDir(ExtractFilePath(Caminho));

end;

end;



// Acrescente um "Button" e para o evento "OnClick" utilize o código de comandos abaixo:



procedure TForm1.Button1Click(Sender: TObject);

begin

if MessageDlg('Deseja realmente deletar arquivos temporários do Windows?'+#13+'('+GetTempDir+'*.*)', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
NewZapFiles(False,GetTempDir+'*.*');

end;

-----
Retirada da internet
-----

Take care

Dicas Delphi - Converter Minutos Para Horas

Salve, salve

Veja nesta dica uma simples função que retorna a quantidade de horas a partir de uma quantidade de minutos.

function MinutosEmHoras(Minutos: Integer): String;
var
HoraDecimal, HH, MM: String;
begin
if Minutos > 1440 then
Minutos := Minutos - 1440;
HoraDecimal := FormatFloat( '00.00', Minutos / 60 );
HH := Copy( HoraDecimal, 1 , 2 );
if Copy( HoraDecimal, 4, 5 )[1] = '0' then
MM := '0' + IntToStr( Round( ( StrToInt( Copy( HoraDecimal, 4, 5 ) ) * 60 ) /100 ) )
else
MM := IntToStr( Round( ( StrToInt( Copy( HoraDecimal, 4, 5 ) ) * 60 ) /100 ) );
Result := HH+ ':' + MM ;
end;



Para utilizá-la, faça:

ShowMessage( MinutosEmHoras(480) );
//retornará: '08:00'

----
Retirada da internet
----

Take care