Kikonanet

Olá, Tenta assim: var F: TextFile; begin AssignFile(F,'C:\teste.txt'); Rewrite(F); Writeln(F,Edit1.Text); CloseFile(F); end; Obs.: Tome cuidado, pois se tiver algo escrito no txt, irá escrever por cima do que estava escrito. Se você for acrescentar dados ao txt, sugiro q você leia o txt antes, e depois insira (concatenando). qualquer coisa posta ae. Abs. Kiko

Ok. Tópico fechado Abs. Kiko

Olá, Eu tenho um manual do Quick (doc) acho q pode te dar uma ajuda, me passa seu e-mail! Mas em todo caso vai uns links que provavelmente tem algo sobre o QuickReport! http://www.delphi.eti.br/ http://www.activedelphi.com.br Abs. Kiko

Olá, Qual erro q dá? A conexão com o BD está feita? Abs. Kiko

Olá Éder, Eu não mexo com Table, mas vai uma idéia. Tenta buscar o registro pelo nome (ou ID) e depois você o apaga! ex. if Table.Locate('CAMPO','MARIA',[loCaseInsensitive]) then Table.Delete; // Só uma idéia Abs. Kiko

Olá, Qual é sua dúvida? Abs. Kiko

Olá, Dá uma olhada no site da Borland (acho meio difícil você achar o Delphi 7) e veja se encontra o DEMO. http://www.borland.com/ Abs. Kiko

Olá, Dá uma olhada no Rave Reports q vem no D7.. Mexi bem pouco com ele, mas gostei! Abs. Kiko

Olá McBlade, Registro.WriteString('Background Color',IntToHex(StringToColor('clRed'),8)); Dê uma olhada: Tente deixar a cor como string. Abs. Kiko

Olá Ana, Dê uma olhada no componente IdIcmpClient (Palheta Indy Clients). Ex: Mostra em um memo o ping! procedure TForm1.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus); var sTime: string; begin if (ReplyStatus.MsRoundTripTime = 0) then sTime := '<1' else sTime := '='; Memo1.Lines.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms', [ReplyStatus.BytesReceived,ReplyStatus.FromIpAddress,ReplyStatus.SequenceId, ReplyStatus.TimeToLive,sTime,ReplyStatus.MsRoundTripTime])); end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin IdIcmpClient1.OnReply:=ICMPReply; IdIcmpClient1.ReceiveTimeout := 1000; IdIcmpClient1.Host := 'www.terra.com.br'; for i := 1 to 4 do begin IdIcmpClient1.Ping; end end; Olhe tmb este link: http://www.koders.com/delphi/fidEFF6010C71...89F3421490.aspx Abs. Kiko

Olá, Dê uma olha na função MessageBox. Ex: MessageBox(Handle,PChar('Error while trying to send message'),PChar('Error'),MB_ICONERROR or MB_OK); Abs. Kiko

Olá, Dá uma olhada na escrita! Abs. Kiko

Olá, Veja se imprimindo direto do Componente ajuda! Código para imprimir direto RichEdit. procedure PrintRichEdit(const Caption: string;const RichEdt: TRichEdit); // Requer a Printers e RichEdit declaradas na clausula uses da unit var Range: TFormatRange; LastChar, MaxLen, LogX, LogY, OldMap: Integer; begin FillChar(Range, SizeOf(TFormatRange), 0); with Printer, Range do begin BeginDoc; hdc := Handle; hdcTarget := hdc; LogX := GetDeviceCaps(Handle, LOGPIXELSX); LogY := GetDeviceCaps(Handle, LOGPIXELSY); if IsRectEmpty(RichEdt.PageRect) then begin rc.right := PageWidth * 1440 div LogX; rc.bottom := PageHeight * 1440 div LogY; end else begin rc.left := RichEdt.PageRect.Left * 1440 div LogX; rc.top := RichEdt.PageRect.Top * 1440 div LogY; rc.right := RichEdt.PageRect.Right * 1440 div LogX; rc.bottom := RichEdt.PageRect.Bottom * 1440 div LogY; end; rcPage := rc; Title := Caption; LastChar := 0; MaxLen := RichEdt.GetTextLen; chrg.cpMax := -1; OldMap := SetMapMode(hdc, MM_TEXT); SendMessage(RichEdt.Handle, EM_FORMATRANGE, 0, 0); try repeat chrg.cpMin := LastChar; LastChar := SendMessage(RichEdt.Handle, EM_FORMATRANGE, 1,Longint(@Range)); if (LastChar < MaxLen) and (LastChar < -1) then begin NewPage; end; until (LastChar = MaxLen) or (LastChar = -1); EndDoc; finally SendMessage(RichEdt.Handle, EM_FORMATRANGE, 0, 0); SetMapMode(hdc, OldMap); end; end; end; Você pode colocar o RichEdit em qualquer lugar do seu form. Vou dar uma olhada aki nisso. qualquer coisa posto ae! Abs. Kiko

Olá, você precisa ter dentro de um QRBand (BandType: rbDetail) o QRRichEdit. Tenta assim: with Form2 do begin QRRichText1.Lines.Text:=RichEdit1.Lines.Text; QuickRep1.Preview; end; Obs: Use a propriedade AutoStretch do QRRichEdit como true. Abs. Kiko

Olá, Dê uma olhada neste link! http://www.activedelphi.com.br/modules.php...=&order=&thold= Abs. Kiko

Olá, Alguém sabe como faço para Integrar o Apache + Tomcat no windows! Abs. Kiko

qualquer coisa estamos ai. Abs. Kiko

Olá, Tenta essa função! function WinExit(flags: integer): boolean; function SetPrivilege(privilegeName: string; enable: boolean): boolean; var tpPrev, tp : TTokenPrivileges; token : THandle; dwRetLen : DWord; begin result := False; OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token); tp.PrivilegeCount := 1; if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then begin if enable then tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else tp.Privileges[0].Attributes := 0; dwRetLen := 0; result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen); end; CloseHandle(token); end; begin if SetPrivilege('SeShutdownPrivilege', true) then begin ExitWindowsEx(flags, 0); SetPrivilege('SeShutdownPrivilege', False) end; winExit:= True; end; Para chamar: WinExit(EWX_POWEROFF); Abs. Kiko

Olá, Dá uma olhada nos demos do Delphi... Tem vários exemplos de relatório lá! Abs. Kiko

Olá Pessoal, Alguém tem algum tutorial, ou pode me explicar como instalar o Apache 2.x no Windows + JavaServelets? Não estou conseguindo. Abs. Kiko

Olá Aninha, Tenta fazer assim: with Query do begin Close; SQL.Clear; SQL.Add(' SELECT * FROM CRIANCA SQL.Add('WHERE NOME_CRI LIKE '+QuotedStr(Edit1.Text)); SQL.Add('ORDER BY COD_CRI'); Open; qualquer coisa posta ae. Abs. Kiko

Olá Késsia, Use seu código tmb no Evento OnExit do Edit. qualquer coisa posta ae. Abs. Kiko

qualquer coisa estamos ai. Abs. Kiko

qualquer coisa estamos ai. Abs. Kiko

Éder, Simplificando o RichEdit tem alguns atributos que o Memo não tem, mas os dois trabalham de forma muito parecida. Para maiores esclarecimentos, dá uma olha no Help do Delphi Abs. Kiko