(Sender as TButton).OnClick := TForm1.foo;TForm1 = class(TForm)
Button1: TButton;
class procedure foo(Sender: TObject);
// ...const arr: array[1..10] of string = ('А', 'У', 'О', 'Ы', 'И', 'Е', 'Ё', 'Я', 'Ю', 'Э');procedure TMyThread.Execute;
var
Msg: string;
begin
...
Syncronize(procedure() begin
Show_message(Msg);
end);
end.file_list.Destroy;file_list.Free;
// или
FreeAndNil(file_list);procedure TMainForm.EnterButtonOnClick(Sender: TObject);
var
Forms: array of TForm;
begin
Forms := [RegistrarForm, ManagerForm, DoctorForm, AccountantForm]; // ваши формы
Forms[Combobox.ItemIndex].ShowModal();
end;fMain.Memo3.Lines.Strings[P], а fMain.Memo3.Lines.Strings[I]?const
START_INDEX = 156;
var
I: Integer;
T: TfrxMemoView;
begin
for I := 0 to fMain.Memo3.Lines.Count - 1 do begin
T := TfrxMemoView(frxAIR1.FindObject('Memo' + (START_INDEX + I).ToString()));
T.Memo.Text := fMain.Memo3.Lines[I];
end;
frxAIR1.ShowReport();
end;var
I, Index: Integer;
begin
Index := RichEdit1.Lines.IndexOf('Второй ряд:');
for I := Index + 1 to RichEdit1.Lines.Count - 1 do
RichEdit2.Lines.Add(RichEdit1.Lines[I]);
end;class function upd<T>(SQL: string; params: array of Variant): Variant; static;
...
function TForm1.upd<T>(SQL: string; params: array of Variant): Variant;
begin
...
DataModule1.UniConnection1.ExecSQLEx(SQL, params);
DataModule1.UniConnection1.Commit;
...
end;