Jhonas

Coloque-o numa banda de Detail ( QRBand ) na proriedade BandType deixe como rbDetail abraço

Isto significa que estas Units não foram compiladas para o delphi 6 e sim para o delphi 7 Se voce não tiver os .pas destes arquivos para compilar novamente, voce deve trocar a versão do Indy. abraço

Acho que voce está querendo é ordenar texto... seria isto ? É simples... jogue este arquivo texto em um memo ou voce tamvem pode fazer uma rotina para ler este arquivo texto e jogá-lo em um array. Depois é só ordená-lo alfabeticamente exemplo: procedure TForm1.Button1Click(Sender: TObject); var texto: array[0..4] of string; // nº de linhas do seu texto i: Integer; valor: string; indice: Integer; ok: Boolean; begin // exibe na ordem original for i := Low(texto) to High(texto) do texto[i] := Memo1.Lines.Strings[i]; // faz a ordenação repeat ok := False; indice := 0; repeat if CompareStr(texto[indice], texto[indice + 1]) > 0 then begin valor := texto[indice]; texto[indice] := texto[indice + 1]; texto[indice + 1] := valor; ok := True; end; Inc(indice); until(indice > High(texto)); until(ok = False); // fim ordenação Memo2.Clear; // exibe o array ordenado for i := Low(texto) to High(texto) do Memo2.Lines.Add(texto[i]); end; seria algo assim Ler arquivo texto 00011 1216121233330020N 00011 1214121233330005N 00011 1212121233330000N 00011 1213121233330017N 00011 1213121233330000N Texto ordenado 00011 1212121233330000N 00011 1213121233330000N 00011 1213121233330017N 00011 1214121233330005N 00011 1216121233330020N abraço

Ocorre perda de sinal se o cabo tiver mais de 100 metros Outra solução: http://www.info-shop.net/loja/product_info...3e696243297823a abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=517203 http://scriptbrasil.com.br/forum/index.php...;hl=WebBrowser1 http://scriptbrasil.com.br/forum/index.php...;hl=WebBrowser1 ou faça uma pesquisa em todos os posts onde tem WebBrowser1 http://scriptbrasil.com.br/forum/index.php...ite=WebBrowser1 abraço

inicio ler a ler b ler c soma := (a + b + c )*2 escrever soma resultado := soma resultado := (resultado)/4 escrever resultado fim outro exemplo variaveis matriz numerico sete[7] numerico i, j, k, ck inicio para k de 1 ate 7 escrever "Informe um número: " posicionar k,20 ler sete[k] proximo para i de 1 ate 7 para j de i+1 ate 7 se sete[i]=sete[j] então sete[j]:=0 fim_se proximo proximo para ck de 1 ate 7 posicionar 9,ck*4 escrever sete[ck] proximo fim http://www.inf.unisinos.br/~barbosa/paradi...artigos/a19.pdf abraço

Realmente é simples, mas voce não tem conhecimento ... leia um pouco mais sobre o assunto para enteder melhor. http://www.juliobattisti.com.br/tutoriais/...goritmos001.asp http://estacaozn.blogspot.com/2007/02/2-de...algoritmos.html abraço

É mais facil voce ler a repeito do assunto e tentar fazer Conceitos Básicos http://www.dcc.ufam.edu.br/~alti/aed2-2007...Basicos-2x2.pdf http://uninove.akiraware.com/EDI_VI_TADPilha.pdf http://dfm.ffclrp.usp.br/~evandro/aedII/au...lder_s02_a1.pdf http://www.cefetrn.br/~jorgiano/2004.2/g.71.014/Cap4.pdf http://www2.dc.ufscar.br/~bsi/materiais/ed/u2.html exemplos http://www.scribd.com/doc/12235035/Exemplo-TAD-Lista http://www.inf.ufes.br/~csbgoncalves/curso...ads-structs.pdf http://www-di.inf.puc-rio.br/~celso/discip...entos-Noemi.ppt abraço

Uma das opções seria usar o delphi com um componente de comunicação com a porta serial http://www.maxwellbohr.com.br/downloads/Tu...%20Sensores.pdf http://scriptbrasil.com.br/forum/index.php...st&p=537311 abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=292445 http://scriptbrasil.com.br/forum/index.php...st&p=271193 http://delphitodelphi.blogspot.com/2007/09...ouse-em-um.html abraço

O fato do cursor estar se movendo sozinho pela tela pode ser cabo partido ou com mal contato O fato do computador estar desligando sozinho, pode ser por vírus ou algum componente ou periférico com problema se for vírus veja atraves do gerenciador de tarefas do windows quais processos estão rodando.. alguns vírus usam nomes de processos conhecidos para não serem descobertos. como por exemplo o Isass.exe ... se este arquivo tiver menos que 1.088K pode ser vírus. Verifique tambem outros processos rodando em sua maquina. Vale lembrar tambem que um super aquecimento no processador por falta de ventilação ou obstrução por excesso de poeira pode levar o micro a ser desligado para evitar a queima do mesmo, assim como um componente ou um periferico ligado a placa mãe que esteja com problemas. De qualquer modo é sempre bom fazer uma manutenção no micro ( limpeza de poeira e lubrificação das ventoinhas ) reaperto de cabos e conectores. abraço

procedure TForm1.Edit1Exit(Sender: TObject); begin if strtoint(Edit1.Text) < 100 and strtoint(Edit1.Text) > 0 then begin // outros comandos end else begin showmessage('Valor fora da faixa'); Edit1.SetFocus; Edit1.SelectAll; end; end; OBS: Colega ... isto é uma coisa bem básica ... sugiro a voce ler mais sobre delphi abraço

Esqueci de colocar outra maneira de visualizar o resultado para mostrar o mes em texto Label2.Caption := ('Data Gregoriana : ' + inttostr(trunc(DiaGreg)) + ' / ' + MesGregText + ' / ' + inttostr(trunc(AnoGreg))); OBS: o dia juliano 0 correponde a 01/01/4712 A.C. Se é um trabalho de escola, cuidado com as perguntas do professor ...rs abraço

Predes ... acho que voce deve rever este código, porque não é tão simples o calculo Veja: se voce digitar esta data em juliano 2454831,50 voce teria que obter como resposta 31/12/2008 entretanto o seu código esta retornando 06/02/8730 Caso voce queira fazer uma prova, use este site para fazer um teste de datas http://www.csgnetwork.com/juliangregcalconv.html abraço

Este código recorta a imagem iniciando e terminando em tal posicao da figura, sem peder a qualidade de imagem. Voce deve adaptar este código ao seu anterior ( Veja se consegue ) unit UNovo; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } Retangulo : TRect; end; var Form1: TForm1; old, new : TPoint; Press:boolean; implementation {$R *.DFM} procedure Desenhar; begin Form1.Image1.Canvas.moveto(new.x, new.y); Form1.Image1.Canvas.lineto(new.x, old.y); Form1.Image1.Canvas.lineto(old.x, old.y); Form1.Image1.Canvas.lineto(old.x, new.y); Form1.Image1.Canvas.lineto(new.x, new.y); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if not press then begin old.X := X; old.Y := Y; end; Retangulo.Left:=old.x; Retangulo.Top:=old.Y; Retangulo.Right:=x; Retangulo.Bottom:=y; form1.Canvas.CopyRect(Retangulo, form1.Image1.Canvas, Retangulo); form1.Image1.Canvas.Pen.Style := psDash; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if not press then press:=true; old.x:= x; old.y:= y; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin press:= false; //form1.Canvas.CopyRect(Retangulo, form1.Image1.Canvas, Retangulo); new.x:= x; new.y:= y; desenhar; end; end. OBS: A imagem principal estará em um TImage onde voce usará o mouse para recortar o pedaço dela e a imagem recortada estara no Canvas do Form... a partir dai voce pode salvar a imagem do canvas como jpeg sem perder a qualidade abraço

http://www.delphix.org/?q=node/125 //para Listar Sub-Pastas de uma Pasta em uma TStrings procedure EnumFolders(Root: String; Folders: TStrings); procedure Enum(dir: String); var SR: TSearchRec; ret: Integer; begin if dir[length(dir)] <> '\' then dir := dir + '\'; ret := FindFirst(dir + '*.*', faDirectory, SR); if ret = 0 then try repeat if ((SR.Attr and faDirectory) <> 0) and ( SR.Name <> '.') and ( SR.Name <> '..') then begin folders.add( dir+SR.Name ); Enum( dir + SR.Name ); end; ret := FindNext( SR ); until ret <> 0; finally SysUtils.FindClose(SR) end; end; begin if root <> EmptyStr then Enum(root); end; //usa EnumFolders para listar as Sub-Pastas e procuras por arquivos procedure EnumFiles(Pasta, Arquivo: String; Files: TStrings); var SR: TSearchRec; SubDirs : TStringList; ret, X : integer; sPasta : String; begin if Pasta[Length(Pasta)] <> '\' then Pasta := Pasta + '\'; try SubDirs := TStringList.Create; SubDirs.Add(Pasta); EnumFolders(Pasta, SubDirs); if SubDirs.Count > 0 then for X := 0 to SubDirs.Count -1 do begin sPasta:= SubDirs[X]; if sPasta[Length(sPasta)] <> '\' then sPasta := sPasta + '\'; ret := FindFirst(sPasta + Arquivo, faAnyFile, SR); if ret = 0 then try repeat if not (SR.Attr and faDirectory > 0) then Files.Add(SR.Name); ret := FindNext(SR); until ret <> 0; finally SysUtils.FindClose(SR) end; end; finally SubDirs.Free; end; end; //Como usar: EnumFiles('C:\Windows\', '*.txt', Memo1.Lines); abraço

No IIS7 (se eu não me engano), dentro da aba de administração, além da seção "WebSites" tem uma outra que é algo parecido com "Applicatino Pools". Nela você administra algumas permissões de execução, cgi, asp e asp.net. Ela exibe uma lista de tipos de aplicação e tem dois botões "Allow" e "Deny" . Verifica se a opção do asp e asp.net está permitida (Allow). abraço

Ricardo .... o Delphi 2009 está cheio de bugs, inclusive quanto ao Debugger Lista de erros do Delphi 2009 http://edn.embarcadero.com/article/38782 Voce deve fazer o download do Upadate1 para o delphi 2009 ( voce deve se registrar no site para pode fazer o download ) http://blogs.embarcadero.com/andreanolanus...-para-download/ abraço

Como não achei nada na internet para o delphi, resolvi montar este codigo para o pessoal: Converter data Juliana para Gregoriana e vice versa unit UJulianGreg; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Data : string; MesGreg, DiaGreg, AnoGreg : real; implementation {$R *.DFM} Uses Math; Procedure GtoJ(DiaGreg, MesGreg, AnoGreg : integer); var A, B: integer; JulDate : real; begin if (MesGreg <= 2) then begin MesGreg := MesGreg + 12; AnoGreg := AnoGreg - 1; end; A := Math.floor(AnoGreg/100); B := 2 - A + Math.floor(A/4); julDate := Math.floor(365.25*(AnoGreg+4716)) + Math.floor(30.6001*(MesGreg+1)) + DiaGreg + B - 1524.5; Data:= floattostr(julDate); end; Procedure JtoG(julDate : real); var Epsilon, omega , A, B, C, D, Z, f : real; MesGregText : string; begin julDate := julDate + 0.5; z := Math.floor(julDate); f := julDate - z; if (z < 2299161) then A := z else omega := Math.floor((z-1867216.25)/36524.25); A := z + 1 + omega - Math.floor(omega/4); B := A + 1524; C := Math.floor((B-122.1)/365.25); D := Math.floor(365.25*C); Epsilon := Math.floor((B-D)/30.6001); DiaGreg := B - D - Math.floor(30.6001*Epsilon) + f; if (Epsilon < 14) then MesGreg := Epsilon - 1 else MesGreg := Epsilon - 13; if (MesGreg > 2) then AnoGreg := C - 4716 else AnoGreg := C - 4715; case trunc(MesGreg) of 1 : MesGregText := 'Janeiro'; 2 : MesGregText := 'Fevereiro'; 3 : MesGregText := 'Março'; 4 : MesGregText := 'Abril'; 5 : MesGregText := 'Maio'; 6 : MesGregText := 'Junho'; 7 : MesGregText := 'Julho'; 8 : MesGregText := 'Agosto'; 9 : MesGregText := 'Setembro'; 10 : MesGregText := 'Outubro'; 11 : MesGregText := 'Novembro'; 12 : MesGregText := 'Dezembro'; end; end; procedure TForm1.Button1Click(Sender: TObject); var Year, Month, Day : Word; begin // Data Gregoriana para Juliana // Dia , Mes , Ano Data:= InputBox('Data Gregoriana', 'Digite uma data', '00/00/0000'); DecodeDate(strtodate(Data), Year, Month, Day); GtoJ(Day,Month,Year); Label1.caption := ('Data Juliana : ' + Data ); end; procedure TForm1.Button2Click(Sender: TObject); begin // Data Juliana para Gregoriana Data:= InputBox('Data Juliana', 'Digite uma data', '00000000,00'); JtoG(strtofloat(Data)); Label2.Caption := ('Data Gregoriana : ' + inttostr(trunc(DiaGreg)) + ' / ' + inttostr(trunc(MesGreg)) + ' / ' + inttostr(trunc(AnoGreg))); end; end.

Predes ... fiz este código para o delphi 5, creio que vai ajudar a voce e a outros CONVERTER DATA GREGORIANA PARA JULIANA E VICE VERSA unit UJulianGreg; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Data : string; MesGreg, DiaGreg, AnoGreg : real; implementation {$R *.DFM} Uses Math; Procedure GtoJ(DiaGreg, MesGreg, AnoGreg : integer); var A, B: integer; JulDate : real; begin if (MesGreg <= 2) then begin MesGreg := MesGreg + 12; AnoGreg := AnoGreg - 1; end; A := Math.floor(AnoGreg/100); B := 2 - A + Math.floor(A/4); julDate := Math.floor(365.25*(AnoGreg+4716)) + Math.floor(30.6001*(MesGreg+1)) + DiaGreg + B - 1524.5; Data:= floattostr(julDate); end; Procedure JtoG(julDate : real); var Epsilon, omega , A, B, C, D, Z, f : real; MesGregText : string; begin julDate := julDate + 0.5; z := Math.floor(julDate); f := julDate - z; if (z < 2299161) then A := z else omega := Math.floor((z-1867216.25)/36524.25); A := z + 1 + omega - Math.floor(omega/4); B := A + 1524; C := Math.floor((B-122.1)/365.25); D := Math.floor(365.25*C); Epsilon := Math.floor((B-D)/30.6001); DiaGreg := B - D - Math.floor(30.6001*Epsilon) + f; if (Epsilon < 14) then MesGreg := Epsilon - 1 else MesGreg := Epsilon - 13; if (MesGreg > 2) then AnoGreg := C - 4716 else AnoGreg := C - 4715; case trunc(MesGreg) of 1 : MesGregText := 'Janeiro'; 2 : MesGregText := 'Fevereiro'; 3 : MesGregText := 'Março'; 4 : MesGregText := 'Abril'; 5 : MesGregText := 'Maio'; 6 : MesGregText := 'Junho'; 7 : MesGregText := 'Julho'; 8 : MesGregText := 'Agosto'; 9 : MesGregText := 'Setembro'; 10 : MesGregText := 'Outubro'; 11 : MesGregText := 'Novembro'; 12 : MesGregText := 'Dezembro'; end; end; procedure TForm1.Button1Click(Sender: TObject); var Year, Month, Day : Word; begin // Data Gregoriana para Juliana // Dia , Mes , Ano Data:= InputBox('Data Gregoriana', 'Digite uma data', '00/00/0000'); DecodeDate(strtodate(Data), Year, Month, Day); GtoJ(Day,Month,Year); Label1.caption := ('Data Juliana : ' + Data ); end; procedure TForm1.Button2Click(Sender: TObject); begin // Data Juliana para Gregoriana Data:= InputBox('Data Juliana', 'Digite uma data', '00000000,00'); JtoG(strtofloat(Data)); Label2.Caption := ('Data Gregoriana : ' + inttostr(trunc(DiaGreg)) + ' / ' + inttostr(trunc(MesGreg)) + ' / ' + inttostr(trunc(AnoGreg))); end; end. abraço

Habilite a opção S.M.A.R.T pelo setup da Bios Se o seu HD estiver batendo as botas voce será informado No entanto tambem pode ser vírus que pode deixar o PC lento e até ficar travando O não reconhecimento pela BIOS do HD pode ter outras causas, como por exemplo, cabos frouxos, soldas frias, mal contato, Bad Sectors do HD, temperatura excessiva no processador, Ventoinha travando por sujeira, poeira, etc Em ultimo caso tente formatar novamente o seu HD e reintalar o delphi abraço

