Jhonas

verifique se não é bug do seu delphi o código funciona no delphi 3, 5 e 7 sem problemas abraço

veja esse exemplo.. vai te ajudar a entender http://docwiki.embarcadero.com/CodeExamples/XE8/en/Generics_Collections_TList_(Delphi) abraço

veja nesse link https://www.youtube.com/redirect?q=http%3A%2F%2Fescortilanver.net%2F2%2Fdl.php%3Ffilename%3DUnity.Asset.-PolyNav.-.2D.Pathfinding.v1.3.4b&redir_token=Qa1TRw410q72oKEqj_fidjgsnIB8MTQzODczMDIzN0AxNDM4NjQzODM3

voce tem que criar outra propriedade ... tipo OnExit1 ... OnExit2... ou pode tentar adicionar outro código ao código já existente abraço

solução: http://www.solvusoft.com/pt-br/files/erro-bsod-de-tela-azul/sys/windows/atheros-communications-inc/driver-for-atheros-cb42-cb43-mb42-mb43-network-adapter/athur-sys/ abraço

isso porque tan(1) em graus é = 0.01745506 tan(1) em radianos é = 1.55740772 http://www.rapidtables.com/calc/math/Tan_Calculator.htm abraço

Seja bem vindo ao Forum ... OBS: Favor postar suas duvidas no forum correspondente abraço

Caso não tenha entendido o que falei .... vai ai um exemplo de como fazer unit UTabSheet00; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; PageControl1: TPageControl; Button2: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure PageControl1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; TabSheet, TabSheetx : TTabSheet; RichEdit : TRichEdit; NumTabs: integer = 0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin TabSheet := TTabSheet.Create(SELF); TabSheet.PageControl := PageControl1; TabSheet.Name := 'TabSheet' + IntToStr(NumTabs); TabSheet.Caption := TabSheet.Name; Edit1.Text := TabSheet.Name; RichEdit := TRichEdit.Create(SELF); RichEdit.Parent := TabSheet; RichEdit.Name := 'RichEdit' + IntToStr(NumTabs); RichEdit.Align := alClient; RichEdit.ScrollBars := ssBoth; RichEdit.Text := 'Incluindo Texto no RichEdit'+IntToStr(NumTabs); Edit2.Text := RichEdit.Name; Inc(NumTabs); PageControl1.ActivePageIndex := PageControl1.PageCount - 1; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin showmessage('Salvando o Arquivo '+ PageControl1.ActivePage.Caption+'.txt'); for i := 0 to ComponentCount-1 do // navega por todos os componentes begin if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit1') and (TRichEdit(Components[i]).CanFocus = true) then begin TRichEdit(Components[i]).Lines.SaveToFile('C:\RichEdit1.txt'); break; end; if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit2') and (TRichEdit(Components[i]).CanFocus = true) then begin TRichEdit(Components[i]).Lines.SaveToFile('C:\RichEdit2.txt'); break; end; if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit3') and (TRichEdit(Components[i]).CanFocus = true) then begin TRichEdit(Components[i]).Lines.SaveToFile('C:\RichEdit3.txt'); break; end; end; end; procedure TForm1.PageControl1Change(Sender: TObject); Var i : INTEGER; begin Edit1.Text := PageControl1.ActivePage.Caption; for i := 0 to ComponentCount-1 do // navega por todos os componentes begin if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit1') and (TRichEdit(Components[i]).CanFocus = true) then begin Edit2.Text := TRichEdit(Components[i]).name; break; end; if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit2') and (TRichEdit(Components[i]).CanFocus = true) then begin Edit2.Text := TRichEdit(Components[i]).name; break; end; if (Components[i] is TRichEdit) and (TRichEdit(Components[i]).Name = 'RichEdit3') and (TRichEdit(Components[i]).CanFocus = true) then begin Edit2.Text := TRichEdit(Components[i]).name; break; end; end; showmessage(TRichEdit(Components[i]).Text); end; end. abraço

mas ele esta salvando so o conteudo do ultimo RichEdit criado e não o RichEdit ativo o ultimo RichEdit criado é o que será ativo... isso ocorre, porque voce não consegue pegar o nome do componente RichEdit ... exemplo se voce quiser pegar o RichEdit que foi criado no Tabsheet 3 ( vamos supor que o nome criado para o RichEdit seja RichEdit3 ) e voce definir em algum lugar do seu programa RichEdit3.Lines.SaveToFile('C:\RichEdit3.txt'); vai ocorrer um erro, pois o nome desse componente não foi declarado em nenhum lugar ( ele foi criado dinamicamente ) e dinamicamente voce deve procurar pelo nome que o componente foi criado. a solução seria... ao clicar no evento OnChange do PageControl voce pegar o nome do componente RichEdit ou o conteudo que esta no componente RichEdit criado, para então depois salva-lo. abraço

