Words containing "the" substring: Difference between revisions
Added Delphi example
No edit summary |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 278:
weatherstripping
/Code$ </lang>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
{{libheader| System.IOUtils}}
{{Trans|Go}}
<lang Delphi>
program Words_containing_the_substring;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
System.IOUtils;
var
Words, WordsFound: TArray<string>;
begin
Words := TFile.ReadAllLines('unixdict.txt');
for var w in Words do
begin
if (w.Length > 11) and (w.IndexOf('the') > -1) then
begin
SetLength(WordsFound, Length(WordsFound) + 1);
WordsFound[High(WordsFound)] := w;
end;
end;
writeln('Words containing "the" having a length > 11 in unixdict.txt:');
for var i := 0 to High(WordsFound) do
writeln(i + 1: 2, ': ', WordsFound[i]);
readln;
end.</lang>
=={{header|Factor}}==
| |||