Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

FreeMem(Buffer, Size); {Освобождаем память, распределенную для Buffer}

end;

Nomadicотвечает:

Ошибка в VCL.

А помогает добавление fUpdated:=false; в теле процедуры TIndexDefs.Update.

Или убиением владельца через Free, и пересозданием.

Все это я делал раньше. Я не могу вам все это показать на развернутом примере, но я дам вам идею как сделать это. Вы должны иметь таблицу, осуществляющую взаимоотношение между людьми. Если на Peter работают Jane и Simon, вы должны иметь таблицу (RELATION) с этими двумя записями.

Master

Slave ------- имена полей

Peter Jane

Peter Simon

Если George и Elisa работают на Jane, то таблица становится такой:

Master Slave ------- имена полей

Peter Jane

Peter Simon

Jane George

Jane Elisa

и так далее.

Если в таблице RELATION необходимо создать дерево, начинающееся на Peter, то нужно добавить к дереву главный узел (запись), где Master = Peter. Затем каждая дочерняя запись располагается ниже записи Master = Peter. После добавления дочерней записи вы сразу увидите, если ребенок имеет собственного ребенка. Ребенок становится теперь, вероятно, отцом, поэтому вы должны позиционировать таблицу RELATION к первой записи, где Master = child, и так далее, рекурсивно. Такой способ гарантирует построение правильного дерева.

Пример:

AddFather('Peter')

AddChild('Peter',1)

ProcedureAddFather(Name: String)

Begin

Tree.Add(Name);

End;

ProcedureAddChildr(Name: String, Index:Integer)

Begin

Relation.FindKey([Name]) whileRelationMaster.AsString = Name do

Begin

Tree.AddChild(Index,RelationSlave.AsString);

AddChild(RelationSlave.AsString,Tree.ItemsCount);

Relation.Next;

End;

End;

По-моему, ошибок нет.

В обработчик события GetText TMemoField поместите следующую строку:

Text := GrabMemoAsString(TMemoField(Sender));

и поместите следующую функцию так, чтобы к ней можно было свободно обратиться:

functionGrabMemoAsString(TheField : TMemoField): String;

begin

ifTheField.IsNull thenResult := '' else withTBlobStream.Create(TheField, bmRead) do begin

ifSize >= 255 then begin

Read(Result[1], 255);

Result[0] := #255;

end else begin

Read(Result[1], Size);

Result[0] := Chr(Size);

end;

Free;

whilePos(#10, Result) > 0 doResult[Pos(#10, Result)] := ' ';

whilePos(#13, Result) > 0 doResult[Pos(#13, Result] := ' ';

end;

end;

Я нашел простой способ получения убывающего индекса. В Delphi это получается очень легко и красиво:

Table1.AddIndex('NewIndex', 'CustNo;CustName', [ixDescending]);

Nomadicотвечает:

Итак, хочу поделиться некоторыми достижениями… так на всякий случай. Если у вас вдруг потребуется сделать в своей программке доступ к базе данных, а BDE использовать будет неохота (или невозможно) – то есть довольно приятный вариант: использовать ActiveX Data Objects. Однако с их использованием есть некоторые проблемы, и одна из них это как передавать Optional параметры, которые вроде как можно не указывать. Однако, если вы работаете с ADO по-человечески, а не через тормозной IDispatch.Invoke то это превращается в головную боль. Вот как от нее избавляться:

var

OptionalParam: OleVariant;

VarData: PVarData;

begin

OptionalParam := DISP_E_PARAMNOTFOUND;

VarData := @OptionalParam;

VarData^.VType := varError;

после этого переменную OptionalParam можно передавать вместо неиспользуемого аргумента.

Далее, самый приятный способ получения Result sets:

Там есть масса вариантов, но как выяснилось оптимальным является следующий вариант, который позволяет получить любой желаемый вид курсора (как клиентский, так и серверный)

var

MyConn: _Connection;

MyComm: _Command;

MyRecSet: _Recordset;

prm1: _Parameter;

begin

MyConn := CoConnection.Create;

MyConn.ConnectionString := 'DSN=pubs;uid=sa;pwd=;';

MyConn.Open('', '', '', –1);

MyCommand := CoCommand.Create;

MyCommand.ActiveConnection := MyConn;

MyCommand.CommandText := 'SELECT * FROM blahblah WHERE BlahID=?'

Prm1 := MyCommand.CreateParameter('Id', adInteger.adParamInput, –1, );

MyCommand.AppendParameter(Prm1);