-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
11. Feb 2010
Im Beitrag #26 gibt es notfalls noch eine ältere Version.
Im Beitrag #36 hab ich es aber mal so geändert, daß standardmäßig nun auch UTF-8 erst ab D2009 eingebunden wird, obwohl die älteren Delphis den UTF8String eigentlich kennen.
Aber anscheinend kann sich da der Compiler, bei Angabe von untypisierten Stringkonstanten, wozu auch ein direktes 'xyz' gehört, noch nicht für einen der beiden...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
1. Nov 2009
Und noch 'ne kleine Anpassung bezüglich "älteren" Delphis.
Mein D7 mochte verständlicher Weise das {$STRINGCHECKS OFF} nicht, welches Letztens mir reinrutschte.
Darum würde dieses etwas verschoben, bzw. von Delphi < 2009 versteckt.
Anhang entfernt > aktuelle Version siehe Beitrag #36
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
26. Jul 2009
gibt jetzt keine großartigen Veränderungen ... ich hab nur den UTF8String hinzugefügt.
theoretisch/praktisch wird dort genauso verglichen, wie beim AnsiString, aber der Compiler nörgelt etwas rum, wenn man einen UTF8String an einen AnsiString übergeben möchte.
Drum hab ich einfach die Versionen mit AnsiString geklont und auf UTF8String (siehe System.pas) umgestellt. :angel:
Anhang...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
23. Jun 2009
Achtung: diese Veränderung bewirkt nur eine Verbesserung bei UnicodeStrings (PWideChar, WideString und UnicodeString)
Eigentlich hatte ich sowas zwar nicht vor, aber ich hab mich doch mal entschlossen die Unicodebehandlung aus meinem himXML zu extrahieren und hier mit einzubauen.
Es wird beim Unit-Start ein kleines Abbild des gesamten Unicode-2-Zeichensatzes angelegt und dann direkt darüber...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
22. Jun 2009
Bezüglich des Escaping:
'\': If not (cfOnlyWild in Flags) and (Mp + 1 < Me2) Then
Case (Mp + 1)^ of '*', '?', '{', '~', '|', '\': Inc(Mp); End
Else GoTo LElse;
kleiner Unterschied, große Wirkung :freak:
'\': Begin
If not (cfOnlyWild in Flags) and (Mp + 1 < Me2) Then
Case (Mp + 1)^ of '*', '?', '{', '~', '|', '\': Inc(Mp); End;
GoTo LElse;
End;
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
22. Jun 2009
das ist eigentlich zu peinlich zum Erwähnen: :oops:
meine Tests hatte ich, da es einfacher zum Debuggen war, meißt direkt mir der Hauptgrundfunktion gemacht und da traten einige Fehler nicht auf ...
z.B. wie der 1-Startindex bei String, welcher nicht als 0-Index für PChar angegeben wurde
und ein Copy&Paste-Fehler, wo Result gleich mit True initialisiert wurde, anstatt mit False :wall:
...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
22. Jun 2009
menno ... ich schau mal
eigentlich dachte ich, diesbezüglich hätt ich nichts verändert :oops:
hatte grad nur noch einen Parameter nachgetragen, damit bei den "wiederholenden" Aufrufen die äußeren und eventuell recht großen Strings nicht mit im Result landen (führendes und letztes * in der Abfrage).
(siehe nächster Beitrag)
ich glaub ich bau so'nen Assert mal mit in die Unit direkt ein...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
22. Jun 2009
Bei welcher Funktion denn?
MatchText gibt es nur ohne diesen Parameter, aber da wird quasi intern eh nur an MatchString(Mask, S, ) weitergeleitet.
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
22. Jun 2009
praktsich, daß keiner den "kleinen" Fehler bei Verwendung von | bemerkte, wodurch da oftmals FALSE zurückkam, oder eine Exception :shock:
hab da gleich nochmal die Gelegenheit genutzt und alles überarbeitet:
* im Grunde ist jetzt alles auf eine einzige Funktion gekürzt (die allerletze Funktion der Unit),
welche dann nochmal in 4 Untervrsion aufgesplittet wurde ... drum nicht über die...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
20. Jun 2009
neue Version:
- die Codes aus Beitrag #3 und #22 wurden kombiniert
- es wurde alles auf 2/4 Hauptfunktionen (2x je ansi und wide) gekürzt
- alle Funktionen je als PAnsiChar-, PWideChar-, AnsiString-, WideString- und UnicodeString-Version
- und ich hoff mal es läuft alles noch
Type TCompareFlags = Set of (cfNotCaseSensitive, cfCanMask);
Function MatchString (Const Mask, S: String;...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
7. Mai 2009
nur zur Info:
grad ist noch 'ne schnelle Unicode-Version entstanden:
10.000.000*20 1.000.000*500 100*1MB 500*2MB (1)
true false case true false case true false case true false case (2)
1454 1454 2844 1750 1766 5281 375 375 1187 3766 3750 11953 (3)
1391 6270 6328 1813 9853 9732 390 2375 2360 3871 23797 23797 (4)
1234 1328 ...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
7. Mai 2009
War doch fast so einfach, wie ich's mir dachte. :firejump:
String-Version: (bis D2007 als ANSI und in D2009 als Unicode)
Function MatchText(Const Mask, S: String; CaseSensitive: Boolean = False): Boolean;
Var Mp, Me2, Me, Mm, Sp, Se, Sm: PChar;
Mt, St: String;
Label LMulti, LMask;
Begin
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
7. Mai 2009
Blos mal 'ne kleine und nicht ganz durchgeteste Vorschau auf alle vier Versionen (also nun auch eine MultiMatchText als String-Version).
Also aktuell ist noch alles in Post #15 vorzuziehen.
Wenn ich es jetzt noch schaff die Bearbeitung des "|", von vor der Hauptschleife, in die Hauptschleife reinzubekommen, dann wird es nur noch je eine String- und PChar-Vesion geben (MultiMatchText und...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
7. Mai 2009
OK :stupid:
PS:
du kannst übrigens auch 'test?23' auf 'test'#0'23' anwenden oder 'te'#0't?23' auf 'te'#0't123' (mit der StringVersion natürlich)
ich hab im Post #15 mal die Versionen gegen je eine mit "\" (Escape-Möglichkeit) ersetzt :angel:
hab noch 'nen Fehler in MultiMatchText ersetzt
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
7. Mai 2009
nee, ist hier nicht drin
(jetzt weiß ich wieder wofür die goElse-Sprungmarke war, welche nun sinnlos im code rumlag :nerd: )
ich kann's ja wieder einbauen :angel:
zum ups :shock: muß ich mal sehn
hab mir zwar 'ne Testreihe aufgebaut und das MatchText('a?def','abcdef') lieferte eigentlich ein richtiges Ergebnis :gruebel:
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
6. Mai 2009
aktuelle Version in Beitrag #22
Hab meinen Code nochmal etwas überarbeitet.
Er wurde auch auf D2009 angepaßt und ein Fehler bezüglich * am Ende wurde behöben. (1)
Zusätzlich wurde eine Version auf Basis von PChar erstellt. (2)
Und von dieser PChar-Version gibt es noch Eine, welche mehrere Masken, durch | getrennt, übernimmt (3)
(ich muß mal sehn, wann ich die Zeit finde auch die...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
18. Dez 2008
@Willie1: daß man nur ein * verwenden darf, dieses jeweils auch nur am Anfang oder Ende der Maske und dann auch noch die Position des * in Modus übergeben muß, ist schon recht umständlich und schränkt die Wahl der Maske schon sehr stark ein.
> M*er
oder gar mehrere *
in Linux kannst du sehr wohl auch diese Zeichen in Dateinamen verwenden
und auch FAT und Co. kann man beibringen diese...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
14. Dez 2008
uses
ShlwAPI;
function StrMatchesMask(Mask, S : String) : Boolean;
begin
Result := PathMatchSpec(PChar(S), PChar(Mask));
end;
hmmm, nette Funktion,
aber erwähnen sollte man noch, daß diese nicht CaseSensitive arbeitet.
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
13. Dez 2008
Gibt "leider" schon 'ne Weile zu einigen Themen mehrere Einträge in der CodeLib,
Aber was ich an deiner (Codewalker) Version etwas unschön empfinde, ist etwas die Rekursion (gut, dafür halt kein "böses" GOTO) und vorallem das COPY (die langsamen Stringoperationen).
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
12. Dez 2008
für die CodeLibMods: Stringvergleich mit Wildcards (* und ?)
@Willie:
deiner Beschreibung nach, hab ich also mit Ha*rg arge Probleme?
Was sind die "noch mehr Möglichkeiten"?
Ja und bei den Modi versteh ich die Beschreibung nicht ganz ... was macht demnach die 2?
*nicht in den QuellCode guck*
