VPF::распознавание строк и чисел - Форум программистов

gordmiand

Дата 8.12.2007, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 772
Регистрация: 15.4.2007

Репутация: нет
Всего: 0

Есть массив символов - есть элементы-числа(символьные) и строки(абракадабра), нужно отсортирвоать массив по принципу: сначала все числа по возрастанию, а затем все остальное в лексикографическом порядке. Как это лучше сделать, как отличать число (в виде строки) от не числа?

например дано {'234', 'sdf', '5fy', '-2' и т.д.}

Данкинг

Дата 8.12.2007, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Если strtoint() сработает - то число. smile

Это сообщение отредактировал(а) Данкинг - 8.12.2007, 23:41

--------------------

There's nothing left but silent epitaphs.

gordmiand

Дата 9.12.2007, 01:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 772
Регистрация: 15.4.2007

Репутация: нет
Всего: 0

а какой принцип сортировки при таком наборе данных (строки и числовые строки)?

Данкинг

Дата 9.12.2007, 01:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(gordmiand @ 9.12.2007, 01:12)

а какой принцип сортировки при таком наборе данных (строки и числовые строки)?

А как ты вообще собрался сортировать массив? Если вручную - то уж как пропишешь, а если загнать в листбокс, то там сортировка будет стандартная: 1, 10, 2, 3, 30 и т.п.

--------------------

There's nothing left but silent epitaphs.

gordmiand

Дата 9.12.2007, 02:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 772
Регистрация: 15.4.2007

Репутация: нет
Всего: 0

Как отсортировать в листбоксе (например) - у него есть какой-то специальный метод для сортировки? если можно - пример......

lukas

Дата 9.12.2007, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

У TStrings есть свойство Sorted... у листбокса есть Свойство Items:TStrings;

Код


...
Var
 LS:TStrings;
begin
LS:=TStringList.Create;
// добавляешь элементы массива в список
LS.Sorted;
// обновляешь массив
LS.Free;
end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Poseidon

Дата 10.12.2007, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(gordmiand @ 8.12.2007, 23:19

)

как отличать число (в виде строки) от не числа?

Код

function IsInteger(const Value: string): Boolean;
var
  Code, OutResult: Integer;
begin
  Val(Value, OutResult, Code);
  Result := (Code = 0);
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »