TStringList
16/03/2003
0
Olá tudo bem?
Preciso guardar algumas chaves primárias dentro de um TstringList
da seguinte forma
var
listaCodigo: TStringList;
begin
listaCodigo := TStringList.Create;
try
listaCodigo.Add(edCodSegmento.text);
finally
listaCodigo.Free;
end;
mas antes incluir a chave preciso verificar se a mesma já existe, mas não estou conseguindo, você pode me ajudar?
Obrigado!
Preciso guardar algumas chaves primárias dentro de um TstringList
da seguinte forma
var
listaCodigo: TStringList;
begin
listaCodigo := TStringList.Create;
try
listaCodigo.Add(edCodSegmento.text);
finally
listaCodigo.Free;
end;
mas antes incluir a chave preciso verificar se a mesma já existe, mas não estou conseguindo, você pode me ajudar?
Obrigado!
Sandrodantas
Curtir tópico
+ 0
Responder
Posts
16/03/2003
Anonymous
procedure TForm1.FormCreate(Sender: TObject);
begin
listaCodigo := TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
listaCodigo.Free;
listaCodigo := nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := listaCodigo.IndexOf(edCodSegmento.Text);
if x <> -1 then
begin
showmessage(´a chave ´ + edCodSegmento.Text + ´ já existe´);
exit;
end;
listaCodigo.Add(edCodSegmento.text);
edCodSegmento.Clear;
end;
//obs: a variavel listaCodigo deve ser global
//mgsmauricio@bol.com.br
begin
listaCodigo := TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
listaCodigo.Free;
listaCodigo := nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := listaCodigo.IndexOf(edCodSegmento.Text);
if x <> -1 then
begin
showmessage(´a chave ´ + edCodSegmento.Text + ´ já existe´);
exit;
end;
listaCodigo.Add(edCodSegmento.text);
edCodSegmento.Clear;
end;
//obs: a variavel listaCodigo deve ser global
//mgsmauricio@bol.com.br
Responder
16/03/2003
Sandrodantas
Obrigado por me ajudar Maurício, valeu mesmo!
E funcionou perfeitamente!
E funcionou perfeitamente!
Responder
Clique aqui para fazer login e interagir na Comunidade :)