Vielen dank für diese zügige antwort.
Werde es gleich mal testen.
Ich sehe gerade das du eine Listbox verwendet hast. Aber das kann ich sicherlich irgend wie umbasteln das es auch in eine Listview reinpasst.
dennoch vielen dank
Also irgend wie habe ich es nicht eingebaut bekommen
mein quelltext sieht wie folgt aus
Code:
begin
listview2.Clear;
tsr:=TStringlist.Create;
idftp1.List(tsr);
listview2.Items.BeginUpdate;
for i:=1 to tsr.Count-1
do begin
s:=tsr.Strings[i];
if IsPOInString(s) then //überprüft ob im dateiname das Wort 'PO' vorkommt
ShowMessage('PO vorhanden.')
else if IsPSInString(s) then // überprüft ob im dateiname das Wort 'PS' vorkommt
ShowMessage ('PS vorhanden')
else ShowMessage('None vorhanden'); //andernfalls isses das wort 'NONE'
tli:=listview2.Items.Add; // fügt das objekt/datei in listview2 ein
tli.Caption := tsr.Strings[i];
end;
listview2.Items.EndUpdate;
end;
wie ihr sehen könnt habe ich schon eine komponente aus dem string ausgelesen, nur wenn ich das für alle so machen würde würde das unmengen an quellcode bedeuten. hoffe also einer kann mir eine schneller variante posten