Как отсортировать первую колонку по алфавиту в StringGrid, чтобы значения остались прежними?

pu4koff

Сортировка вызывается так:
GridSort(StringGrid1, 0);

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);

var

  Line, PosActual: Integer;

  Row: TStringList;

  Renglon :TStringList;

begin

  Renglon := TStringList.Create;

  Row := TStringList.Create;

  for Line := 1 to StrGrid.RowCount-1 do

  begin

    PosActual := Line;

    Row.Assign(StrGrid.Rows[PosActual]);

    while True do

    begin

      if (PosActual = 0) or

         (Row.Strings[NoColumn] >= StrGrid.Cells[NoColumn,PosActual-1])

        then break;

      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1];

      Dec(PosActual);

    end;

    if (Row.Strings[NoColumn] < StrGrid.Cells[NoColumn,PosActual])

      then StrGrid.Rows[PosActual].Assign(Row);

  end;

  Row.Free;

  Renglon.Free;

end;

Австрийская компания iTap mobile выпускает RDP-клиенты — программы для подключения к настольному компьютеру Windows с мобильных устройств или компьютеров с другими операционными системами по протоколу удаленного рабочего стола. iTap mobile RDP для систем Mac или Linux предоставляет полный контроль и быстрый доступ к настольному компьютеру на платформе Windows отовсюду. iTap mobile поддерживает TS Gateway и является быстрым, безопасным и оптимизированным решением для дома и бизнес-нужд. Мощный RDP-клиент также сопровождается первоклассной технической поддержкой.

купить Itap-mobile RDP Client

тема на форуме

Prod87

Подскажите пожалуйста, как с помощью TServerSocket и TClientSocket
передавать текст между пользователями сети.

(читать всё…)

7-е апреля, а за окном такое… Лет 30 назад 1-го мая уже купальный сезон открывали… Глобальное потепление во всем мире объявили? Про Приморье точно не забыли? Или может просто постапокалипсический пейзаж тоску нагоняет? (читать всё…)

Как переделать Delay, чтобы можно было в 10Mks выставить? Пробовал разные значения подставлять, но все равно в миллисекундах не получается.

raxp

procedure delay_microsec(val: int64);

var Freq, TimeImp, TimeImpNow, TimeElapsed: int64;

begin

 QueryPerformanceFrequency(Freq);

 QueryPerformanceCounter(TimeImp);

 repeat

  QueryPerformanceCounter(TimeImpNow);

  TimeElapsed:= ((TimeImpNow - TimeImp) * 1000000) div Freq;

 until TimeElapsed > val

end;

Пеллетные камины и котлы испанского производства EcoForest

тема на форуме

(читать всё…)

дравствуйте.
Однажды от своего знакомого (довольно хорошо дружащего с ПК) услышал (опосредованно, правда), что если при установке ПО не сделать вид, что прочёл лицензию (не просто поставить галочку, о «адекватно» прокрутить лицензию), то программа КРИВО встанет. С тех пор не могу избавиться от этой привычки делать вид каждый раз при установке ПО, хоть до того, когда это услышал, ставил ПО, даже не задумываясь.

Как думаете, это правда? Я, конечно, понимаю, что можно реализовать такую тактику, но всё же… (читать всё…)

На форме лежат StringGrid (1 фиксированная строка + 1 пустая, 3 столбца), 3 Edit’a и Кнопка. По нажатию кнопки в Грид нужно записать содержимое Едитов (соответственно к каждой ячейке свой Эдит). При следующем нажатии, необходимо добавить строку, и записать новые значения из Эдитов, и так далее… Как это можно реализовать ?

DenProx

var x,y : integer;

begin

 y := RzStringGrid1.RowCount -1;

 x:=0;

 RzStringGrid1.Cells[x,y]:= IntToStr(RzStringGrid1.RowCount -1);

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit1.Text;

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit2.Text;

RzStringGrid1.RowCount := RzStringGrid1.RowCount + 1;

y:=0;

Корпусная мебель оптом от российского производителя.

тема на форуме

Есть таблица в которой есть поля с датой: ‘datainet’, ‘datamail’, ‘datarereg’;
там, где дата не заполнена при выводе отображается 0000-00-00..
Как избавиться от этого и вместо 0000-00-00 выводить пустую ячейку таблицы или прочерк?? (читать всё…)

Есть у меня своя программа. И есть некоторая сторонняя программа, которая имеет несколько возможных параметров запуска. Так вот я запускаю эту стороннюю программу через shellexecute и передаю туда нужные параметры запуска.
На самом деле эти параметры запуска «секретные», там пароли, коды и всё такое, которые посторонние люди знать не должны, но люди пользуясь сторонним софтом эти параметры выдирают. Можно ли после запуска программы их стереть, как будто я запускал программу без каких-либо параметров запуска?

Anton911

memoffset = $85004; // смещение указателя на адрес где параметры от kernel32.dll

procedure DetectCode;

  var

    wBuff: Array[0..350] of Char;

    sBuff,tBuff:String;

    point_addr, kernelBase:DWORD;

    wHandle, ProcessID, pHandle, BytesCount: cardinal;

    i:Integer;

begin

 Form1.Console.Clear;

 pHandle := 0;

 wHandle := 0;

 kernelBase := GetModuleHandle(PWideChar('Kernel32.dll'));

 ShellExecute(0,'Open', PWideChar(ExtractFilePath(ParamStr(0)) + 'proga.exe'),

                PWideChar(GetParam), nil, SW_SHOWNORMAL);

 while wHandle = 0 do wHandle := IsProgRun;

 if wHandle  0 then

  begin

   GetWindowThreadProcessId(wHandle, @ProcessID);

   pHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

   if not ReadProcessMemory(pHandle, Pointer(kernelBase + memoffset), @point_addr, sizeof(point_addr), BytesCount) then

   Form1.Console.Lines.Add('Не могу получить адресс указателя на смещение');

   {}

   sBuff := wBuff;

   FillChar(wBuff, SizeOf(wBuff), #0);

   tBuff := Copy(sBuff, 1, Pos('-password=', sBuff) - 1);

   Delete(sBuff, 1, Pos('-password=', sBuff) - 1);

   if Pos(' ', sBuff)  0 then

    begin

     Delete(sBuff,1, Pos(' ', sBuff));

     tBuff := tBuff + sBuff;

    end;

   for i := 0 to Length(tBuff) - 1 do

    begin

     wBuff := tBuff;

    end;

   if not WriteProcessMemory(pHandle, Pointer(point_addr), @wBuff, sizeof(wBuff), BytesCount) then

    Form1.Console.Lines.Add('Не могу внедриться в программу');

 end;

end;

Пеллетные котлы Kostrzewa — автоматические твердотопливные котлы с ёмкостью бункера обеспечивающего непрерывную работу — 1 неделю и больше. Автоматический розжиг и модуляция процесса горения от 20% до 100%.

тема на форуме

(читать всё…)