Сортировка по VALUE в ValueListEditor

[Pcrepair]

ну да там нужно StrToFloat использовать
итак усе работает
но есть еще вопрос: как ограничить в Rating:=((NumOfWords*100)/ TotalNumOfWord); результат (где Rating:Real) одним знаком после запятой?

[Pcrepair]

вот и ответ
Rating:=StrToFloat(FormatFloat('000 0000.00', ((NumOfWords*100)/ TotalNumOfWord)));

[Человек_Борща]

var
  fSL : TStringList;
begin
  fSL := TStringList.Create;
  try
    fSL.Text := MainForm.ValueListEditor1.Strings.Text;
    fSL.CustomSort(@MyCompare);
    MainForm.ValueListEditor1.Strings.Text := fSL.Text;
  finally
    FreeAndNil(fSL);
  end

ValueListEditor1.Strings и fSL := TStringList.Create; - ОДНО И ТОЖЕ.

[Pcrepair]

??????????

ValueListEditor1.Strings - это визуальный компонент, который не умеет сортировать

fSL := TStringList.Create; - невизульный список, умеет сортировать

данные из компонента передаются в СПИСОК, сортируются, возвращаются в компонент

или както по другому все работает?

[Человек_Борща]

Нет, Strings - как раз не визуальный класс, общий предок для StringList сортировка там есть.

[Pcrepair]

что то в
MainForm.ValueListEditor1.Strings.и далее

ненашел не CustomSort(TStringList) не Sort ничего похожего на сортировку

[Аватар]

На самом деле в TStrings нет такого метода, он появляется в TStringList. А в ValueListEditor1.Strings объявлен как TStrings. Но создается этот объект как TStringList.Create. Поэтому можно обратиться к методу так:

TStringList(ValueListEditor1.Strings).CustomSort

PS

Скорее всего во всех объектах свойства объявленные как TStrings на самом деле создаются на базе TStringList. Все таки TStrings абстрактный класс и на прямую его чревато использовать

[Pcrepair]

вот оно как...
попробую в следующем варианте такой подход
Спасибо

и все таки на

fSL(ValueListEditor1)Strings.CustomSort(@MyCompare);

среда сообщает "ожидали ; а заполучили идентификатор Strings"
что то не так с синтаксисом

[northener]

Сообщение от Pcrepair

и все таки на

fSL(ValueListEditor1)Strings.CustomSort(@MyCompare);

среда сообщает "ожидали ; а заполучили идентификатор Strings"
что то не так с синтаксисом

Точку пропустил по невнимательности или как?

[Аватар]

fSL(ValueListEditor1)Strings.CustomSort(@MyCompare);

Найди 18 различий

TStringList(ValueListEditor1.Strings).CustomSort(@MyCompare);