[Delphi] DBMEMO in quickreport

[marenk_vos]

Hoe krijg ik een dbase memo veld in een quickreport qrdbtext veld. Als ik de kolom link aan de tabel is er geen text zichtbaar op het report.

Delphi 5.0
Quickreport 3.5.0

Hoe converteer ik gegevens uit een dbmemo veld naar een string?

var bla:string;

blad:=datamodule1.calcmateriaal.fieldbyname('opmerking').asstring;

heeft een hele rare string als gevolg... er zitten allerlei rare karakters vooraan de string.

[whoami]

Tja, die Quickreports.... IK werk er niet zo graag mee.

Is je Table geopend?
Heb je de DataSet property van je Band ook op de gewenste query of table gezet ?

[marenk_vos]

ja de andere kolommen werken wel allemaal goed behalve die ene memo veld.

[whoami]

marenk_vos schreef op 23 september 2002 @ 13:05:
ja de andere kolommen werken wel allemaal goed behalve die ene memo veld.

Vreemd.

Welke databank gebruik je, en hoe leg je de verbinding met die databank (ADO, ODBC, ...)

[Verwijderd]

een nieuw veld aanmaken (in vb Tabel1memoveldstring (string)
in je tabel : calculated
dan oncalcfields dit eronder hangen....

procedure Datamodule.Tabel1CalcFields(DataSet: TDataSet);
var memo : Tstringlist;
i : integer;
begin
Memo:=Tstringlist.Create;
try
Memo.Assign(Ttabelmemoveldl);
Tabel1memoveldstring.asstring := '';
for i:=0 to memo.Count-1 do
begin
if memo[i]<>'' then
begin
Tabel1memoveldstring.asstring := Memo[i];
break;
end;
end;
finally
memo.free;
end;
end;

[marenk_vos]

Bedankt NTO, het werkt prima....

Gebruike code:

procedure TDataModule1.calcmateriaalCalcFields(DataSet: TDataSet);
var memo : Tstringlist;
i:integer;
str:string;
begin
Memo:=Tstringlist.Create;
try
Memo.Assign(calcmateriaalopmerking);
calcmateriaalopmerkingstring.asstring:='';
for i:=0 to memo.Count-1 do
begin
if memo[i]<>'' then
begin
str := str + memo.Strings[i] + ' ';
end;
end;

calcmateriaalopmerkingstring.asstring:=str;

finally
memo.free;
end;
end;

[ Voor 0% gewijzigd door marenk_vos op 23-09-2002 14:18 . Reden: Gerealiseerde code ]