| Код |
uses
Generics.Collections, Generics.Defaults;
var
S: string;
Words, SortedWords: TList<string>;
Index, WordNumber: Integer;
begin
S := 'This is a long string with some content';
Words := TList<string>.Create;
SortedWords := TList<string>.Create;
try
//пробелы,точки,запятые, скобки
Words.AddRange(S.Split([' ', '.', ',', '(', ')'], TStringSplitOptions.ExcludeEmpty));
SortedWords.AddRange(Words);
SortedWords.Sort(TComparer<string>.Construct(
function (const Left, Right: string): Integer
begin
Result := Length(Left) - Length(Right);
end
));
WordNumber := Words.IndexOf(SortedWords[0]) + 1;
ShowMessage(IntToStr(WordNumber));
finally
Words.Free;
SortedWords.Free;
end;
end;
|
|