[MotoArhangel]

Есть два класса необходимо передать результаты выполнения функции из одного класса в другой.
Вот классы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

TProcessInfo=class  var    IsWow64Process: TIsWow64Process;    QueryFullProcessImageNameW : TQueryFullProcessImageNameW;  private    Function Getpriority(id:THandle):string;    Function GetProcessFilePath(PID: Cardinal; Var x64_x86, UserName : String): String;    procedure Create;  end;   type    TStatistic = class    var      procentry:  TProcessEntry32;    public      procedure SetProcessInfo(procinfogrid:TStringGrid); end;

Как понимаю так нельзя:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

with procinfogrid do                          begin                            if k>rowcount-1 then                              rowcount:=rowcount+1;                              cells[0,k]:= ProcessExe;                              cells[1,k]:= inttostr(procentry.th32ProcessID);                              cells[2,k]:= inttostr(procentry.cntThreads);                              cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);                              cells[4,k]:= x86_x64;                              cells[5,k]:= UserName;                              if (Cells[5,k]='') then                                Cells[5,k]:='<Нет прав администратора>';                              cells[6,k]:= ProcessName;                              if (Cells[6,k]='') then                                Cells[6,k]:='<Нет прав администратора>';                          end;

Интересует строка

Код:

1	cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);

Дайте ссылочку на полезную статью. Да и от помощи бы не отказался.

[Aristarh Dark]

В первый раз вижу var в описании класса. Я отстал?

По теме, сначала создай экземпляр класса TProcessInfo. Прмерно так:

Код:

1 2 3 4 5

var   somename:TProcessInfo; begin   somename:=TProcessInfo.Create; end;

А уже затем вызывай его методы:

Код:

1 2 3

... somename.GetPriority(procentry.th32processid); ...

[MotoArhangel]

Не получается. Если не сложно подправьте с комментарием.

[Aristarh Dark]

Давай выкладывай проект с примером вызова. В модуле разбираться мне во первых - лень, во вторых - некогда

[MotoArhangel]

Вот два варианта который рабочий, но там часть кода необходимо перенести. И второй перенес но не работает=(
Буду признателен если уделите мне немного времени.

[Aristarh Dark]

Поправил чтоб запускалось, остальные баги сам ищи. И почитай про ООП, у тебя нет понимания того что ты делаешь.

[MotoArhangel]

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

[Aristarh Dark]

Я не смотрел архитектуру твоего приложения, поэтому не могу сказать как лучше тебе обновлять информацию.

[M.A.D.M.A.N.]

Сообщение от Aristarh Dark

В первый раз вижу var в описании класса. Я отстал?

Внутри класса можно и константы объявлять и т.д.

[Aristarh Dark]

Внутри класса можно и константы объявлять и т.д.

Это как это? Можно пример.

[Страдалецъ]

Действительно можно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

uses   SysUtils;   Type  TMyClass = class   var A: Integer;   const B: String = 'MyClass';  end;   Var   MyClass: TMyClass; begin  MyClass := TMyClass.Create;  MyClass.A := 1;  WriteLn(MyClass.B);  ReadLn; end.

[MotoArhangel]

xD вот и я думаю, где то в статье видел=)