На форме 2 RadioButton. при вызове этой формы должно быть условие: если в БД в определенном поле значение 0, то активен RadioButton1, если в БД в этом поле 1, то активен RadioButton2.

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

Нужно ли чистить память локальных переменных, используемых в функциях?

Особенно интересует нужно ли освобождать объекты, типа TStringList.

Pavia

Нужно. Исключение строки и динамическские массивы.

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

Как узнать имя компонента зная его координаты на форме? (читать всё…)

Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec

А как выполнять другие команды cmd с параметрами?
Например:

del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR  Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.

Если можно конкретные примеры.

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

К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.

Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.

Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?

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

Использую код:

Код:

uses
...sevenzip, ...
 
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Form1.sprgrsbr1.Max:= value
   else
     Form1.sprgrsbr1.Position:= value;
   Result:= S_OK;
 end;
 
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
  i: Integer;
  ItP: string;
  items: array[1..11] of Cardinal;
  sprgrsbr1: TsProgressBar;
begin
  Result:= False;
  Application.ProcessMessages;
  try
  with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile(FileName);
      SetProgressCallback(sprgrsbr1, ProgressCallback);
      for i:= 1 to NumberOfItems - 1 do
      if not ItemIsFolder then
      //ExtractItem(items, Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

Как распаковать только нужные, кто знает подскажите..?

Вот файлы 7zip

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

Как сделать такую программу которая могла бы записывать все что происходит на компьютере в AVI файл?
(желательно со звуком).

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

Допустим у меня есть combobox и memo. В комбобокс у меня есть оценки (2,3,4,5).. в Listbox у меня написано например 2=Иванов… И вот как мне,выбирая в комбобокс «2»,в мемо отобразить Иванов..

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

удалить дубликаты вместе с оригиналом из Tstrings, если первые 4 символа равны 4 символам других строк, пробовал такой код, но ошибка list index out of bounds 0, причем если написать условие

if t = t[q] then t.delete(q);

то все нормально. Главное еще оптимизировать код под работу через F:textfile; (главное чтобы работало быстро и не через оперативную память)

var T:Tstringlist;
i,q:integer;
...
for I := t.Count-1 downto 0 do
for q := i-1 downto 0 do
if Copy(t,1,4) = Copy(t[q],1,4) then t.Delete(q);

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

Изображения

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