Utilize o IBConsole para isto OBS: Este tutorial serve tanto para o interbase quanto para firebird http://www.comunidade-firebird.org/cflp/do...s/CFLP_O027.PDF http://www.delphi.eti.br/ver_artigo.php?id=18 abraço

Autor: Club Developers - Web del autor: www.clubdevelopers.com El domingo de Pascua corresponde al primer domingo que sigue a la primera luna llena de primavera. La función aquí expuesta calcula el día de Pascua para fechas entre 1583 y 4099. function Pascua(Ano : Integer): TDateTime; var Y,G,C,X,Z,D,E,N,P,J,M: Integer; begin { Algoritmo válido para fechas entre 1583 y 4099} Y := Ano; G := (Y mod 19) + 1; C := Trunc((Y/100)) + 1; X := Trunc(3 * C / 4) - 12; Z := Trunc(((8 * C) + 5) / 25) - 5; D := Trunc(((5 * Y) / 4) - X - 10); E := ((11 * G)+ 20 + Z - X) mod 30; if ((E = 25) and (G > 11)) or (E = 24) then E := E + 1; N := 44 - E; if N <; 21 then N := N + 30; P := N + 7 - ((D + N) mod 7); if P > 31 then J := P - 31 else J := P; if J = P then M := 3 else M := 4; Result := EncodeDate(Ano, M, J); end; Convertir una fecha gregoriana a juliana 01/01/2006 Top Autor: Club Developers - Web del autor: www.clubdevelopers.com Para convertir una fecha de formato gregoriano a juliano, simplemente tenemos que hacer una llamada a la función DateTimeToJulianDate() definida en DateUtils. uses DateUtils; var DiaJuliano: Extended; DateC: TDateTime; Ano, Mes, Dia: Word; Hora, Minuto, Segundo: Word; begin DateC := EncodeDateTime(Ano, Mes, Dia, Hora, Minuto, segundo, 0); DiaJuliano := DateTimeToJulianDate(DateC); end; Atención: para que el resultado de la función DateTimeToJulianDate(date) de Delphi devuelva un valor correcto, es necesario que la fecha sea estrictamente más grande al 15/10/1582 00:00:00 (inicio del calendario gregoriano). Antes de esta fecha falta el desfase de 10 dias entre los dos calendarios. Para las fechas estrictamente inferiores al 5 de octubre 1582, simplemente hay que anãoadir 10 al resultado de la función de Delphi. Donde no se puede calcular los días julianos es entre las fechas del 5 al 14 de octubre 1582 debido a que éstas no existen. Convertir una fecha juliana a gregoriana 01/01/2006 Top Autor: Club Developers - Web del autor: www.clubdevelopers.com Para convertir una fecha de formato juliano a formato gregoriano simplemente tenemos que hacer uso de la función JulianDateToDateTime() definida en DateUtils. uses DateUtils; var DiaJuliano: Extended; DateC: TDateTime; begin DateC := JulianDateToDateTime(DiaJuliano); end; Saber los días de paso de horario de invierno a horario de verano 01/01/2006 Top Autor: Club Developers - Web del autor: www.clubdevelopers.com El paso de la hora de verano a la hora de invierno está fijado por ley hasta el 2006. El paso a la hora de verano se realiza el último domingo del mes de marzo y el paso a la hora de invierno el último domingo del mes de octubre. Saber si un anãoo es bisiesto 01/01/2006 Top Autor: Club Developers - Web del autor: www.clubdevelopers.com Para que un anãoo sea bisiesto es necesario que sea múltiplo de 4 sin ser un múltiplo de 100 a excepción de si es múltiplo de 400. Los anãoos 1700, 1800 y 1900 no son bisiestos mientras que 2000 sí lo es. Para este menester, Delphi nos ofrece la función IsInLeapYear declarada en la unit DateUtils. uses DateUtils; var MiDate: TDate; begin MiDate := EncodeDate(2004,12,35); if IsInLeapYear(MiDate) then ShowMessage('Anãoo bisiesto') else ShowMessage('No es anãoo bisiesto'); end; abraço

Tente este teste: Ir em TOOLS - OPTIONS - DEBUGGER OPTIONS, e desmarcar a opção Integrated Debugging Veja se roda. abraço

Achei que TSQLQuery era o nome da sua Query... se não for troque para o nome da sua query abraço