Ich hatte das bewusst möglichst einfach gehalten, aber manche Egos scheinen einfach stärker zu sein
Hätte er Delphi 2010 oder höher könnte er auch das hier machen:
Delphi-Quellcode:
ShowMessageFmt('"%s" kommt %d mal in "%s" vor', [Edit2.Text,
TDelegateEnumerable<Char>.Create(
procedure
var
c: Char;
begin
for c in Edit1.Text do Yield<Char>(c);
end).Where(
function(c: Char): Boolean
begin
Result := SameText(c, Edit2.Text);
end).Count,
Edit1.Text]);
Sorry, ich konnte nicht widerstehen.
