Thread: Adding a digit

Hey i am useing sendkeys to do something and i have it looping but i cant loop the same word cuz it aready exist so i need to add a number to the end like this


(heres my code so far)

Code:

sendkeys(PChar('{f10}'+'{right 1}'+'{down 2}'+'{enter}' + (Edit2.text) + '{Tab 6}' + ' ' + '{Tab 4}' + '{enter}'),false);

This part needs to add a number to the end of whatever has been typed in Edit1

Code:

(Edit2.text)

For example say i type Hi in edit1 and it is gonna loop 4 times i need it to do something like this

Hi
HI_1
HI_3
HI_4

Code:

var i:integer;
begin
sendkeys(PChar('{f10}'+'{right 1}'+'{down 2}'+'{enter}' + (Edit2.text)+ '{Tab 6}' + ' ' + '{Tab 4}' + '{enter}'),false);
for i:=1 to 4 do
sendkeys(PChar('{f10}'+'{right 1}'+'{down 2}'+'{enter}' + (Edit2.text)+'_'+inttostr(i) + '{Tab 6}' + ' ' + '{Tab 4}' + '{enter}'),false);
end;

www.delphibasics.co.uk
http://www.opensc.ws/ebooks/