Checklistbox/Pop3 - Error Message ?

[c4st0rtr0y]

uhm...wo pack ich das denn genau dazwischen?
str.add(inttostr(i)) //schreiben der messagenummer bei TForm1.ffnen1Click

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
....etc.
begin
for i := pop1.MessageCount -1 downto 0 do
  begin

   pop1.RetrieveHeader(i);
   if (checklistbox1.Items.IndexOf(Message1.Subject) = -1) AND (copy(Message1.Subject, 0, 4) = 'NEWS') then      
   checklistbox1.Items.AddObject(Message1.Subject, Pointer(1));

end;
end;
end;

hm....
strtoint(str.strings[i]) //lesen der messagenummer bei TButton2Click

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
var  i: integer;
begin
  with CheckListBox1 do
  begin
    if Items.Count = 0 then Exit;
    for i := 0 to Items.Count - 1 do if Checked[i] then pop1.retrieve(i);
  end;
end;

for .. to add benutzt und bei for .. downto insert <-- zwischen z.b. for i := pop1.MessageCount -1 downto 0 do ? da klappt des irgendwie net, muss ich vorher auch definieren (var str....?)

[chris]

hi,

*g* ok

z.b.

Delphi-Quellcode:

public
var str: TStringlist;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  str := TStringlist.Create
end;

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  str.Free
end;

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
var I: integer;
begin
  try
    str.Clear;
    for I := pop1.MessageCount - 1 downto 0 do
      begin
        pop1.RetrieveHeader(I);
        if (checklistbox1.Items.IndexOf(Message1.Subject) = -1) and (Copy(Message1.Subject, 0, 4) = 'NEWS') then
          begin
            checklistbox1.Items.AddObject(Message1.Subject, Pointer(1));
            str.Insert(0, IntToStr(I));
          end
      end
  except
  end
end;

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
var I: integer;
begin
  try
    with checklistbox1 do
      begin
        if Items.Count = 0 then Exit;
        for I := 0 to Items.Count - 1 do
          if checked[I] then pop1.retrieve(StrToInt(str.Strings[I]))
      end
  except
  end
end;

[c4st0rtr0y]

besten dank! da kann ich mir jetzt schön die Form dekorieren und noch ein paar sachen einfügen ;) und vor allem das verstehen lernen. danke nochmal!
mfg