Q&A
- ListBox의 MultiSelect 하긴했는데..??? ^^;;
listBox에서 multiselect 한걸 표현하긴했는데..
multiselect된 것이 끝인지를 알수도 있을까여...??
procedure TForm1.Button1Click(Sender: TObject);
var
strtemp : String;
i : integer;
begin
for i := 0 to listBox1.Items.count -1 do
if ListBox1.Selected[i] = true then
strtemp := strtemp + listbox1.Items.Strings[i] + ',';
┖> 이렇게 했더니.. 마지막 자료인데도.. 콤마(,)가 붙어서..
밑에 select 할때 에러가나네여..
with Query1 do
begin
close;
SQL.Clear;
Sql.Add('select * from bdr_info');
Sql.Add(' where saucd in (''' +strtemp + ''')'); <- - - - 여기여.. ^^;;
try
open;
except on E1:EDBEngineError do begin
Close;
end;
end;
end;
multiselect 된것중 맨 끝이면.. 콤마(,)를 빼야하는데.. ^^
multiselect된 것이 끝인지를 알수도 있을까여...??
procedure TForm1.Button1Click(Sender: TObject);
var
strtemp : String;
i : integer;
begin
for i := 0 to listBox1.Items.count -1 do
if ListBox1.Selected[i] = true then
strtemp := strtemp + listbox1.Items.Strings[i] + ',';
┖> 이렇게 했더니.. 마지막 자료인데도.. 콤마(,)가 붙어서..
밑에 select 할때 에러가나네여..
with Query1 do
begin
close;
SQL.Clear;
Sql.Add('select * from bdr_info');
Sql.Add(' where saucd in (''' +strtemp + ''')'); <- - - - 여기여.. ^^;;
try
open;
except on E1:EDBEngineError do begin
Close;
end;
end;
end;
multiselect 된것중 맨 끝이면.. 콤마(,)를 빼야하는데.. ^^
3
COMMENTS
-
-
요렇게 해두 이쁠듯.
procedure TForm1.Button1Click(Sender: TObject);
var
strtemp : String;
i : integer;
TS : TstringList;
begin
TS := TstringList.create;
for i := 0 to listBox1.Items.count -1 do
begin
if ListBox1.Selected[i] then TS.add(ListBox1.items[i]);
end;
strtemp := TS.commatext;
TS.Free;
with Query1 do
begin
close;
SQL.Clear;
Sql.Add('select * from bdr_info');
Sql.Add(' where saucd in (''' +strtemp + ''')'); <- - - - 여기여.. ^^;;
try
open;
except on E1:EDBEngineError do begin
Close;
end;
end;
end;
뻐록이 wrote:
> 김양미 wrote:
> > listBox에서 multiselect 한걸 표현하긴했는데..
> >
> > multiselect된 것이 끝인지를 알수도 있을까여...??
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > strtemp : String;
> > i : integer;
> > begin
> >
> > for i := 0 to listBox1.Items.count -1 do
> > if ListBox1.Selected[i] = true then
> > strtemp := strtemp + listbox1.Items.Strings[i] + ',';
> > ┖> 이렇게 했더니.. 마지막 자료인데도.. 콤마(,)가 붙어서..
> > 밑에 select 할때 에러가나네여..
> >
> '//////////////답변이 될려나 모르겠네요//////////
> //포문 끝나고 나서 이렇게 함 될거 같은데요;.......
> strtemp := copy(strtemp,1,length(strtemp)-1);
>
> //즐코딩 하세요,....
> //
>
> > with Query1 do
> > begin
> > close;
> > SQL.Clear;
> > Sql.Add('select * from bdr_info');
> > Sql.Add(' where saucd in (''' +strtemp + ''')'); <- - - - 여기여.. ^^;;
> > try
> > open;
> > except on E1:EDBEngineError do begin
> > Close;
> > end;
> > end;
> > end;
> >
> > multiselect 된것중 맨 끝이면.. 콤마(,)를 빼야하는데.. ^^
-
*^^*
(NOTICE) You must be logged in to comment on this post.
-
- 해후
- 2001.02.22 04:00
- 0 COMMENTS
- /
- 0 LIKES
-
- hobakpa
- •
- 2001.02.22 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2001.02.22 06:50안녕하세요? 고드름 김정입니다. 엑셀의 SHEET를 COM 객체로 연결해서 부르고 각 셀에 데이터를 넘기...
-
- 김양미
- •
- 2001.02.22 03:11
- 3 COMMENTS
- /
- 0 LIKES
listBox에서 multiselect 한걸 표현하긴했는데.. multiselect된 것이 끝인지를 알수도 있을까여...?? procedure TForm1.Button1Click(Sender: TObject); var strtemp : String; i : integer; begin for i := 0 to listBox1.Items.count -1...-
뻐록이•2001.02.22 03:23김양미 wrote: > listBox에서 multiselect 한걸 표현하긴했는데.. > > multiselect된 것이 끝인지를 알...
-
(__)a•2001.05.04 03:30요렇게 해두 이쁠듯. procedure TForm1.Button1Click(Sender: TObject); var strtemp : String; ...
-
김양미•2001.02.22 18:26*^^*
-
-
^-_-^•2001.02.22 03:18yo` 흠..비베에서 어떤방식으로 하는지는 모르겟지만, 흠... 어느 변수에 몽땅 들어오나요?? 파이...
-
델파초짜..•2001.02.22 03:32흠.. 니의 답변 잘 봤습니다.. 콤보를 센타까면 되는군요.. 센타 깠는데 안내노면.. 때려도 돼나요^^; ...
-
조복기•2001.02.22 09:17안녕하세요~.. 비베의 레코스셋처럼 델파이에서도 쿼리를 오픈하면 데이타셋에서 그 값을 가지고 있...
-
-
- 진짜 초보.
- •
- 2001.02.22 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 03:23안녕하세요. 최용일입니다. .dfm파일을 직접 수정하시는것은 별루 좋은 방법이 아닙니다. 그렇게 하지 ...
-
- 써니
- •
- 2001.02.22 02:41
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:21yo` 흠...수정이라...UpdateSQL을 사용해보시죠...^^;; 강좌란같은데보면 쉬운 예가 있을껍니다. ...
-
- 김양미
- •
- 2001.02.22 02:37
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:51안녕하세요. 최용일입니다. 윈도우에서 화면에 그리는 메세지는 우선순위가 가장 낮습니다. 빠른 속도를...
-
^-_-^•2001.02.22 02:40yo` > label1.caption := cnt; 요 코드 앞이나 뒤에 다음코드를 넣어보시고 해보시길... ...
-
김양미•2001.02.22 03:13^^;;
-
- 윤원미
- •
- 2001.02.22 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.02.22 22:35윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
비•2001.02.22 20:48윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
- 3107
- 2001.02.22 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2001.02.22 02:12안녕하세요. 최용일입니다. 정수형값이면 어느거나 가능합니다. Byte, Word, DWORD, LongInt, Intege...
-
-
- 뻐록이
- •
- 2001.02.22 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:24yo` 냠...질문이 다소 이해가 가질 않지만.... 일단 실행시 스크립트를 사용자입력으로 받아서 처리...
-
- 규
- 2001.02.22 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 구찌
- •
- 2001.02.22 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:19안녕하세요. 최용일입니다. 무슨 말씀인지 자세히 설명을 해 주셔야지 답변을 드릴텐데... 무슨 등록...
-
- 델처버
- •
- 2001.02.22 01:33
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:12yo` 질문이 헷갈리네여...^^;; > > s := ''; // 여기서 이건 왜 필요한가요 ? 그냥 변수 ...
-
- 김미희
- •
- 2001.02.24 23:25
- 1 COMMENTS
- /
- 0 LIKES
-
내컴•2001.02.22 02:38var i :integer; begin i := Random(100); // 0 부터 100까지의 랜덤한 정수 Edit1.Text := FormatF...
-
- 써니
- 2001.02.22 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- 2001.02.22 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.02.24 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보사리
- •
- 2001.02.22 00:55
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:37안녕하세요. 최용일입니다. 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네요... 직접 구현하시는...
-
바보사리•2001.02.22 05:19최용일 wrote: > 안녕하세요. 최용일입니다. > > 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네...
-
최용일•2001.02.22 05:42여기 자료실에도 조복기님이 만드신 그리드가 있어요... 그 외에도 몇개 있구요... 여기 국외 링크에 보...
-
- 김태일
- 2001.02.22 00:41
- 0 COMMENTS
- /
- 0 LIKES
> listBox에서 multiselect 한걸 표현하긴했는데..
>
> multiselect된 것이 끝인지를 알수도 있을까여...??
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> strtemp : String;
> i : integer;
> begin
>
> for i := 0 to listBox1.Items.count -1 do
> if ListBox1.Selected[i] = true then
> strtemp := strtemp + listbox1.Items.Strings[i] + ',';
> ┖> 이렇게 했더니.. 마지막 자료인데도.. 콤마(,)가 붙어서..
> 밑에 select 할때 에러가나네여..
>
'//////////////답변이 될려나 모르겠네요//////////
//포문 끝나고 나서 이렇게 함 될거 같은데요;.......
strtemp := copy(strtemp,1,length(strtemp)-1);
//즐코딩 하세요,....
//
> with Query1 do
> begin
> close;
> SQL.Clear;
> Sql.Add('select * from bdr_info');
> Sql.Add(' where saucd in (''' +strtemp + ''')'); <- - - - 여기여.. ^^;;
> try
> open;
> except on E1:EDBEngineError do begin
> Close;
> end;
> end;
> end;
>
> multiselect 된것중 맨 끝이면.. 콤마(,)를 빼야하는데.. ^^