[skabl]

нужно чтоб цифры переносилось с помощью кнопки из Memo в StringGrid и упорядочивалось по возрастанию.

Заранее благодарен!

[Страдалецъ]

Непонятно в каком формате у вас в Мемо лежит текст. Что является разделителем и соответственно критерием расстановки по ячейкам.

[Nyctos Kasignete]

Может, эта тема чем поможет... =)

[skabl]

там цифры, разделяется пробелом. файл .txt
надо чтоб цифры по возрастанию выстраивались в стринггрид

[roamer]

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

нужно чтоб цифры переносилось с помощью кнопки из Memo в StringGrid и упорядочивалось по возрастанию.

Заранее благодарен!

Может это поможет :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115

procedure StringGrid_SortCol(SG : TStringGrid; HideSGBefore : boolean; ACol : integer; TypeCol : integer; NrOpt : integer = 0); {Сортировка по заданному столбцу} Var   Vis,YesGreate : Boolean;   X1,X2 : real;   I1,I2 : integer;   dd,mm,yyyy : integer;   S1,S2,S0 : string;   ListS : TStrings;   Res,N,k,j,i : LongInt; begin   if SG<>NIL then begin      if SG.RowCount>1 then begin         if (ACol>=0) and (ACol<SG.ColCount) then begin            Vis:=SG.Visible;            if HideSGBefore then SG.Visible:=FALSE;            ListS:=TStringList.Create;            TRY              N:=SG.RowCount-1;              for i:=1 to N do                begin                  k:=N-i;                  for j:=1 to k do                   begin                       YesGreate := FALSE;                       S1:=SG.Cells[ACol,j];                     S2:=SG.Cells[ACol,j+1];                     S1:=Trim(S1);                     S2:=Trim(S2);                     {[1,6,11,14]}                       if TypeCol=(-1) then begin    //тип столбца : строка UpCase                        S1:=AnsiUpperCase(S1);                        S2:=AnsiUpperCase(S2);                        if S1>S2 then begin                           YesGreate := TRUE;                        end;                     end;                       if TypeCol=0 then begin   //тип столбца : строка                        if S1>S2 then begin                           YesGreate := TRUE;                        end;                     end;                         if TypeCol=1 then begin    //тип столбца : число                        Val(S1,X1,Res);                        Val(S2,X2,Res);                        if X1>X2 then begin                           YesGreate := TRUE;                        end;                     end;                       if TypeCol=2 then begin    //тип столбца : дата (dd.mm.yyyy)                        if NrOpt<=0 then begin                           if GetIDDateS_0(S1)>GetIDDateS_0(S2) then begin                              YesGreate := TRUE;                           end;                        end                        else begin                           dd:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S1,1),0); //День                           mm:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S1,2),0); //Мес                           yyyy:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S1,3),0); //Год                           I1:=GetIDDate(yyyy,mm,dd);                           dd:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S2,1),0); //День                           mm:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S2,2),0); //Мес                           yyyy:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S2,3),0); //Год                           I2:=GetIDDate(yyyy,mm,dd);                           if I1>I2 then begin                              YesGreate := TRUE;                           end;                        end;                     end;                       if TypeCol=3 then begin    //тип столбца : неполная дата (dd.mm)                        if NrOpt<=0 then begin                           if GetIDMDS(S1)>GetIDMDS(S2) then begin                              YesGreate := TRUE;                           end;                        end                        else begin                           dd:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S1,1),0); //День                           mm:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S1,2),0); //Мес                           I1:=GetIDMD(mm,dd);                           dd:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S2,1),0); //День                           mm:=saStrToInt(GetWordFromString99([' ','.','-','\','/'],S2,2),0); //Мес                           I2:=GetIDMD(mm,dd);                           if I1>I2 then begin                              YesGreate := TRUE;                           end;                        end;                     end;                         if YesGreate then begin                        ListS.Assign(SG.Rows[j]);                        SG.Rows[j].Assign(SG.Rows[j+1]);                        SG.Rows[j+1].Assign(ListS);                     end;                  end;              end;            FINALLY              if ListS<>NIL then begin                 ListS.Free;              end;              ListS:=NIL;              SG.Visible:=Vis;            END;         end;      end;   end; end;

Admin: Пользуемся тегами! Иначе последуют санкции!

[Nyctos Kasignete]

