Valeu meu querido!!!! Deu certo
"Eduardo Alves"
--- Em delphi-br@yahoogrupos.com.br, "Eduardo Alves" <[EMAIL PROTECTED]>
escreveu
>
> Ve se é isso:
>
> function TForm1.CarregaEdit(pTexto: String): Boolean;
> var
> vIntCount,
> vIntFor : Integer;
> vStrAux : String;
>
> begin
>
> Result := True;
> vIntCount := 0;
> vStrAux := '';
> for vIntFor := 1 to Length(pTexto) do
> try
> if (pTexto[vIntFor] <> ' ') and (vIntFor < Length
(pTexto)) then
> begin
> vStrAux := vStrAux + pTexto[vIntFor];
> end
> else
> begin
> Inc(vIntCount);
> if vIntFor <= Length(pTexto) then
> vStrAux := vStrAux + pTexto[vIntFor];
> // Se o nome dos Edit's for 1, 2 e 3
> TEdit(FindComponent('Edit' + IntToStr
(vIntCount))).Text := Trim(vStrAux);
> // Se não for
> {
> Case vIntCount do
> 0 : SeuEdit1.Text := Trim(vStrAux);
> 1 : SeuEdit2.Text := Trim(vStrAux);
> 2 : SeuEdit3.Text := Trim(vStrAux);
> end;
> }
> vStrAux := '';
> end;
> except
> on E : Exception do
> begin
> ShowMessage(E.Message);
> Result := False;
> end;
> end;
>
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>
> CarregaEdit('Carrega_edit1 Carrega_edit2 Carrega_edit3');
>
> end;
>
> QQ da um grito.
>
>
>
> Eduardo Castro Alves
> Analista de Sistemas
>
> -----Original Message-----
> From: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED] On Behalf Of conexaoi
> Sent: sexta-feira, 31 de março de 2006 01:10
> To: delphi-br@yahoogrupos.com.br
> Subject: [delphi-br] Transferir para um edit
>
> Ai pessoal um aló para todos!
>
> Eu tenho uma tabela1 com o campo [caminho] onde eu nela há dados
> nesta forma.
>
> dezexe c:\Cursos\WinXp.zip winxp01.exe
>
> eu quero passar para caixa de texto (edit) os valores: para serem
> manipulados.
>
> dezexe ==> passar para edit1
> c:\Cursos\WinXp.zip ==> passar para edit2
> winxp01.exe ==> passar para edit3
>
> Um único valor constante é o espaço que separa cada caminho.
> dezexe c:\Cursos\WinXp.zip winxp01.exe
>
> Bom se alguém puder me ajudar com qualquer dica eu agradeço.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
