Fórum RadioGroup e Variáveis... #332663
05/11/2006
0
tenho esse radiogroup abaixo que está atribuindo o valor a uma variavel normalmente
begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste/´;
if radiogroup1.ItemIndex=1 then dir:= ´/teste1/´;
if radiogroup1.ItemIndex=2 then dir:= ´/teste2/´;
if radiogroup1.ItemIndex=3 then dir:= ´/teste3/´;
end;
mas eu preciso que ele passe o valor a 3 variaveis para cada opção como no exemplo abaixo
begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste1/´ and dir2:= ´/teste1/´ and ´/teste3/´;
end;
mas ele retorna a mensagem de erro ´Operator not applicable to this operand type´
É possível eu passar essas variáveis através desse radiogroup? alguém sabe oque está acontecendo ou tem outra alternativa?
Obrigado
WatchDogCWB
Watchdogcwb
Curtir tópico
+ 0Posts
05/11/2006
Watchdogcwb
begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste1/´ and dir2:= ´/teste1/´ and dir3:= ´/teste3/´;
end;
Gostei + 0
05/11/2006
Ruysalles
if radiogroup1.ItemIndex=0 then
begin
dir := ´/teste1/´;
dir2 := ´/teste1/´;
dir3 := ´/teste3/´;
end;
end;
Gostei + 0
06/11/2006
Watchdogcwb
Muito Obrigado!!! funcionou!!!
mas agora eu tenho outro problema, estou tentando pegar uma listagem de arquivos do meu diretorio e jogar dentro do FTP mas não estou conseguindo e não retorna nenhuma mensagem de erro, abaixo segue o codigo
Lijst := TStringList.Create;
try
if FindFirst(´C:\teste\´ + data, faAnyFile, SearchRec) = 0 then
begin
Lijst.Add(SearchRec.Name);
while FindNext(Searchrec) = 0 do
Lijst.Add(SearchRec.name);
end;
for Index := 0 to pred(Lijst.Count) do
idFTP2.Put(Lijst[Index], ´/work/lixo/´ + Lijst[Index], true);
finally
Lijst.Free;
FindClose(SearchRec);
end;
aguém pode me dar uma mão?
Obrigado
WatchDogCWB
Gostei + 0
06/11/2006
Watchdogcwb
Muito Obrigado!!! funcionou!!!
mas agora eu tenho outro problema, estou tentando pegar uma listagem de arquivos do meu diretorio e jogar dentro do FTP mas não estou conseguindo e não retorna nenhuma mensagem de erro, abaixo segue o codigo
Lijst := TStringList.Create;
try
if FindFirst(´C:\teste\´ + data, faAnyFile, SearchRec) = 0 then
begin
Lijst.Add(SearchRec.Name);
while FindNext(Searchrec) = 0 do
Lijst.Add(SearchRec.name);
end;
for Index := 0 to pred(Lijst.Count) do
idFTP2.Put(Lijst[Index], ´/work/lixo/´ + Lijst[Index], true);
finally
Lijst.Free;
FindClose(SearchRec);
end;
aguém pode me dar uma mão?
Obrigado
WatchDogCWB
Gostei + 0
06/11/2006
Watchdogcwb
Muito Obrigado!!! funcionou!!!
Gostei + 0
06/11/2006
Watchdogcwb
Funcionou!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)