Totodile

Eu gostaria de trabalhar com 2 programas separados.. dois executáveis.. sendo que ao clicar em um botão de um dele, o texto do campo de texto do outro muda para um texto que pegarei do 1º. como faço isso?

obrigado!

Isto é uma dica para quem quer trabalhar com ADO sem problemas. Segue abaixo como usarei o Access como exemplo.

1) Vou na guia ADO do delphi, e coloco na tela o Componente ADOConnection.

2) Atribuio ele os seguintes valores:

Name: conexao
Connected: False
Provider: MSDASQL

3) No evento Create do meu Form coloco o seguinte código:

procedure TForm1.FormCreate(Sender: TObject);
  var 
  caminho, arquivo : string;
begin
  //nome do banco de dados
  arquivo := 'banco.mdb';

  //local do banco de dados. aqui extraio a pasta do meu programa, seje onde ele estiver, se o banco estiver lá dentro, ele pegará de lá.
  Caminho := ExtractFilePath(Application.ExeName);

  //No meu componente de conexao com ADO, essa é a seguinte string de conexão com Access
  conexao.ConnectionString := 'Driver={Microsoft Access Driver (*.mdb)};' + 'Dbq='+ arquivo +'; DefaultDir=' + caminho;

  //chama conexao com o banco (conecta)
  conexao.Open;
  
end;

Pronto, agora você se conectou ao bando de dados de Access

Vou mostrar como criar o recordset:

1)

var
  frmTxt: TfrmTxt;
  rs : _recordset;

//aqui indico a variavel rs , para que eu use ela de modo Global no meu projeto.

2) Em seguida vamos buscar algo na tabela produtos:

procedure Tform1.Button1Click(Sender: TObject);
  var
  busca : string;
begin

    busca := 'select * from produtos';
    rs := conexao.execute(busca);
end;

proto, espero que isso ajuda alguem...

Por exemplo, tenhu o seguinte texto, ou o produto:

CAMISA AMARALELA COM BORDADO E GOLA BRANCA P

como, separar esse texto em 3 partes??? assim:

CAMISA AMARALELA
COM BORDADO E
GOLA BRANCA P

sendo que separa:
1º pelo 16º caractere
2º pelo 29º caractere
3º é o resto.

como fazer, desde ja agradeço!