Advertisement
tolikpunkoff

test TString list for english words

Nov 30th, 2022
1,802
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.51 KB | None | 0 0
  1. program sorteng;
  2. uses Classes;
  3. var
  4.   lstTest:TStringList;
  5.   i:integer;
  6. ...
  7. begin
  8.   lstTest:=TStringList.Create;
  9.   lstTest.Add('dog');
  10.   lstTest.Add('puppy');
  11.   lstTest.Add('cat');
  12.   lstTest.Add('kitten');
  13.   lstTest.Add('parrot');
  14.   lstTest.Add('hamster');
  15.   lstTest.Add('chinchilla');
  16.   lstTest.Add('guinea pig');
  17.   lstTest.Add('mouse');
  18.   lstTest.Add('rat');
  19.  
  20.   Writeln('Raw output:');
  21.   i:=0;
  22.   while i < lstTest.Count do begin
  23.     WriteLn(lstTest[i]);
  24.     inc(i);
  25.   end;
  26.  
  27.   WriteLn();
  28. ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement