1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:

{
  Alle Dateien mit bestimmter Erweiterung
  ohne Pfad und Extension in ListBox laden
}

unit loadfiles;

interface

uses
  classes, sysutils, Windows, ShellAPI;


function ListFilesRecursive(Path, Mask: String; ShowPath: Boolean): TStringList;
function ExtractPureFilename(Name: String): String;
function StringCountInStr(SubStr, Str: String): Integer;
function SubPositionByIndex(Str, SubStr: String; Index: Integer): Integer;
function StrLeft(Str: String; Count: Integer): String;


implementation



function ListFilesRecursive(Path, Mask: String; ShowPath: Boolean): TStringList;
var SR: TSearchRec;
    Erg, I: Integer;
    RelDir, TempStr : String;
    TempList: TStringList;
begin
   IncludeTrailingPathDelimiter(Path);
   RelDir := ExtractFilePath(Mask);
   Mask := ExtractFileName(Mask);
   result:= TStringList.Create;
   TempList:= TStringList.Create;
   Erg := FindFirst(Path+RelDir+'*.*', faDirectory, SR);
   while Erg = 0 do
   begin
      if (SR.attr and faDirectory) <> 0 then
         if SR.Name[1] <> '.' then begin
            TempList.Assign(ListFilesRecursive(Path, RelDir+SR.Name+'\'+Mask, ShowPath));
            for I:= 0 to TempList.Count - 1 do begin
               TempStr:= TempList[I];
               if ShowPath and not (TempStr[2] = ':') then TempStr:= Path + TempStr;
               result.Add(TempList[I]);
            end;
         end;
      Erg := FindNext(SR);
   end;
   Erg := FindFirst(Path+RelDir+Mask, $27, SR);
   {Das Attribut $27 bedeutet
   alle echten Dateien}
   while Erg = 0 do
   begin
      if not ShowPath then
         result.Add(RelDir+SR.Name)
      else
      result.Add(Path+RelDir+SR.Name);
      Erg := FindNext(SR);
   end;
  // FindClose(SR);
   TempList.Free;
end;



//Extension abschneiden
function ExtractPureFilename(Name: String): String;
var
   Dots, DotPos: Integer;
begin
   Dots:= StringCountInStr('.', Name);
   DotPos:= SubPositionByIndex(Name, '.', Dots);
   result:= StrLeft(Name, DotPos - 1);
end;


function StringCountInStr(SubStr, Str: String): Integer;
var
   StrLn, SubLn, I: Integer;
   TempStr: String;
begin
   StrLn:= StrLen(PChar(Str));
   SubLn:= StrLen(PChar(SubStr));
   TempStr:= Str;
   result:= 0;
   for I:= 0 to StrLn - 1 do begin
      TempStr:= Copy(Str, I + 1, SubLn);
      if TempStr = SubStr then Inc(result);
   end;
end;


function SubPositionByIndex(Str, SubStr: String; Index: Integer): Integer;
var
   StrLn, SubLn, Lock, I: Integer;
   TempStr: String;
begin
   StrLn:= StrLen(PChar(Str));
   SubLn:= StrLen(PChar(SubStr));
   result:= 0;
   Lock:= 0;
   for I:= 0 to StrLn - 1 do begin
      TempStr:= Copy(Str, I + 1, SubLn);
      if TempStr = SubStr then Inc(Lock);
      if Lock = Index then begin
         result:= I + 1;
         break;
      end;
   end;
end;


function StrLeft(Str: String; Count: Integer): String;
begin
   result:= Copy(Str, 1, Count);
end;

end.
//------------------------U N I T ------- E N D E-------------------------------

//Aufruf mit

uses
  loadfiles;
  

procedure TForm1.ladetipps(Sender: TObject);
var
  path : string;
  stl  : TSTringList;
  i    : integer;
begin
  ListBox1.Clear;
  path := extractfilepath(paramstr(0))+'themen\'+combobox1.text+'\';
  stl := TStringList.Create;
  TRY
    STL.Assign(ListFilesRecursive(Path, '*.thm', false));

    for i := 0 to stl.Count - 1 do
    begin
      listbox1.Items.Add(ExtractPureFilename(stl.Strings[i]));
      listbox1.itemindex := listbox1.itemindex+1;
    end;
  FINALLY
   stl.free;
  end;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
begin
i:=listbox1.ItemIndex; \\ Nummer des angeklickten Items
memo1.Lines.LoadFromFile(Pfadvariable+listbox1.Items[i]); \\Datei in Memofeld auslesen
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(datei,'liste.dat');
  if FileExists('liste.dat') then ReSet(datei)
  else ReWrite(datei);

end;                    

1:

Listbox1.Items.Clear;                    

1:

ListBox1.ItemIndex := 0;                    

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.ItemIndex := 0;
end;                    

1:
2:

Listbox1.ItemIndex := 0;
Listbox1.Click(Sender); // oder Listbox1OnClick(Sender);                    

1:
2:

ListBox1.ItemIndex := 0;
ListBox1Click (Self);