OK,
I'm at location, so it hard to create a sample app. I have included
the code below.
Server 5.6
Client gds 5.1
HTH
John
procedure TfrmJob.IB_QConfigurationCalculateField(Sender:
TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
var
x: ansistring;
I: INTEGER;
begin
if AFIELD.FieldName = 'WIN_COUNT' then begin
X := AROW.BYNAME('DESCRIPTION').ASSTRING;

I := CountF(X, '-', 1) + 1; // hyperstr func to count occurances

AFIELD.AsInteger := I;
end;
end;