Jhonas

vou dar um exemplo bem simples function parimpar(var num:integer) :boolean; begin if num mod 2 = 0 then result := true else result := false; end; procedure TForm1.Button1Click(Sender: TObject); var n : integer; begin n := 3; if parimpar(n) then showmessage('par') else showmessage('impar'); end; veja que eu defini uma variavel inteira como entrada da função, e uma variavel boleana como saida da função veja que vou testar o resto de uma divisão de um numero que será 0 ou diferente de 0 se o resto da divisão for zero o numero é par, caso contrário é impar e para cada teste digo se o numero e true ou false para o resto da divisão ... entendeu ? abraço

experimente esse http://www.epson.com.br/asp/soporteLicenci...0XP/St777XP.exe abraço

veja esse post http://scriptbrasil.com.br/forum/index.php...=douglas_soares abraço

veja este artigo http://www.hamslab.com/lab/delphi/jpeg/jpeg_del.html abraço

compare a execução no delphi 7 e no delphi 2010 usando o debugger abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...p;highlite=inno abrao

exemplo: procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; cont : integer; begin cont := 0; if FindFirst(Edit1.Text, faArchive, sr) = 0 then begin repeat if (sr.Attr and faArchive) = sr.Attr then inc(cont); until FindNext(sr) <> 0; FindClose(sr); end; showmessage('Total de arquivos na pasta '+ Edit1.Text + ' = '+ inttostr(cont)); end; exemplo de uso: Edit1.Text := c:\MinhaPasta\*.* Edit1.Text := c:\MinhaPasta\*.doc Edit1.Text := c:\MinhaPasta\D*.* abraço

assim: var vetor: array[1..2, 1..2] of Char; vetor[2,2] = ('x','x','x','x','x','x','x','x','x'); abraço

amigo, não vejo muito sentido nessa lógica ...se eu crio botões em tempo de execução, eu tambem deveria pegar as imagens de dentro do meu imagelist e não de outro botão então ficaria mais adequado fazer assim: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; const NamePrefix = 'SpeedButton'; begin // CRIAR 3 BOTÕES ( SpeedButton ) EM TEMPO DE EXECUÇÃO for i := 1 to 3 do begin TSpeedButton.Create(Self).Name := NamePrefix + IntToStr(i); with TSpeedButton(FindComponent(NamePrefix + IntToStr(i))) do begin Left := 10; Top := i * 25; Parent := self; end; end; // CADA BOTÃO RECEBE A IMAGEM DEFINIDA NO IMAGELIST for i := 1 to 4 do begin if Components[i] is TSpeedButton then ImageList1.GetBitmap(i-2,TSpeedButton(FindComponent(NamePrefix + IntToStr(i-1))).Glyph); end; end; OBS: se não for isso que voce quer, faça uma adaptação ao seu código abraço

já experimentou usar o debugger do delphi ?

exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ZConnection; type TForm1 = class(TForm) Button1: TButton; ZConnection1: TZConnection; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Tlhelp32; function ProcessoExiste(ExeFileName: string): boolean; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32}; begin result := false; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then begin Result := true; exit; end; ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin if ProcessoExiste('mysqld.exe') then ShowMessage('Serviço do MYSQL encontrado') else ShowMessage('Serviço do MYSQL não encontrado'); end; procedure TForm1.Button2Click(Sender: TObject); begin if ZConnection1.Connected = true then ShowMessage('Banco de dados Conectado') else if MessageDlg('Banco de dados Desconectado!'+#13+#13+ 'Deseja conectar o Banco Agora ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ZConnection1.Connect; ShowMessage('Banco de dados Conectado'); end; end; end. abraço

amigo.. isso voce deveria saber SpeedButton2.Glyph := SpeedButton1.Glyph; abraço

o exemplo que te passei... basta ignorar o banco de dados e substituir por edits abraço

deve ser feito dessa maneira try if SpbClientes = Nil then SpbClientes := TSpbClientes.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; SpbClientes.show; abraço

faça assim... vai mostrar em um listview as imagens que estão no imagelist procedure TForm1.Button1Click(Sender: TObject); begin ListView1.ViewStyle := vsIcon; ListView1.LargeImages := ImageList1; ListView1.Items.Add.ImageIndex := 0; ListView1.Items.Add.ImageIndex := 1; ListView1.Items.Add.ImageIndex := 2; end; abraço

pode ser bug do delphi 2010 http://deblugando.wordpress.com/2010/01/02...e-help-update1/ abraço

veja http://www.activedelphi.com.br/forum/viewt...523ba8a94eea1ac abraço

experimente with Form.Create(Application) do try Show; finally Free; end; abraço

exemplo: Como carregar um BMP de um ImageList em um Bitbtn unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ImgList; type TForm1 = class(TForm) ImageList1: TImageList; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin ImageList1.GetBitmap(0,BitBtn1.Glyph); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin ImageList1.GetBitmap(1,BitBtn2.Glyph); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin ImageList1.GetBitmap(2,BitBtn3.Glyph); end; end. abraço

se voce postar o código, fica mais facil ajudar abraço

Porque voce não monta uma Select para trazer apenas os registros necessarios ? depois é só salvar with TblForliberados do begin insert; TblForliberadosEmpCodigo.AsString := TblEmpresasEmpCodigo.AsString; TblForliberadosForFormulario.AsString := TblFormulariosForFormulario.AsString; post; end; abraço

para resolver parte do problema http://www.planetadelphi.com.br/dica/7456/...e-em-scrollbox- abraço

um exemplo que pode servir a voce http://www.linhadecodigo.com.br/artigo/581...omo-DBGrid.aspx abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=transparente caso não encontre nada, veja: http://delphicikk.atw.hu/listaz.php?id=1341&oldal=26 abraço

Esse pacote de componentes é pago veja: http://www.downloadpipe.com/Windows/develo...6-2-749460.html http://baixar7.com/dicom-tools-for-delphi.zip/3d1e008d02 http://www.torry.net/discuss.php?id=11768 http://www.delphipages.com/records.cfm?kw=dicom http://just-download.com/software-developm...x-6.5.zip/30de7 http://www.codeidea.com/html/download.html http://www.daolnwod.com/dicom+delphi/ exemplo em delphi http://www.medicalconnections.co.uk/downlo...ples/Delphi.zip outros exemplos http://www.medicalconnections.co.uk/Examples.html para testar http://soft.mydiv.net/win/adload51998-TDICOMCAD.html Documentação http://www.medicalconnections.co.uk/Documentation.html abraço