veja se isso te ajuda http://www.math.tamu.edu/~mpilant/math696/psftp.html http://www.lawebdelprogramador.com/foros/Ms-Dos/1034547-Ayuda-con-PSFTP.html http://www.google.com.br/search?q=comandos+psftp&hl=pt&gbv=2&o que=comandos+psft&gs_l=heirloom-serp.1.1.0i22i30l3.1995.1995.0.6060.1.1.0.0.0.0.111.111.0j1.1.0....0...1ac.1.34.heirloom-serp..0.1.111.KV_wU1fVs2w abraço

coloque um exemplo da sua bat

exemplo <input type='image' src='https://www.bcash.co...ao_carrinho.gif' value='Adicionar ao Carrinho' alt='Adicionar ao Carrinho' border='0' align='absbottom' /></td></tr></table></form> procedure TForm1.Button2Click(Sender: TObject); var Elements: OleVariant; i: Integer; begin // Evitar erros de Scripts WebBrowser1.Silent := true; Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length -1) do begin if (Elements.item(i).tagName = 'INPUT') and (Elements.item(i).type = 'image') and (Elements.item(i).Value = 'Adicionar ao Carrinho') then Elements.item(i).Click; end; end; abraço

exemplo http://forum.clubedohardware.com.br/topic/759474-resolvido-salvar-log-de-programa-bat-com-data/ abraço

exemplo // Ao ativar o Form verifica qual tabsheet esta ativo procedure TForm1.FormActivate(Sender: TObject); begin Edit1.Text := PageControl1.ActivePage.Caption; end; // Quando clicar em outro Tabsheet procedure TForm1.PageControl1Change(Sender: TObject); begin Edit1.Text := PageControl1.ActivePage.Caption; end; // Testar o Tabsheet ativo e salvar o conteudo do RichEdit procedure TForm1.BitBtn1Click(Sender: TObject); begin if tabsheet1.Showing then RichEdit1.Lines.SaveToFile('C:\RichEdit1.txt'); if tabsheet2.Showing then RichEdit2.Lines.SaveToFile('C:\RichEdit2.txt'); if tabsheet3.Showing then RichEdit3.Lines.SaveToFile('C:\RichEdit3.txt'); end; // Testar o Tabsheet ativo e salvar o conteudo do RichEdit procedure TForm1.BitBtn2Click(Sender: TObject); var i: integer; Arquivo : TextFile; begin if tabsheet1.Showing then begin AssignFile(Arquivo, 'C:\RichEdit1.txt'); Rewrite(Arquivo); for i := 0 to RichEdit1.Lines.Count -1 do begin Write(Arquivo, RichEdit1.Lines.Strings[i]); end; Append(Arquivo); end; if tabsheet2.Showing then begin AssignFile(Arquivo, 'C:\RichEdit2.txt'); Rewrite(Arquivo); for i := 0 to RichEdit2.Lines.Count -1 do begin Write(Arquivo, RichEdit2.Lines.Strings[i]); end; Append(Arquivo); end; if tabsheet3.Showing then begin AssignFile(Arquivo, 'C:\RichEdit3.txt'); Rewrite(Arquivo); for i := 0 to RichEdit3.Lines.Count -1 do begin Write(Arquivo, RichEdit3.Lines.Strings[i]); end; Append(Arquivo); end; end; OBS: A diferença entre as duas maneiras, seria: ( Supondo que o conteudo da linha fosse somente a palavra RichEdit1 ) usando o comando RichEdit1.Lines.SaveToFile('C:\RichEdit1.txt'); o conteudo do arquivo sera {\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs16 RichEdit1 \par \par } usando o comando Write(Arquivo, RichEdit1.Lines.Strings); o conteudo do arquivo sera RichEdit1 abraço