Вот, пожалуй, наипростейший способ.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids;   type   TForm1 = class(TForm)     StringGrid1: TStringGrid;     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     procedure SortCols;     procedure SortRows;   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := ' ';   try     for i := 0 to Memo1.Lines.Count - 1 do     begin       SList.DelimitedText := Memo1.Lines.Strings[i];       StringGrid1.Rows[i].Delimiter := SList.Delimiter;       StringGrid1.Rows[i].DelimitedText := SList.DelimitedText;     end;     SortCols(); <font color="RoyalBlue"><i>// отсортирует по возрастанию столбцы...</i></font>     <font color="#4169e1"><i>{ SortRows(); // ...или строки (раскомментируйте, если надо) }</i></font>   finally     SList.Free;   end; end;   procedure TForm1.SortCols; var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := '|';   try     for i := 0 to StringGrid1.ColCount - 1 do     begin       StringGrid1.Cols[i].Delimiter := '|';       SList.DelimitedText := StringGrid1.Cols[i].DelimitedText;       SList.Sort;       StringGrid1.Cols[i].DelimitedText := SList.DelimitedText;     end;   finally     SList.Free;   end; end;   procedure TForm1.SortRows; var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := '|';   try     for i := 0 to StringGrid1.RowCount - 1 do     begin       StringGrid1.Rows[i].Delimiter := '|';       SList.DelimitedText := StringGrid1.Rows[i].DelimitedText;       SList.Sort;       StringGrid1.Rows[i].DelimitedText := SList.DelimitedText;     end;   finally     SList.Free;   end; end;   end.

О том, чтобы количество введенных в Memo чисел совпадало с размерностью StringGrid'а, позаботьтесь сами.

[skabl]

чеи странно, в последовательность не ставит

[Nyctos Kasignete]

skabl, так вы чей вариант-то используете? И что значит

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

в последовательность не ставит

[skabl]

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

[lmikle]

Ну дык отсортируй. В чем проблема?

[Nyctos Kasignete]

skabl, в условии, поставленном вами, первоначально речь шла о цифрах, а не о числах

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

нужно чтоб цифры переносилось с помощью кнопки из Memo в StringGrid и упорядочивалось по возрастанию.

Конечно, числа не будут сортироваться по возрастанию при использовании метода Sort, который я использовала в посте #6. А цифры отсортируются нормально. На то и был сей простой расчет.
=)

[Страдалецъ]

Для сортировки чисел, да и вообще нестандартной сортировки, есть в StringList замечательный метод CustomSort. В хелпе очень подробно о нем написано.

[skabl]

не, цифры тоже не сортируются...
может кто-нить помочь чтоб и числа сортировались при переносе в стринггрид? пожалуйста

[Nyctos Kasignete]

Вот только попробуйте после этого сказать, что не сортируется! =)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

var   Form1: TForm1;   function CustomNumSort(List: TStringList; Index1, Index2: Integer): Integer;   ....................   procedure TForm1.Button1Click(Sender: TObject); var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := ' ';   try     for i := 0 to Memo1.Lines.Count - 1 do     begin       SList.DelimitedText := Memo1.Lines.Strings[i];       StringGrid1.Rows[i].Delimiter := SList.Delimiter;       StringGrid1.Rows[i].DelimitedText := SList.DelimitedText;     end;     SortCols(); <font color="RoyalBlue"><i>// отсортирует по возрастанию столбцы...</i></font>     <i><font color="#4169e1">{ SortRows(); // ...или строки (раскомментируйте, если надо) }</font></i>   finally     SList.Free;   end; end;   procedure TForm1.SortCols; var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := '|';   try     for i := 0 to StringGrid1.ColCount - 1 do     begin       StringGrid1.Cols[i].Delimiter := '|';       SList.DelimitedText := StringGrid1.Cols[i].DelimitedText;       SList.CustomSort(CustomNumSort);       StringGrid1.Cols[i].DelimitedText := SList.DelimitedText;     end;   finally     SList.Free;   end; end;   procedure TForm1.SortRows; var   SList: TStringList;   i: Integer; begin   SList := TStringList.Create;   SList.Delimiter := '|';   try     for i := 0 to StringGrid1.RowCount - 1 do     begin       StringGrid1.Rows[i].Delimiter := '|';       SList.DelimitedText := StringGrid1.Rows[i].DelimitedText;       SList.CustomSort(CustomNumSort);       StringGrid1.Rows[i].DelimitedText := SList.DelimitedText;     end;   finally     SList.Free;   end; end;   function CustomNumSort(List: TStringList; Index1, Index2: Integer): Integer; var   Value1, Value2: Integer; begin   Value1 := StrToInt(List.Strings[Index1]);   Value2 := StrToInt(List.Strings[Index2]);   if Value1 < Value2 then Result := -1   else     if StrToInt(List.Strings[Index1]) > StrToInt(List.Strings[Index2]) then          Result := 1     else Result := 0; end;