Einzelnen Beitrag anzeigen

Dezipaitor

Registriert seit: 14. Apr 2003
Ort: Stuttgart
1.701 Beiträge
 
Delphi 7 Professional
 
#2
  Alt 25. Apr 2003, 16:14
hey
ich geb dir da einen tipp,

wenn sowas ist, ein blackout,
dann würde ich einfach mal den pc ausschalten und eine leichte
lektüre lesen (nix mit pc)!
einfach entspannen und an etwas anderes denken.
so mache ich es immer

danach kannste wieder dich an den quellcode wagen.

und da haste ja schon die fehlerhafte zeile gepostet
ListView1.Items.Item[i].Checked := True; das i ist nämlich für die Stringlist gedacht und nicht für
das listview.

ich würde das dann so schreiben
Delphi-Quellcode:
if fileexists(filen) then
   begin
    item := Listview1.Items.Add;
    item.SubItems.Add(filen);
    item.SubItems.Add(IntToStr(GetFileSize(filen)));
   end
   else
   begin
    if length(filen) = 0 then continue;
    item := Listview1.Items.Add;
    item.SubItems.Add(filen);
    item.SubItems.Add('not found');
   end;

 ->>>>>>> ListView1.Items.Item[item.index].Checked := fileexists(filen);
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]
Christian
Windows, Tokens, Access Control List, Dateisicherheit, Desktop, Vista Elevation?
Goto: JEDI API LIB & Windows Security Code Library (JWSCL)
  Mit Zitat antworten Zitat