amigo, o título até que ajuda, mas o que conta é sua experiencia e a rapidez com que voce consegue entregar um produto pronto e com qualidade. se voce acha que sua experiencia nessas linguagens ( C# ou C++, Python ou HTML5 ) for suficiente para desenvolver sistemas, então tente conseguir um emprego nessa área, caso contrário seria melhor arrumar alguma coisa como estágiario. abraço

Eu irei pesquisar sobre lógica mais a fundo. Teria como você me indicar um bom livro sobre esse assunto? no link que te passei, tem muito material sobre logica de programação ( veja os arquivos pdf ) http://www.google.com.br/search?hl=pt&source=hp&biw=&bih=&q=tutorial+sobre+algoritmos+e+l%C3%B3gica+de+programa%C3%A7%C3%A3o+-+parte+2&gbv=2&o que=tutorial+logica+de+pro&gs_l=heirloom-hp.1.7.0i22i30l10.2259.6837.0.17853.22.20.0.2.2.0.191.2324.5j15.20.0....0...1ac.1.34.heirloom-hp..0.22.2339.9S4Ynxp9m5U abraço

Mas então quer dizer que um curso de lógica da programação seria o passo 0 para iniciar algo neste setor ne? sem lógica de programação, voce fica como um barco sem leme ... vai levar muito tempo para chegar ao lugar certo logica de programação se aplica a qualquer linguagem de programação entretanto como a maioria dos programas são desenvolvidos para uso em rede, é bom pesquisar sobre esse assunto. abraço

voce vai encontrar muito material na internet sobre o assunto lógica de programação http://www.google.com.br/search?hl=pt&source=hp&biw=&bih=&q=tutorial+sobre+algoritmos+e+l%C3%B3gica+de+programa%C3%A7%C3%A3o+-+parte+2&gbv=2&o que=tutorial+logica+de+pro&gs_l=heirloom-hp.1.7.0i22i30l10.2259.6837.0.17853.22.20.0.2.2.0.191.2324.5j15.20.0....0...1ac.1.34.heirloom-hp..0.22.2339.9S4Ynxp9m5U Phyton http://www.google.com.br/search?q=tutorial+programa%C3%A7%C3%A3o+python&hl=pt&gbv=2&o que=tutorial+phyton&gs_l=heirloom-serp.1.9.0i10j0i7i10i30j0i7i30l5j0i7i10i30j0i7i30j0i7i10i30.279243.291542.0.298075.15.15.0.0.0.0.175.1566.10j5.15.0....0...1ac.1.34.heirloom-serp..0.15.1566.okgPoy_qkd4 obs: se voce quer se tornar um bom profissional, leia muito e pratique sempre a pratica leva a perfeição .... e lembre-se sempre de ampliar o seu leque de conhecimento, não fique restrito a somente uma coisa OBS: suas dúvidas em python, devem ser postadas no forum de Phyton .. ok ? abraço

Seja bem vindo ao Forum ... Na área de programação existem muitos caminhos ... depende de sua preferencia ( linguagem de programaçao ) OBS: Favor postar suas duvidas no forum correto abraço

pelo erro, o servidor não esta rodando ... voce deve ativar o serviço abraço

sugestões: existe um componente chamado TRxTrayIcon que está na paleta do RX Tools ( Pacote RXLIb ) basta colocar no form principal. ele vai colocar um icone que voce escolher, na barra de tarefas perto do relogio ... então quando voce minimizar o programa, bastara clicar novamente no icone para fazer a restauração novamente. existe tambem outro componente para isso ... chamado, Minimizer ( basta procurar na Net e depois instalar no delphi ) para voce entender melhor o que estou dizendo, olhe esse post https://www.scriptbrasil.com.br/forum/topic/137238-sistema-de-login/?p=546618 ou https://www.scriptbrasil.com.br/forum/topic/137238-sistema-de-login/ OBS: o delphi esconde os forms minimizados, mas no link do post que te passei tem uma solução para isso abraço

então inverta ... veja se fica como voce quer obs: tenho varios sistemas com login e senha, mas o fato de colocar o form de login como main form não altera muita coisa no form principal. e abrir a tela do form Fprincipal, ele não aparece na barra de tarefas voce diz se minimizar o form ele não aparece na barra de tarefas ??

coloquei o Flogin como main form não ... coloque o FPrincipal como main form ... para fazer isso va no Menu > Project > Options... > Aba Forms > em Main form ( selecione o form que voce quer ) depois no Auto-create forms coloque o FLogin primeiro e depois o FPrincipal abraço

tem a OCR para delphi http://www.google.com.br/search?q=ocr+delphi&hl=pt&biw=&bih=&gbv=2&o que=ocr+delphi&gs_l=heirloom-serp.3..0j0i7i30l7j0l2.154496.154767.0.155060.3.3.0.0.0.0.138.264.2j1.3.0....0...1ac.1.34.heirloom-serp..1.2.126.eroXU0x9DZg abraço

voce pode fazer isso para qualquer coluna da sua tabela procedure TFCartCons.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.FieldName = 'SALDO') then begin if CDS_Opcoes.FieldByName('SALDO').Value < 0 then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color := clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; if (Column.FieldName = 'DESCRICAO') then begin if CDS_Opcoes.FieldByName('DESCRICAO').Value = 'CELULAR ' then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color := clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end; abraço