MJFunctions - kleine Funktionssammlung

[Mazel]

Hallo,

ich habe schon lange überlegt eigene Funktionen zu einer Sammlung zusammenzuschließen, um sie dann anderen Leuten zu geben, die diese Funktionen eventuell gebrauchen könnten. Ich weis, es gibt schon viele dieser Sammlungen und meine ist bis jetzt nicht gerade groß mit 23 Funktionen.

Einige Funktionen sind enstanden, um nicht die SysUtils.pas zu verwenden, wie zum Beispiel IntToStr, nur wegen dieser einen Funktion wollte ich nicht die kommplette Unit einbinden.
Andere Funktionen sind aus Projekten enstanden, wie CountSlashes oder IsEndSlash.

Ich würde mich freuen, wenn ihr sie euch mal anschauen würdet, um mir dann zu berichten, was ich anders machen könnte/sollte und welche Funktionen eventuell noch hinzugefügt werden könnten. Ich bin für Verbesserungsvorschläge immer offen.

Update 1:
aus 23 wurden 54 Funktionen, ich habe alle Funktionen aus einem Unwandlungsprogramm noch hinzugefügt und ein paar andere. Die Funktionen sind aufgeteilt in verschiedenen Units, um die Einbindung gering zu halten und um sie in Kategorien aufzuteilen.

Update 2:
Eine weitere Funktion ist hinzugekommen: GetWindowsRunTime. Außerdem habe ich in einigen Units ein paar Funktionen aus anderen Units eingefügt, damit sie unabhängig nutzbar sind.

Gruß
Mazel

[xZise]

Also ich habe Luckies "GetShellFolder" funktion ausgelagert ^^ Vielleicht ist das was für dich?

[Mazel]

Wär eine Idee, gibt es sonst noch kleinere Funktionen, die zu dieser Sammlung passen?

[Mazel]

Kleines Update:
- 23 -> 54 Funktionen
- Aufteilung in verschiedene kategorierte Units

Testen, testen, testen.

[himitsu]

MJColors:

statt Cardinal lieber Integer, oder direkt TColor.

hier verstecken sich z.B. noch einige Funktionen mit drin
http://www.delphipraxis.net/internal...ghlight=tcolor
http://www.delphipraxis.net/internal...ghlight=tcolor
spetiell ColorToRGB, GetRValue...



restliche Units: mal sehn

[Mazel]

Hallo,

danke für den Hinweis, aber warum lieber einen anderen anstatt Cardinal? Meines wissen hat RGB keine Farbwerte unter 0, deshalb schien mir Cardinal am logischsten.

[WoGe]

Hallo,

ich freue mich immer wenn ich eine Funktionssammlung finde, denn überwiegend sind dann auch interessante Gedankengänge oder Vorgehensweisen erkennbar und sie sind zudem auch noch nützlich.

Ich möchte hier mal den Vorschlag bringen, solche Sammlungen als Klasse zu implementieren.
Das hätte aus meiner Sicht viele Vorteile.

Bei der Namensgebung z.B. könnte der gewohnte Name beibehalten werden.
Beispiel
IntToStr
mjconv.IntToStr anstatt IntegerToStr
oder
FloatToStr
mjconv.FloatToStr anstatt RealToStr

Allein das wäre für den Normal-Anwender schon hilfreich
Die Programmierhilfe listet zudem alle Classmenber, was die eine Suche wie gibts die benötigte Function überhaupt in dieser Klasse sehr vereinfacht.
In der Unit kann eine Instanz mit möglichen Initialisierungen völlig transparent erzeugt werden.

Ich hoffe meine Überlegungen sind hilfreich
mfg
wo

[Mazel]

Das ist natürlich möglich, diese als Klasse zu implementieren, nur weis ich nicht ob das in jedem Fall von Vorteil ist. Gut, ich weis wo welche Funktion ist, andere wiederum nicht, weil sie nicht diese Sammlung erstellt haben.

Ich werde mal schauen.

Gruß
Mazel

[xZise]

Gibt es eigentlich die Funktion BoolanToString? Ich habe mir mal eine erweiterte Variante programmiert:

Delphi-Quellcode:

function BoolanToString(ABool : Boolean; ATrue, AFalse : string) : string
begin
  case ABool of
    true : Result := ATrue;
    false : Result := AFalse;
  end; 
end;

Beispiel:
Showmessage(BoolanToString(saved, 'Gespeichert', 'Nicht gespeichert'))

[himitsu]

Zitat von Mazel:

aber warum lieber einen anderen anstatt Cardinal? Meines wissen hat RGB keine Farbwerte unter 0, deshalb schien mir Cardinal am logischsten.

Erstmal für die Kompatibilität mit TColor, also nahezu allen Variablen/Konstanten welche RGB-Farbwerte enthalten.

Und es stimmt schon, da ja nur die understen 3 Byte für die RGB-Werte verwendet werden, aber im oberen Byte kann z.B. der Alpha-Kanal, oder bei TColor die Palette.

Wenn die Palette jetzt aber einen Wert ab $80 enthält, dann ist bei TColor/Integer der gesamte Wert (PBGR) negativ, wärend bei Cardinal dieses Positiv ist.