Question

I am trying to replace all “#” with new lines to draw:

Canvas.TextOut(0,0,''+StringReplace('a#b','#',#13#10,[rfReplaceAll]));

but nothing.
TextOut prints “a#b” like the the replaced part doesn’t even exist (But it does exist ofcourse): ab
Instead of this:

a
b

#13#10 is the new line (Windows) right?
Then why this isn’t working?

Thank you.

Answer 1

You need to use DrawText to produce multi-line text:

var
  R: TRect;
....
R := Rect(0, 0, Width, Height);
DrawText(
  Canvas.Handle,
  PChar(StringReplace('a#b','#',#13#10,[rfReplaceAll])),
  -1,
  R,
  0
);

You may very well want to use different flags in the final parameter, but I’m sure you can read the documentation and work out what you need.