AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Listbox Items hinzufügen nicht ersetzen

Ein Thema von Larsi · begonnen am 27. Mär 2008 · letzter Beitrag vom 27. Mär 2008
Antwort Antwort
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#1

Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:17
Hi,
ich möchte dass bei diesem Aufruf wenn man ihn zweimal aufruft dass dann nicht die alten Items durch die neuen ersetzt werden sondern nur hinzugefügt werden:
GetFilesInDirectory(Edit1.text, '*.tmp', Listbox1.Items, true, True);
Hoffe ihr könnt mir helfen!


MFG Lars Wiltfang
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.657 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:20
Hi,

du kannst die Einträge erst in einer StringList speichern,
diese fügst Du dann der Listbox hinzu.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:21
anders gehts nicht?
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.657 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:24
doch, aber dann mußt Du die Procedure
GetFilesInDirectory ändern.

Du mußt dann zuerst prüfen ob schon etwas in der Liste steht.
Dazu müsste man aber das Innenleben der Procedure kennen.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von Kroko1999
Kroko1999

Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:24
doch
Delphi-Quellcode:
Listbox1.Items.BeginUpdate;
ListBox1.Items.Clear;
GetFilesInDirectory(Edit1.text, '*.tmp', Listbox1.Items, true, True);
GetFilesInDirectory(Edit1.text, '*.tmp', Listbox1.Items, true, True);
ListBox1.Items.EndUpdate;
und in GetFilesInDirectory darfst du die Listbox nicht löschen!
Da sprach der Stumme zum Blinden: "Du wirst sehen ..."
oder
Wer lesen kann, ist klar im Vorteil!
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 09:26
doch, in dem du die Funktion GetFilesInDirectory einfach nach deinen wünschen umschreibst Dich zwingt ja niemand Funktionen die du im Netz findest 1 zu 1 übernehmen zu müssen.
Das beste ist es die Funktionen versuchen zu verstehen und dann gegebenfalls angepasst neu zu schreiben um etwas zu lernen.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#7

Re: Listbox Items hinzufügen nicht ersetzen

  Alt 27. Mär 2008, 10:02
Hi,

Larsi, würdest Du Dir bitte mal die Definition von GetFilesInDirectory ansehen?

Meines Wissens lautet diese:

procedure GetFilesInDirectory(Directory: String; const Mask: String; List: TStrings; WithSubDirs, ClearList: Boolean); Und jetzt schau Dir mal den letzten Parameter an, den Du mit true belegst. Was könnte der wohl, ausgehend vom Namen, machen? Und nein, er brät keine Pfannkuchen...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf