7 lines
215 B
ObjectPascal
7 lines
215 B
ObjectPascal
begin
|
|
var d := new Dictionary<string,integer>;
|
|
foreach var s in ReadLines('TextFileCount.pas') do
|
|
foreach var word in s.ToWords(AllDelimiters) do
|
|
d[word] := d.Get(word) + 1;
|
|
d.PrintLines;
|
|
end. |