Runden mit Rave Report

[merlin17]

hmmm, an dem Begriff (T)Euro ist doch was dran....<g>

-> am besten wird es über die rave-calc-fields gehen.

Code:

procedure TForm1.RvDataSetConnection1GetCols(
  Connection: TRvCustomConnection);
begin
  with Connection do
  begin
    DoGetCols;
    WriteField('ErsterBuchstabe', dtString, 1, '', '');
  end;

end;

procedure TForm1.RvDataSetConnection1GetRow(
  Connection: TRvCustomConnection);
begin
  with Connection do
  begin
    DoGetRow;
    WriteStrData(Copy(Table1.FieldByName('Company').AsString, 1, 1), '');
  end;
end;

der weg dürfte mit diesem code-schnipsel klar sein, oder ?


thomas, TeamNevrona