안녕하세요. 델초보자입니다.
리스트박스의 내용을 텍스트 박스로 저장하려고 합니다.
','로구분하려고 하는데 마지막의 ','를 삭제가 잘 안됩니다.
변수를 사용하여고 하니 라인이 늘어나서 함수를 사용하려고 합니다.
리스트박스의 items수는 가변입니다.
예를 들어서
111
222
333
444
555 를
111,222,333,444,555, 부분에서 마지막 ,를 제거 하려고 합니다.
함수좀 알려주세요....
예)
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
edit2.Clear;
for i:=0 to ListBox1.Items.Count-1 do
begin
edit2.Text := edit2.text+ ListBox1.Items[i]+',';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
edit2.Clear;
for i:=0 to ListBox1.Items.Count-2 do
edit2.Text := edit2.text+ ListBox1.Items[i]+',';
edit2.Text := edit2.text+ ListBox1.Items[i+1];
end;
즐푸하세여..
타락천사...