Советы по Delphi. Версия 1.4.3 от 1.1.2001

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

Пример:

AddFather('Peter')

AddChild('Peter',1)

Procedure AddFather(Name: String)

Begin

 Tree.Add(Name);

End;

Procedure AddChildr(Name: String, Index:Integer)

Begin

 Relation.FindKey([Name])while RelationMaster.AsString = Name do

 Begin

  Tree.AddChild(Index,RelationSlave.AsString);

  AddChild(RelationSlave.AsString,Tree.ItemsCount);

  Relation.Next;

 End;

End;

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

DBGrid и Memo-поля

Delphi 1

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

Text := GrabMemoAsString(TMemoField(Sender));

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

function GrabMemoAsString(TheField : TMemoField): String;

begin

 if TheField.IsNull then Result := '' else with TBlobStream.Create(TheField, bmRead) do begin

  if Size >= 255 then begin

   Read(Result[1], 255);

   Result[0] := #255;

  end else begin

   Read(Result[1], Size);

   Result[0] := Chr(Size);

  end;

  Free;

  while Pos(#10, Result) > 0 do Result[Pos(#10, Result)] := ' ';

  while Pos(#13, Result) > 0 do Result[Pos(#13, Result] := ' ';

end;

end; 

Убывающий индекс

Delphi 1 

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

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

Как работать из Delphi напрямую с MS ADO (Microsoft Active Data Objects)?

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);

 MyRecSet := CoRecordSet.Create;

 MyRecSet.Open(MyCommand, OptionalParam, adOpenDynamic, adLockReadOnly, adCmdText);