Goedenmiddag allemaal,
ik ben even bezig geweest met NLDHtmlUtils, maar loop tegen een waarschijnlijk voor de hand liggend probleempje aan en zie even niet wat ik fout doe / wat er fout gaat)
De code:
Code:
procedure TMijnIkGaHetNietVertellen.Write(const text: string);
var
text1 : string;
begin
text1 := 'jeej deze doet het wel';
FHTMLPage := TNLDHtmlPage.Create(nil);
try
FHTMLPage.FileName := FFileName;
FHTMLPage.Title := FTitle;
with FHTMLPage.Body.AddTable.AddRow do
begin
with AddCol do
AddText(text1);
with AddCol do
AddText(text);
end;
FHTMLPage.Prepare;
FHTMLPage.Save;
finally
FHTMLPage.Free;
end;
end;
ik roep de functie aan met:
Write('Dees is een prutser');
de waarde komt netjes ook in de variabele: text. Maar zodra deze wordt doorgegeven aan: AddText, dan is mijn waarde weg.
Zet ik nou een variabele in mijn procedure zelf, dan wordt deze wel meegegeven. Iemand een idee, waar het fout gaat?
Danku
Bookmarks