Модератор: Модераторы
gluhow » 03.11.2020 10:20:36
Function GetTTestFromP(P:Pointer):TTest;
begin
try
if TObject(P) is TTest then
Result:=TTest(P)
else
Result:=nil;
except
Result:=nil;
end;
end;
Alex2013 » 03.11.2020 13:45:46
(Неуверен в нужности " ^ " но идее должно работать ){ Пример программы для функции TypeOf }
procedure GraphicalObject.Move;
begin
{ В зависимости от типа полученного значения, }
if TypeOf(Self) = TypeOf(ScrWindow) then
{ выполняем специальное действие, если перемещаем окно, или }
else
{ если нет, то другое действие }
end;
gluhow » 03.11.2020 14:27:57
Так оно не компилится.Alex2013 писал(а):Проверить TypeOf(P^) = TypeOf(TTest)
Alex2013 » 03.11.2020 15:50:59
gluhow писал(а):Так оно не компилится.Alex2013 писал(а):Проверить TypeOf(P^) = TypeOf(TTest)
procedure TForm1.Button1Click(Sender: TObject);
begin
if TypeOf( Sender ) = TypeOf(Button1) then TButton(Sender).Caption:='OK';
end;
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
L1:Longint;
implementation
Function GetTTestFromP(P,R:Pointer):TForm;
begin
try
if TypeOf( TObject(P^) ) = TypeOf(TObject(R^)) then
Result:=TForm(P)
else
Result:=nil;
except
Result:=nil;
end;
end;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
If GetTTestFromP(@L1,Form1)=Nil then Form1.Caption:='Nil';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If GetTTestFromP(Form1,Form1)<>Nil then Form1.Caption:='Ok Не Nil' ;
end;
end.
zub » 03.11.2020 17:52:49
program Project1;
type
ptobj=^tobj;
tobj=object
procedure a;virtual;abstract;
constructor init;
end;
ptobj2=^tobj2;
tobj2=object(tobj)
end;
var
pobj:ptobj;
constructor tobj.init;
begin
end;
begin
pobj:=getmem(sizeof(tobj2));
ptobj2(pobj)^.init;
if typeof(pobj^)=typeof(tobj) then
writeln('ptobj');
if typeof(pobj^)=typeof(tobj2) then
writeln('ptobj2');
freemem(pobj);
readln;
end. Alex2013 » 03.11.2020 18:15:21
zub писал(а):Но к задаче тс это не имеет никакого отношения. проверить по адресу лежит там что-то валидное или нет - невозможно. разве что при создании данных в динамической памяти заносить их адреса в какойто список, при уничтожении этих данных удалять адреса из списка - проверка сведется к проверке наличия адреса в списке. но это только для данных которые ты создаешь сам
zub » 03.11.2020 18:20:28
Alex2013 » 03.11.2020 18:29:01
zub писал(а):для них в качестве аргумента может быть как тип объекта, так и инстанс объекта
zub писал(а):>>Пример что я сделал отличает и Longint от TForm
Longint от TForm невозможно как спутать, так и отличить. Ты очередную случайность пытаешься выдать за закономерность
) zub » 03.11.2020 18:56:00
if Sender is TButton then ... Alex2013 » 03.11.2020 19:10:17
zub писал(а):вернее извращенный конечно сделаешь. 100% рабочий нет
zub писал(а): тебе надо менять логику программы, чтобы подобных проблем не возникало
Seenkao » 03.11.2020 19:56:12
olegy123 » 03.11.2020 22:20:35
gluhow писал(а):Проблема в том что указатель может оказаться совершенно левым. И на преобразовании TObject(P) выскакивает SIGSEGV. Возможно ли это как-то решить или всё-таки придется править логику?
gluhow писал(а):У меня немного странная задача: я отдельно сохраняю значение указателей памяти на некие объекты типа TTest
gluhow писал(а):Проблема в том что указатель может оказаться совершенно левым.
type
TMyObject = class
FHandle:Pointer
end;
var
MyObjectList:TList<TMyObject>;
Function GetTTestFromP(P:Pointer):TMyObject;
var
myObj:TObject;
begin
Result:=nil;
for myObj in MyObjectList do
begin
if myObj.FHandle=P then begin
Result:=myObj;
break;
end;
end;
end; zub » 05.11.2020 01:33:53
procedure TForm1.Button1Click(Sender: TObject);
begin
if typeof(sender)=pointer(TButton.ClassType) then
Button1.caption:='TButton';
end; MylnikovDm » 20.11.2020 23:51:48
Сейчас этот форум просматривают: cyborghome и гости: 14