Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
15. Jul 2018
Wenn man die zu startenden Funktionen in einer Checklist-Box zuvor auswählen könnte, fände ich gut (evtl. über Popup-Menü mit Einträgen für alle abwählen und alle anwählen). Denn wenn man an einer Funktion evtl. selber noch was rumschrauben wollte, müsste man nicht alle Tests durchlaufen lassen...
Ansonsten::thumb:
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
14. Jul 2018
Cool, Danke für die Mühe...:thumb:
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
14. Jul 2018
Hast recht, ist schon erledigt (TIntDyArray in der Funktion von Uwe eingebaut, da ich dort immer nur eine Stelle habe, wo der Zähler hochgeht). Aber danke auch an Dich für den Hinweis mit der blockweisen Bearbeitung, da kommen mir Ideen für andere Funktionen (z.B. in der Bitmap-Bearbeitung)...
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
14. Jul 2018
Schade, dann muss ich mir mal überlegen, wo man das bei einer der hier gezeigten Lösungen am besten noch einbauen könnte. Müsste ja dann wohl eine Art dynamisches Array sein, das die einzelnen Positionen aufnimmt.
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
14. Jul 2018
Um es selber nachvollziehen zu können: Wie ist denn
PStrLenInt
definiert?
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
14. Jul 2018
Also ich finde die ganzen Varianten höchst interessant und man erfährt dabei ein wenig, wo typische bottlenecks sitzen.:thumb:
String.CountChar kannte ich nicht, also insofern wieder was nützliches dazugelernt (hatte dafür nur eine eigene Funktion).
Cool wäre auch, eine Funktion zu haben, welche nicht nur die Anzahl der Vorkommen des Chars ermittelt, sondern auch noch deren Position z.B. in...
Forum: Sonstige Fragen zu Delphi
Delphi
by Harry Stahl,
12. Jul 2018
Ich werfe noch eine Version in die Runde, die auch auf den mobilen Plattformen funktioniert (Stringzählung beginnt bei Null):
function StringCountChar(const S: string; const C: Char): Integer;
var
ch: Char;
begin
Result := 0;
for ch in S do begin