Delphi заготовки

функция сортировки символов в строке  пузырьковым методом

function SortStr(s:string):string;
var x,l,k:integer;
    s2:string;
    b,min:char;
begin
s2:=s;
l:=length(s2);
for x:=1 to l do begin
     min:=s2[x];
     for k:=x to l do
        if s2[k]<min then begin
           b:=s2[x];
           s2[x]:=s2[k];
           s2[k]:=b;
           min:=s2[x];
        end;
  end;
  SortStr:=s2;
  end;

{ЗАДАЧА 4

Преобразовать строку таким образом, чтобы буквы каждого слова в ней были отсортированы по возрастанию.

Определить какие слова встречаются в строке по одному разу.
}
uses crt;
type
  Tword=record
   word:string;
   col:integer;
 end;
 
var
   stext,s:string;
   s3,s2:string;
   im,i,y,start,x:Integer;
  WordList: array[1..100] of Tword;{список слов}
  WordListCount:integer; {список слов }



function SortStr(s:string):string;
var x,l,k:integer;
    s2:string;
    b,min:char;
begin
s2:=s;
l:=length(s2);
for x:=1 to l do begin
     min:=s2[x];
     for k:=x to l do
        if s2[k]<min then begin
           b:=s2[x];
     & ... Читать дальше »

Компонент StringGrid Delphi (основные свойства)