Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
22. Feb 2005
Du nicht? Ich schon:
if CaseSensitive then
DeleteEntry := (Pos(Pattern, Items) = 0)
else
DeleteEntry := (Pos(LowerCase(Pattern), LowerCase(Items)) = 0 );
DeleteEntry wird in JEDEM Fall intialisiert :zwinker:
@quakergod: nachdem ich für CaseSensitive einen DefaultWert (=True) zugewiesen habe, brauchst du die Funktion auch nur mit 2 Parametern weglassen. Wenn der 3. Parameter...
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
21. Feb 2005
Ich habs so verstanden dass er alle Eintraege loeschen will, die das Wort enthalten.
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
20. Feb 2005
Moin Muetze,
danke fuer die Korrekturen, das kommt davon wenn man IE-Programmierer ist ;)
Diesen hier: Haettest du dir sparen koennen, nachdem der finale Code sowieso gleich aussieht ;) Ich habe mir einfach angewoehnt, var := var+1 zu verwenden, da ich oft programmiersprachen wechsle, und so gewisse Patterns (in meinem Kopf) immer gleich sind ;)
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
20. Feb 2005
Hallo St.Pauli,
function DeleteStrings(ListBox: TListBox; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
DeleteEntry: Boolean;
begin
Result := 0;
for i := ListBox.Count-1 downto 0 do
begin