(Resolvido) Erro ao Limpar StringList

[robinhocne]

Bom dia pessoal,

estou tentando limpar uma stringlist, mas dá erro no executavel...

with VCpo do
    begin
      clear;
      Add( 'DtCad' );
    end;
  with VVlr do
    begin
      Clear;
      Add( #39 + FormatDateTime('dd.mm.yyyy', TxtDatCad.Date) + #39 );
    end;

o Vcpo e Vvlr é uma stringlist, q fica no formulario principal.....

Vcpo, Vvlr      : TStringList;

mas ai chega..para dar um clear e ele dá pau no executavel, porem isso comecou a acontecer..agora que eu instalei o windows seven, pois no xp não dava esse pau.....

Editado Dezembro 7, 2009 por robinhocne

[Jhonas]

estou tentando limpar uma stringlist, mas dá erro no executavel...

mas ai chega..para dar um clear e ele dá pau no executavel, porem isso comecou a acontecer..agora que eu instalei o windows seven, pois no xp não dava esse pau.....

Tente essa mudança:

procedure TForm1.Button1Click(Sender: TObject);
var
  Vcpo, Vvlr      : TStringList;
  i       : Integer;
begin
  Vcpo:= TStringList.Create;
  Vvlr:= TStringList.Create;

  with VCpo do
    begin
      clear;
      Add( 'DtCad' );
    end;
  with VVlr do
    begin
      Clear;
      Add( #39 + FormatDateTime('dd.mm.yyyy', now) + #39 );
    end;

  ShowMessage(VCpo[i]);
  ShowMessage(VVlr[i]);

  Vcpo.Free;
  VVlr.Free;
end;

abraço

[robinhocne]

estou tentando limpar uma stringlist, mas dá erro no executavel...

mas ai chega..para dar um clear e ele dá pau no executavel, porem isso comecou a acontecer..agora que eu instalei o windows seven, pois no xp não dava esse pau.....

Tente essa mudança:

procedure TForm1.Button1Click(Sender: TObject);
var
  Vcpo, Vvlr      : TStringList;
  i       : Integer;
begin
  Vcpo:= TStringList.Create;
  Vvlr:= TStringList.Create;

  with VCpo do
    begin
      clear;
      Add( 'DtCad' );
    end;
  with VVlr do
    begin
      Clear;
      Add( #39 + FormatDateTime('dd.mm.yyyy', now) + #39 );
    end;

  ShowMessage(VCpo[i]);
  ShowMessage(VVlr[i]);

  Vcpo.Free;
  VVlr.Free;
end;

abraço

opa....deu certo...obrigado...