Advertisement
tolikpunkoff

test TString list for russian words

Nov 30th, 2022
1,581
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.62 KB | None | 0 0
  1. program sortrus;
  2. uses Classes;
  3. var
  4.   lstTest:TStringList;
  5.   i:integer;
  6. ...
  7. begin
  8.   lstTest:=TStringList.Create;
  9.   lstTest.Add('собака');
  10.   lstTest.Add('щенок');
  11.   lstTest.Add('кот');
  12.   lstTest.Add('кошка');
  13.   lstTest.Add('котёнок');
  14.   lstTest.Add('попугай');
  15.   lstTest.Add('хомяк');
  16.   lstTest.Add('шиншилла');
  17.   lstTest.Add('морская свинка');
  18.   lstTest.Add('мышь');
  19.   lstTest.Add('крыса');
  20.  
  21.   Writeln('Вывод массива:');
  22.   i:=0;
  23.   while i < lstTest.Count do begin
  24.     WriteLn(lstTest[i]);
  25.     inc(i);
  26.   end;
  27.  
  28.   WriteLn();
  29. ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement