Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

сортировка в StringGridе   Найти похожие ветки 

 
AlexJ   (2002-09-28 01:47) [0]

Уважаемые мастера! Вы уж мне (чайнику) ответьте, как в StringGridе сортировать строки. Например, по дате, по алфавиту. Заранее, спасибо!


 
PaRL   (2002-09-28 16:45) [1]

Я в своей проге делал TStringList - он сортировать умеет, дату не проверял, но должен работать.
//Массив. Можно динамический сделать.
type xxx = array [1..100] of array [0..100] of string;
var x : TStringList;
m, s, col, N, F, d, k : integer;
str : xxx;
begin
N := SG.ColCount-1;
F := SG.RowCount-2;

for m := 1 to F do
for s := 0 to N do
str[m, s] := SG.Cells[s, m];

x := TStringList.Create;
for m := 1 to SG.RowCount-2 do
x.Add(SG.Cells[0,m]); //заполняем StringList

x.Sort; //сортируем

for m := 1 to SG.RowCount-2 do
SG.Cells[0,m] := x.Strings[m-1]; //заносим обратно


for k := 1 to F do
for m := 1 to F do
if str[k, 0] = SG.Cells[0, m] then
for s := 1 to N do
SG.Cells[s, m] := str[k, s];


Я давно это делал, помню у меня там своя какая-то особенность была, так что сам уж разберись.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.038 c
1-31808
Юра
2002-10-02 11:58
2002.10.10
Скролинг формы колесиком мыши


1-31765
Петя
2002-10-01 14:40
2002.10.10
А Есть ли такой компанент???


1-31686
Андреев Павел
2002-09-30 15:13
2002.10.10
properties


3-31611
Осирис
2002-09-18 17:28
2002.10.10
Поле с именем SIZE


14-31949
NetBreaker666
2002-09-14 14:38
2002.10.10
Есть ли здесь кто-нибудь с МтМеха СПбГУ ??? Да, и фидошники ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский