Search options (Page 1 of 37)

Hi,
Something like this

procedure OnDblClick(Sender: TObject);
var
  i: integer;
  tli: TListItems;
begin
  tli := listview.items;
  for i:=0 to tli.count - 1 do
  begin
    if tli.item[i].selected then showmessage(tli.item[i].caption);
  end;
end;

begin
...
listview.OnDblClick := @OnDblClick;
end.

Procedures and functions, referred to collectively as routines, are self-contained statement blocks that can be called from different locations in a program. A function is a routine that returns a value when it executes. A procedure is a routine that does not return a value.

Hi,

The code you provide does not copy anything. It allows you to select an entry in Combo4 if such an entry exists in it.
Sorry, but reading your messages on the forum I cannot understand what you want to achieve. Derek has already offered you several different solutions or, in other words, directions of movement. It may be worth considering them in more detail, or perhaps you should rethink your requirements and try simpler solutions, at least for now. Start with simple problems and simple solutions, this will allow you to understand the mechanism for solving problems, become familiar with the script and begin diving into databases. As you already understood, there is a lot of information and examples on the forum. Even if the example, as you think, is not yours, it is worth considering it in more detail. There will always be something new or unusual in terms of possible solutions, even in the simplest examples.

Hi Jean

We can say that MVD includes a minimum set of mathematical functions from the mathematical library.
This set is quite enough to implement the most common, more complex functions.

Knowing the formula, you can always write your own calculation.

{ hypot function from AMath library (C) Copyright 2009-2013 Wolfgang Ehrhardt }
function hypot(x,y : float) : float;
  begin
    x:=abs(x);
    y:=abs(y);
    if (x>y) then
      hypot:=x*sqrt(1.0+sqr(y/x))
    else if (x>0.0) then
      hypot:=y*sqrt(1.0+sqr(x/y))
    else
      hypot:=y;
  end;

Hi,
In this case, it is not used in any way. Just ignore this file.

Something like this

Hi,

There are two options for displaying the balance amount or Edit1.
1. In the Edit1 properties, clear the TableName and FieldName fields. Go to the properties of Button5 (Report). Add Edit1 to the list of components participating in the search. You should have TableGrid1 and Edit1 in the list. Let's launch the program. Let's go to the report designer. In the right window, behind the “Data” tab, click on the “Variables” tab. In the list we see the Edit1 component. Drag it to the desired place in the report.
This is all.
2. We calculate the balance amount directly in the report.
Add Band ColumnFooter. Add a Memo to it with the formula

[SUM(<Report."tenucompte.entree">,DetailData1)-SUM(<Report."tenucompte.Depense">,DetailData1)] 

This is all.

But be careful. You may get different results with the first method if you select one row and run the report. You will see your row highlighted and the balance amount will reflect the amount for all records in the table.

Double-clicking on data, if there is a function (button) to edit a record, triggers the OnClick event for the edit button.

Example

It's not entirely clear what you want to achieve?
Decide on your goal.
It all depends on your task.
1 For example, fields that need to be cleared constantly may have a different name, even with numbers.
You can search by the initial letters of the name on the form and clear them. For example ClrEdit2, ClrEdit11.
2 You can assign a unique TAG to such EDITs and then access them by searching for the value in the TAG.
3 If you want to use a parity check, select for such Edits, for example, the range Edit21...Edit39. Take the name, read 2 characters from the end, convert to an integer, check parity and clear.
But is all this worth replacing 10 lines of code Edit1.clear...Edit10.clear.
If you want to reduce the number of lines in the script, write this:

Form1.Edit1.Clear; Form1.Edit2.Clear; Form1.Edit3.Clear; Form1.Edit4.Clear; Form1.Edit5.Clear;
Form1.Edit6.Clear; Form1.Edit7.Clear; Form1.Edit8.Clear; Form1.Edit9.Clear; Form1.Edit10.Clear;

This is also possible and only two lines.