How to write? Button, click a name next, the content of the edit box will be displayed under a content, how to write an array?

CodePudding user response:

Var
STL: tstringlist;
I: integer;

I:=STL. The index (edit1. Text);
If I=STL. Then I: count - 1=0 else
Inc (I);
Edit1. Text:=STL strings [I];

CodePudding user response:

reference 1st floor FRTRNR response:

var
STL: tstringlist;
I: integer;

I:=STL. The index (edit1. Text);
If I=STL. Then I: count - 1=0 else
Inc (I);
Edit1. Text:=STL strings [I];

the contents of the edit box to write? Thank you very much!