Fred_delphi

Opa! alguém pode me dizer quanto custa o delphi? Eu quero a versão mais barata possível, pretendo trabalhar sozinho e na minha casa e não quero ter uma despesas muito alta com registro. E quais são as penas previstas para o uso do delphi sem o devido registro? Obrigado.

Opa! Não sei se entendi bem o problema, mas isso de usar o ApplyUpdates depende do componente que você esta usando, se é uma “Tquery” ou “TTable” ou “IBTable” etc, Para o Paradox eu não sei porque nunca usei essa base de dados, mas por exemplo o “IBTable” precisa de um “IBTransaction”, e para gravar eu uso “IBTransaction1.Commit” Se usar o Ttable eu simplesmente coloco um Table1.Insert e depois um Table1.Post, por segurança as vezes antes do Post eu coloco os dados informados em variáveis, coloco o post, fecho a tabela, abro de novo e localizo o registro com base nas variáveis. Se você quiser usar “Commit” então coloque um insert um post um apply e um commit. Acho que o commit já fecha a tabela automaticamente então faça aquilo de localizar o registro depois que ai não tem erro. Espero ter ajudado, Ate mais!

{para os itens "Raiz" o 'node' sera sempre nil, e cada item que você icluir recebera um index, assim voce inclui o todos os itens raiz e depois acrescente os sub itens na ordem inversa (debaixo para cima) para não ter problema de incluir no index errado} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Table1.Filtered := true; Table1.IndexName := 'tipo'; Table1.Filter := 'tipo = ''pai'''; Table1.First; //aqui você inclui os pais TreeView1.Items.Clear; TreeView1.Items.Add(nil,'pai 1'); // pai 1 e pai 2 pode ser substituido por um campo na tabela TreeView1.Items.Add(nil,'pai 2'); //aqui você filtra pelo o ultimo pai da lista e inclui seus filhos e assim por diante for i := TreeView1.Items.Count - 1 downto 0 do begin Table1.Filter := 'tipo = ''' + TreeView1.Items.Text + ''''; Table1.First; while not Table1.Eof do begin TreeView1.Items.AddChild(TreeView1.Items,Table1filho.AsString); Table1.Next; end; TreeView1.Items.Expand(true); end; end; { sou meio iniciante, não sei se tem formas mais simples de resolver este problema, mas eu fiz assim no meu prog e deu certo. qualquer duvida me mande um email que tentarei te ajudar fred_fa@yahoo.com.br}