DB
только ты делаешь разименование в Pinteger а надо в PoleVariant
Size: a a a
2020 March 02
DB
потому что там не Pinteger и не факт что они бинарно совместимы
DB
а может у тебя уже 'чистый' указатель и будет работать вот прямо как есть. надо пробовать
FT
Попробую отпишусь
DB
DB
вот как получишь 'чистый' oleVariant без указателей - так у тебя сразу v[i][j] по идее должно заработать
DB
и дальше оно само сконвертируется как надо
VA
procedure TForm1.Button27Click(Sender: TObject);
type
TIntArr=array of array of integer;
pIntArr=^TIntArr;
var
p:pointer;
v:oleVariant;
x,y:integer;
pArr:pIntArr;
begin
v:=Mat.Get2dArray; //Указатель на адрес в памяти
Pinteger(@p)^:=v;
pArr:=pIntArr(p);
for x:=0 to 10 do
begin
for y:=0 to 10 do
begin
ListBox1.Items.Add(pArr^[x,y].toString);
end;
end;
end;
type
TIntArr=array of array of integer;
pIntArr=^TIntArr;
var
p:pointer;
v:oleVariant;
x,y:integer;
pArr:pIntArr;
begin
v:=Mat.Get2dArray; //Указатель на адрес в памяти
Pinteger(@p)^:=v;
pArr:=pIntArr(p);
for x:=0 to 10 do
begin
for y:=0 to 10 do
begin
ListBox1.Items.Add(pArr^[x,y].toString);
end;
end;
end;
тебе нужен статический массив.
динамический массив тут нельзя использовать.
динамический массив тут нельзя использовать.
FT
Буду тестировать ребятки
AF
procedure TViewPlaceThumb.ImgStartDrag(Sender: TObject; var DragObject: TDragObject);
var
Bmp: Vcl.Graphics.TBitmap;
SenderAs: TMakhImage;
begin
SenderAs := (Sender as TMakhImage);
try
Bmp := Vcl.Graphics.TBitmap.Create;
Bmp.Width := SenderAs.Width;
Bmp.Height := SenderAs.Height;
Bmp.Canvas.CopyRect(Bmp.Canvas.ClipRect, SenderAs.Canvas, Bmp.Canvas.ClipRect);
DragObject := TCustomDragObject.Create(SenderAs, Bmp, SenderAs.Tag, Self.OwnerForm.Handle);
DragObject.AlwaysShowDragImages := True;
except
On E: EInvalidOperation do
begin
FreeAndNil(Bmp);
DragObject := nil;
FDragObject := nil;
Exit;
end;
end;
FDragObject := DragObject;
end;
спс, сделал еще проще в итоге)
AF
братцы, а кто может ньюфага направить в направлении туторов по простой работе с онлайн бд из D7? цель - клиентское приложение, которое сможет работать с онлайновой бд на уровне простых запросов(создание/запись/удаление/поиск)
AF
нахожу просто только туторы по локальным бд(
AZ
с точки зрения работы с данными никакой разницы при работе с датасетом нет ни с локальной бд, ни с удаленной
VI
Заголово программы можно сделать как-то красиво?
VI
Или оно так и будет?
DB
очередная мини-байка про реалии медицинки. в нашей больничке постоянно плющило сеть, вот я тут как-то кидал боль про то, что файлы с шары плохо открывались - соединение просто висло. продолжалось это уже больше года может и два. еженедельно висло, бывало и ежедневно. софт крутится внутри виртуалки. админам всё давно рассказано, что не так. админы исправно перегружали софт вместо того, что бы разобраться. после долгой нудоты, нас наконец пустили к хосту (для этого должен был сменится главный и с новым как-то все вместе пришли к тому, что дадут максимальный доступ). поискали пару дней проблему. посмотрели - на хосте всё ок. виртуалку плющит. переставили виртуалку и вуаля, всё сразу залетало! я потратил на попытки правки наверно недели две, скорее больше. так и живем.
AS
братцы, а кто может ньюфага направить в направлении туторов по простой работе с онлайн бд из D7? цель - клиентское приложение, которое сможет работать с онлайновой бд на уровне простых запросов(создание/запись/удаление/поиск)
Если ты ньюфаг , то почему на Д7?
AZ
особенно если учесть что бесплатная версия дельфи это 10.3, а никак не 7 :)
VI
Подсажите с названием, я выше написал