procedure Form6.DBComboBox3Change(Sender: TObject);
begin
Form6.DBComboBox4.Items.LoadFromFile( DBComboBox3.Items[DBComboBox3.ItemIndex] + '.txt' );
end;файл подгружался из папки которая лежит в корне с прогой
procedure Form6.DBComboBox3Change(Sender: TObject);
fl: String
begin
fl := ExtractFilePath( Application.ExeName ) + DBComboBox3.Items[DBComboBox3.ItemIndex] + '.txt'
Form6.DBComboBox4.Items.LoadFromFile( fl );
end;TStringGrid.onDrawColumnHeader найдёте потом.
GetClipboardData(CF_TEXT).GetClipboardData(CF_UNICODETEXT).
Если в dpl менять запрос hex-редакторомА можно менять на серверной стороне. Для этого использовать представления, псевдонимы и синонимы.
procedure TForm4.Button2Click(Sender: TObject);
var
LItem: TListViewItem;
I: Integer;
begin
for I := 1 to 10 do
begin
LItem := ListView1.Items.Add;
LItem.Text := 'Test' + IntToStr(I);
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
var I: Integer;
begin
for I := 0 to ListView1.Controls.Count-1 do
if ListView1.Controls[I] is TSearchBox then
begin
TSearchBox(ListView1.Controls[I]).Text := 'Test5';
end;
end;в модуле родителя должен быть импортирован модуль с классом ребенка"родитель" не должен знать о "ребёнке".
родитель содержит в себе поля класса ребенкаЭто ошибка. Перенесите все поля в "родителя".
родитель это приложение
child'ы это компоненты приложения
Как видите формы не наследуются от приложения. А находятся в одном модуле.Application.CreateForm(TForm1, Form1);Application.ExeName;я говорю не о наследовании.Расположите их в одном модуле.
paren:^TParent - это масло мысленное, так как переменная-объект - это и есть ссылка. Поэтому Proc1(Obj: TMyObject) и Proc1(var Obj: TMyObject) будут выполняться по-разному.
ExtractFileName от источника. Копировать с помощью System.IOUtils.TDirectory.Copy.
но надо, чтобы было <3 цикловТогда вынесите вычисление суммы в отдельную функцию.
for i := 0 to 5 do begin
n := 10 + i;
x := 0.6 + (h * i)
...