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:[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
