kk, für das bisschen braucht man auch keine neue Klasse:
Delphi-Quellcode:
function StrCharCount(const S: AnsiString; C: AnsiChar): Integer;
var
I: Integer;
begin
Result := 0;
for I := 1 to Length(S) do
if S[I] = C then
Inc(Result);
end;
Und anstatt
DelTree kannste auch
RmDir schreiben, wie ich gerade sehe, dann brauchste überhaupt keine JCL-Klasse. Wie gesagt, ist lange her, dass ich diese Procedure geschrieben habe^^.