Campo

[Micheletti]

Como faço p/ adicionar um campo que receba os resultados gerado pelo prog....

nota: O progama que estou fazendo é um prog. p criar uma seguência de caracter...como coloco a caixa que vai receber o resultado gerado pelo prog.?

[jissa]

não entendi.. voce quer salvar num banco de Dados?? ou em variavel?

[Micheletti]

Agora quem não tendeu foi eu...rs*

não vou usar Db...o prog. salva como arquivo txt*

[jissa]

Olha este codigo pega de um DB e salva num txt.. se quiser troca a ref. do db (table1.Fild... para o campo que quer colocar...

Ve se isto ajuda.. se não posta o problema mais detalhado ai...

procedure TForm1.Button1Click(Sender: TObject);

var arq: TextFile;

linha: String;

begin

//Associa o Nome Logico ao arquivo Fisico

AssignFile ( arq, 'C:\Micheletti\teste.txt' );

//Cria o Arquivo para uso OBS.. SE O ARQUIVO EXISTIR SERA SOBREPOSTO

Rewrite ( arq );

table1.First;

while not table1.Eof do

begin

//Escreve a informacao no arquivo o ln muda de linha

Write ( arq, AjustaStr ( table1.FieldByName ( 'Campo1' ).AsString,10 ) );

Write ( arq, AjustaStr ( table1.FieldByName ( 'Campo2' ).AsString,10 ) );

WriteLn ( arq );

table1.Next;

end;

// Fecha o Arquivo

CloseFile ( arq );

end;

só para completar os comandos... alem das funcoes acima ainda tem duas que voce pode utilizar..

o Read - Le informacao do arquivo

o Reset - Abre um arquivo para leitura

[Micheletti]

Como e onde aplico esse codigo?

C pode me falar o procedimento p aplicalo?

é que to aprendendo agora.

brigado.

[Micheletti]

era p ficar assim?

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, StdCtrls, DBCtrls, ExtCtrls, ToolWin, ComCtrls, Spin, Tabnotbk,

Grids, DBGrids, TeeProcs, TeEngine, Chart, DBChart, DBCGrids, ActnList,

ImgList, Buttons, Db, DBTables;

type

Tmicheletti = class(TForm)

MainMenu1: TMainMenu;

Abrir1: TMenuItem;

Arquivo1: TMenuItem;

Salvar1: TMenuItem;

SalvarComo1: TMenuItem;

N1: TMenuItem;

Imprimir1: TMenuItem;

N2: TMenuItem;

Sair1: TMenuItem;

Sair2: TMenuItem;

Ao1: TMenuItem;

Iniciar1: TMenuItem;

Pausar1: TMenuItem;

Parar1: TMenuItem;

ContinuardoArquivo1: TMenuItem;

Creditos1: TMenuItem;

Micheletti1: TMenuItem;

Tamandare1: TMenuItem;

Ajuda1: TMenuItem;

OnLine1: TMenuItem;

AssistenteMic1: TMenuItem;

Status: TStatusBar;

ToolBar1: TToolBar;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

ToolBar2: TToolBar;

ImageList1: TImageList;

aaa: TDBRichEdit;

Listar: TBitBtn;

Cancelar: TBitBtn;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton6: TToolButton;

ToolButton5: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

ToolButton10: TToolButton;

Table1: TTable;

procedure Sair2Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

micheletti: Tmicheletti;

implementation

{$R *.DFM}

procedure Tmicheletti.Sair2Click(Sender: TObject);

begin

Close;

end;

procedure Tmicheletti.ToolButton2Click(Sender: TObject);

begin

procedure TForm1.Button1Click(Sender: TObject);

var arq: TextFile;

linha: String;

begin

//Associa o Nome Logico ao arquivo Fisico

AssignFile ( arq, 'C:\Micheletti\teste.txt' );

//Cria o Arquivo para uso OBS.. SE O ARQUIVO EXISTIR SERA SOBREPOSTO

Rewrite ( arq );

table1.First;

while not table1.Eof do

begin

//Escreve a informacao no arquivo o ln muda de linha

Write ( arq, AjustaStr ( table1.FieldByName ( 'Campo1' ).AsString,10 ) );

Write ( arq, AjustaStr ( table1.FieldByName ( 'Campo2' ).AsString,10 ) );

WriteLn ( arq );

table1.Next;

end;

// Fecha o Arquivo

CloseFile ( arq );

end;

end;

end.

não fuciona

[jissa]

Tem que mudar o codigo.. passei apenas como pode ser feito... ai você tem que mudar para as suas necessidades...

Crie um Botao.. tipo (Gerar Arquivo) E coloca o Cod. no OnClick

[Micheletti]

não concegui ainda....rs**

vou fazer assim...colocar uma caixa de entrada onde eu possa digitar uma seguencia de caracters.. e outra caixa que exibirar um resultado, sequencial do mesmo..so que não sei como colocar e interligar as 2 caixas....só falta isso p terminar o progama... :huh: