Erro no método .ADD do TStringList : List Index of Bound(1)
Colegas..
Estou com problemas no método .Add do TStringList..
Tenho um arquivo .txt que gravo 3 linhas quando o usuário efetua o login.
Login
Empresa
Módulo
uma das variáveis TStringList lê o arquivo antes de alterá-lo, uma outra vai armazenando de acordo com a leitura dos dados informados pelo usuário..
quando dou um .add na segunda variável dá erro :
´List Index of Bound(1)´
Alguém pode me ajudar
Cabelo
Estou com problemas no método .Add do TStringList..
Tenho um arquivo .txt que gravo 3 linhas quando o usuário efetua o login.
Login
Empresa
Módulo
uma das variáveis TStringList lê o arquivo antes de alterá-lo, uma outra vai armazenando de acordo com a leitura dos dados informados pelo usuário..
quando dou um .add na segunda variável dá erro :
´List Index of Bound(1)´
Alguém pode me ajudar
Cabelo
Cabelo
Curtidas 0
Respostas
Lucas Silva
11/08/2004
Posta o código ai, que fica mais fácil de resolver.
GOSTEI 0
Cabelo
11/08/2004
v_sql := ´select C_COD_EMPRESA, C_NOME_EMPRESA from EM0100 where C_NOME_EMPRESA = ´´´+trim(s_comboempresas.Text)+´´´´;
if F_Query(v_query, v_client, v_sql, ´O´) then
begin
P_Grava_Empresa(Trim(v_client.fieldbyname(´C_COD_EMPRESA´).asstring));
v_str.Add(v_client.fieldbyname(´C_COD_EMPRESA´).asstring);//Erro
end
else
begin
MessageDlg(´Empresa Inválida !´, mterror, [mbOk], 0);
v_abort := True;
end;
Cabelo
if F_Query(v_query, v_client, v_sql, ´O´) then
begin
P_Grava_Empresa(Trim(v_client.fieldbyname(´C_COD_EMPRESA´).asstring));
v_str.Add(v_client.fieldbyname(´C_COD_EMPRESA´).asstring);//Erro
end
else
begin
MessageDlg(´Empresa Inválida !´, mterror, [mbOk], 0);
v_abort := True;
end;
Cabelo
GOSTEI 0
Lucas Silva
11/08/2004
Dê um create no StringList antes de inserir os dados;
v_str := TStringList.Create;
GOSTEI 0
Cabelo
11/08/2004
Isso eu já faço..
v_query := TSQLQuery.Create(self);
v_query.SQLConnection := FSQLConnection;
v_provider := TDataSetProvider.Create(self);
v_provider.Name := ´Provider_Login´;
v_provider.DataSet := v_query;
v_client := TClientDataSet.Create(self);
v_client.ProviderName := ´Provider_Login´;
v_str := TStringList.Create;
v_str2 := TStringList.Create;
v_abort := False;
Achei q não precisava postar..
Mas além disso o q poderia ser?
Não consigo entender o erro..
Cabelo
v_query := TSQLQuery.Create(self);
v_query.SQLConnection := FSQLConnection;
v_provider := TDataSetProvider.Create(self);
v_provider.Name := ´Provider_Login´;
v_provider.DataSet := v_query;
v_client := TClientDataSet.Create(self);
v_client.ProviderName := ´Provider_Login´;
v_str := TStringList.Create;
v_str2 := TStringList.Create;
v_abort := False;
Achei q não precisava postar..
Mas além disso o q poderia ser?
Não consigo entender o erro..
Cabelo
GOSTEI 0
Paulo_amorim
11/08/2004
Olá
TStrings.[b:989125bd87]Items[/b:989125bd87].Add( s: String);
Espero que ajude
Até+
TStrings.[b:989125bd87]Items[/b:989125bd87].Add( s: String);
Espero que ajude
Até+
GOSTEI 0
Cabelo
11/08/2004
AÊ Paulo..
Mais uma vez muito obrigado..
Funcionou perfeitamente..
Valew
Cabelo
Mais uma vez muito obrigado..
Funcionou perfeitamente..
Valew
Cabelo
GOSTEI 0