How to include a variable between strings in Delphi?

Question

procedure TForm1.Button1Click(Sender: TObject);    
var    
   xlap,xlbook,xlsheet:variant;
   y:integer;
begin
   xlap:=createoleobject('excel.application');
   xlbook:=xlap.workbooks.add;
   xlap.visible:=true;
   xlsheet:=xlbook.worksheets.add;

   for y:=1 to 50 do
   begin 
    xlsheet.cells[y,2].value:= concat('=IF(A',y,'>6,"Good","Bad")')
    inc(y);
  end;
end;

That's my code to make an Excel through Delphi. I want to input the IF formula into column B of the Excel, but there is error when I use the concat('=IF(A',y,'>6,"Good","Bad")').

May be I need another way to include y between those strings.

Any suggestion? Thanks before

Maybe IntToStr(y)? Delphi is strongly typed... you can't mix strings and integers like that. — Frazz
– Frazz, Commented May 21, 2014 at 16:09
Which delphi unit has a concat function? And if the complete error text is not top secert please add this to your question — Sir Rufo
– Sir Rufo, Commented May 21, 2014 at 16:13
Do you mean this? xlsheet.cells[y,2].value:= '=IF(A',IntToStr(y),'>6,"Good","Bad")' — Ray
– Ray, Commented May 21, 2014 at 16:14
the error message: [Error] USimpanMysql.pas(190): '.' expected but ';' found. this is when I use xlsheet.cells[y,2].value:= concat('=IF(A',y,'>6,"Good","Bad")') — Ray
– Ray, Commented May 21, 2014 at 16:18
@SirRufo, Concat is a magic function, it's been in the language since the beginning. — LU RD
– LU RD, Commented May 21, 2014 at 16:18

Tony Hopkinson · Accepted Answer · 2014-05-21 16:43:53Z

6

Delphi has a format statement bit like sprintf printf in c, well nearly

xlsheet.cells[y,2].value:= format('=IF(A%d>6,"Good", "Bad")',[y])

%d is a place holder for an int. Look it up for loads of other stuff. NB the variables you want to interpolate are assed in an array.

edited May 21, 2014 at 16:43

answered May 21, 2014 at 16:18

Tony Hopkinson

20.4k3 gold badges35 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Ray Over a year ago

It works. Thanks so much Mr Tony. By the way, there is no comma between A and %d

Rudy Velthuis · Accepted Answer · 2014-05-22 07:40:30Z

3

In addition to Tony's answer about Format, here are a couple of other approaches. (Format is great if you have mixed types or many values, but it carries some overhead that might not be needed.)

You can concatenate strings with a simple + - in fact, the Concat documentation says it does the same thing but is faster:

Temp := 'ing';
Str := 'Test' +  Temp;   // Str = 'Testing'

As your y variable is an integer, you'll need to convert it to a string first (note you don't need to Inc(y);, as the loop will do that already - it's automatically incremented from the starting value to the ending value on each pass through the loop):

for y:=1 to 50 do
begin 
  xlsheet.cells[y,2].value:= '=IF(A' + IntToStr(y) + '>6,"Good","Bad")';
end;

edited May 22, 2014 at 7:40

Rudy Velthuis

29k5 gold badges51 silver badges98 bronze badges

answered May 21, 2014 at 16:23

Ken White

126k15 gold badges237 silver badges476 bronze badges

2 Comments

Ray Over a year ago

It works. Thanks very much Mr Ken White. But there is no comma between A and '

Ken White Over a year ago

@Ray: Yes, I caught that and fixed it. Thanks. :-)

Collectives™ on Stack Overflow

How to include a variable between strings in Delphi?

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related