Колонки в DBGrid

[Len@09]

Добрый день!
У меня есть таблица DBGrid, в ней около 20 столбцов, у одного из них очень длинное наименование. Ширина столбца 120 и полное наименование не входит. Если его растянуть до конца названия, то будет не очень красиво. Как можно в DBGrig строку для названия полей сделать шире и перенести слова (например, как в Excel)?

[mihali4]

Использовать DBGridEh:
sshot-1.png sshot-2.png

[Len@09]

А как с помощью функции Pos вычислить где находится пробел и по его позиции разделить строку на две?

[Highlander1981]

Сообщение от Len@09

А как с помощью функции Pos вычислить где находится пробел и по его позиции разделить строку на две?

Не надо ничего вичислять. У DBGridEh есть свойство UseMultiTitle, установи его в True и он сам все перенесет с учетом пробелов.

[Len@09]

Сообщение от mihali4

Использовать DBGridEh:

Дело в том, что переделывать свой проект нет времени. Может кто-нибудь подскажет как с помощью функции Pos разделить строку на две?

[Highlander1981]

Я бы сделал так:

Ind:=PosEx(' ',s,Length(s) Div 2);
s1:=Copy(s,1,Ind-1);
s2:=Copy(s,Ind+1,Length(s)-Ind);

Где s-твоя строка, а s1 и s2 соответсвенно первая и вторая половины.
ind-содержит номер позиции первого пробела в строке, начиная с середины (это на тот случай, если в строке несколько пробелов, и нужно ее разделить примерно по середине).
P.S.: Не забудь добавить StrUtils в Uses твоего модуля.

[Len@09]

Я сделала так:

 procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
     function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
private
    { Private declarations }
public
    { Public declarations }
end;

var
  Form3: TForm3;
implementation

uses Unit4, Unit1, Unit2, Unit6, Unit12, Unit15;

{$R *.dfm}
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
  s1, s2: string;
  ind: integer;
begin
Ind:=PosEx(' ',s,Length(s) Div 2);
s1:=Copy(s,1,Ind-1);
s2:=Copy(s,Ind+1,Length(s)-Ind);
end;

Ругается:

[Warning] Unit3.pas(61): Return value of function 'PosEx' might be undefined
[Error] Unit3.pas(39): Unsatisfied forward or external declaration: 'TForm3.PosEx'
[Fatal Error] NalogProject.dpr(22): Could not compile used unit 'Unit3.pas'