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....?)