한국 델파이 개발자 모임 - 소스 좀 봐 주세요

소스 좀 봐 주세요

procedure TForm1.ibt2Click(Sender: TObject);

var

i,h,count,cnt:integer;

mp3list:TInifile;

name:string;

mp3memo:Tstringlist;

begin

play_style := true;

lbmp3.Visible := true;

lb.Visible := false;

mp3list:=Tinifile.Create(dir+'mp3list.ini');

cnt := mp3list.ReadInteger('mp3list','count',0);

for h:=0 to cnt-1 do

begin

mp3list.DeleteKey('mp3list',inttostr(h)+'_name');

mp3list.DeleteKey('mp3list',inttostr(h)+'_path');

end;

deletefile(dir+'mp3.m3u');

mp3memo := Tstringlist.Create;

if od.Execute then

begin

mp3memo.Clear;

lbmp3.Clear;

count := od.Files.Count;

mp3list.WriteInteger('mp3list','count',count);

for i:=0 to count-1 do

begin

name := ExtractFileName(od.Files[i]);

mp3list.WriteString('mp3list',inttostr(i)+'_name',name);

mp3list.WriteString('mp3list',inttostr(i)+'_path',od.Files.Strings[i]);

lbmp3.items.add(mp3list.ReadString('mp3list',inttostr(i)+'_name',''));

mp3memo.Append(od.Files.Strings[i]);

end;

mp3list.free;

if od.FilterIndex = 1 then

begin

mp3memo.SaveToFile(dir+'mp3.m3u');

@mp3memo.Free;

amp.Visible := true;

amp.FileName := dir+'mp3.m3u';

end

else

begin

mp3memo.Free;

mp3list:=Tinifile.Create(dir+'mp3list.ini');

amp.Visible := true;

amp.FileName := mp3list.ReadString('mp3list','0_path','');

mp3list.Free;

end;

end;

end;

처음 오픈다이얼로그에는 에러가 안 나는데 2번째 오픈다이얼로그를 열면 @에 있는 부분에서 에러가 납니다.

한번 봐 주세요

이 게시물을

2 COMMENTS

그냥 • 2000.10.26 21:42

에러가 나는 부분을 요렇게 바꾸면 잘 돌아가지 않나요?

예전에 비슷한 경험을 한거 같아서리...

if od.FilterIndex = 1 then

begin

try

mp3memo.SaveToFile(dir+'mp3.m3u');

finally

@mp3memo.Free;

end;

에구..머리가 나빠서 맞는지 모르겠네요..

참조해 보세요...쩝..

조헌철 wrote:

> procedure TForm1.ibt2Click(Sender: TObject);

> var

> i,h,count,cnt:integer;

> mp3list:TInifile;

> name:string;

> mp3memo:Tstringlist;

> begin

> play_style := true;

> lbmp3.Visible := true;

> lb.Visible := false;

> mp3list:=Tinifile.Create(dir+'mp3list.ini');

> cnt := mp3list.ReadInteger('mp3list','count',0);

> for h:=0 to cnt-1 do

> begin

> mp3list.DeleteKey('mp3list',inttostr(h)+'_name');

> mp3list.DeleteKey('mp3list',inttostr(h)+'_path');

> end;

> deletefile(dir+'mp3.m3u');

> mp3memo := Tstringlist.Create;

> if od.Execute then

> begin

> mp3memo.Clear;

> lbmp3.Clear;

> count := od.Files.Count;

> mp3list.WriteInteger('mp3list','count',count);

> for i:=0 to count-1 do

> begin

> name := ExtractFileName(od.Files[i]);

> mp3list.WriteString('mp3list',inttostr(i)+'_name',name);

> mp3list.WriteString('mp3list',inttostr(i)+'_path',od.Files.Strings[i]);

> lbmp3.items.add(mp3list.ReadString('mp3list',inttostr(i)+'_name',''));

> mp3memo.Append(od.Files.Strings[i]);

> end;

> mp3list.free;

> if od.FilterIndex = 1 then

> begin

> mp3memo.SaveToFile(dir+'mp3.m3u');

> @mp3memo.Free;

> amp.Visible := true;

> amp.FileName := dir+'mp3.m3u';

> end

> else

> begin

> mp3memo.Free;

> mp3list:=Tinifile.Create(dir+'mp3list.ini');

> amp.Visible := true;

> amp.FileName := mp3list.ReadString('mp3list','0_path','');

> mp3list.Free;

> end;

> end;

> end;

>

> 처음 오픈다이얼로그에는 에러가 안 나는데 2번째 오픈다이얼로그를 열면 @에 있는 부분에서 에러가 납니다.

>

> 한번 봐 주세요

>

>
- 0
- 0
- 삭제
- 수정
- 댓글
조헌철 • 2000.10.26 22:01

그냥 wrote:

> 에러가 나는 부분을 요렇게 바꾸면 잘 돌아가지 않나요?

> 예전에 비슷한 경험을 한거 같아서리...

> if od.FilterIndex = 1 then

> begin

> try

> mp3memo.SaveToFile(dir+'mp3.m3u');

> finally

> @mp3memo.Free;

> end;

> 에구..머리가 나빠서 맞는지 모르겠네요..

> 참조해 보세요...쩝..

>

>

> 조헌철 wrote:

> > procedure TForm1.ibt2Click(Sender: TObject);

> > var

> > i,h,count,cnt:integer;

> > mp3list:TInifile;

> > name:string;

> > mp3memo:Tstringlist;

> > begin

> > play_style := true;

> > lbmp3.Visible := true;

> > lb.Visible := false;

> > mp3list:=Tinifile.Create(dir+'mp3list.ini');

> > cnt := mp3list.ReadInteger('mp3list','count',0);

> > for h:=0 to cnt-1 do

> > begin

> > mp3list.DeleteKey('mp3list',inttostr(h)+'_name');

> > mp3list.DeleteKey('mp3list',inttostr(h)+'_path');

> > end;

> > deletefile(dir+'mp3.m3u');

> > mp3memo := Tstringlist.Create;

> > if od.Execute then

> > begin

> > mp3memo.Clear;

> > lbmp3.Clear;

> > count := od.Files.Count;

> > mp3list.WriteInteger('mp3list','count',count);

> > for i:=0 to count-1 do

> > begin

> > name := ExtractFileName(od.Files[i]);

> > mp3list.WriteString('mp3list',inttostr(i)+'_name',name);

> > mp3list.WriteString('mp3list',inttostr(i)+'_path',od.Files.Strings[i]);

> > lbmp3.items.add(mp3list.ReadString('mp3list',inttostr(i)+'_name',''));

> > mp3memo.Append(od.Files.Strings[i]);

> > end;

> > mp3list.free;

> > if od.FilterIndex = 1 then

> > begin

> > mp3memo.SaveToFile(dir+'mp3.m3u');

> > @mp3memo.Free;

> > amp.Visible := true;

> > amp.FileName := dir+'mp3.m3u';

> > end

> > else

> > begin

> > mp3memo.Free;

> > mp3list:=Tinifile.Create(dir+'mp3list.ini');

> > amp.Visible := true;

> > amp.FileName := mp3list.ReadString('mp3list','0_path','');

> > mp3list.Free;

> > end;

> > end;

> > end;

> >

> > 처음 오픈다이얼로그에는 에러가 안 나는데 2번째 오픈다이얼로그를 열면 @에 있는 부분에서 에러가 납니다.

> >

> > 한번 봐 주세요

> >

> >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 저도초자
- •
- 2000.10.26 06:51
- 2 COMMENTS
- /
- 0 LIKES
query로 master/detail 구성시 마지막 data만 나오는 원인?
- 김영대
  
  •
  
  2000.10.26 20:02
  
  안녕하세여..? 컴맹입니다. 콤포넌트 2개를 Master / Detail 로 사용 하셨군여.. Query1 의 Result ...
- 저도초자
  
  •
  
  2000.10.27 05:01
  
  김영대님 먼저 답변에 감사 드립니다. 그러나, 제가 문제를 아직 해결하지 못해서 다시 질문을 드립니다. ...
- 조헌철
- •
- 2000.10.26 06:30
- 2 COMMENTS
- /
- 0 LIKES
소스 좀 봐 주세요

procedure TForm1.ibt2Click(Sender: TObject); var i,h,count,cnt:integer; mp3list:TInifile; name:string; mp3memo:Tstringlist; begin play_style := true; lbmp3.Visible := true; lb.Visible := false; mp3list:=Tinifile.Create(di...
- 그냥
  
  •
  
  2000.10.26 21:42
  
  에러가 나는 부분을 요렇게 바꾸면 잘 돌아가지 않나요? 예전에 비슷한 경험을 한거 같아서리... if...
- 조헌철
  
  •
  
  2000.10.26 22:01
  
  그냥 wrote: > 에러가 나는 부분을 요렇게 바꾸면 잘 돌아가지 않나요? > 예전에 비슷한 경험을 한거 같...
- heimdal
- 2000.10.26 06:10
- 0 COMMENTS
- /
- 0 LIKES
모니터링이란??
- 한스
- 2000.10.26 06:06
- 0 COMMENTS
- /
- 0 LIKES
dll 폼에서 탭키! ---> 용기를 내서 다시한번!
- 이정한
- •
- 2000.10.26 05:25
- 1 COMMENTS
- /
- 0 LIKES
기간내 합계구하는거..
- 델초보
  
  •
  
  2000.10.26 05:41
  
  SQL.Add('SELECT SUM(TOTAL) DATE_TOTAL FROM ABC.DB'); SQL.Add('WHERE JDATE>=:LDATE AND JDATE=:LDAT...
- 김명찬
- 2000.10.26 05:16
- 0 COMMENTS
- /
- 0 LIKES
색상 처리 ?
- 여운재(완전깡통)
- •
- 2000.10.26 05:07
- 1 COMMENTS
- /
- 0 LIKES
너무너무 급합니다. 제발 도와 주세요...
- 강태공
  
  •
  
  2000.10.26 17:21
  
  MSSQL 클라이언트 모듈은 설치를 했는지요 ?... 여운재(완전깡통) wrote: > 델에 델자도 모르는 사...
- 델초
- •
- 2000.10.26 05:00
- 1 COMMENTS
- /
- 0 LIKES
파라독스 사용제한은?
- coolling
  
  •
  
  2000.10.26 18:21
  
  파라독스는 BDE 에서 설정한 Block Size의 값에 따라 DB의 최대크기가 정해지는건 아시죠. default=204...
- onlyna
- 2000.10.26 04:55
- 0 COMMENTS
- /
- 0 LIKES
인스톨쉴드에 대한 질문...
- 궁금맨
- 2000.10.26 04:51
- 0 COMMENTS
- /
- 0 LIKES
e-mail 주소를 올바르게(급함)
- 이연희
- •
- 2000.10.26 04:36
- 1 COMMENTS
- /
- 0 LIKES
음성 녹음에 대한..
- 괴델
  
  •
  
  2000.12.29 00:10
  
  이연희 wrote: > 안녕하세요? > > 음성녹음에 관련 프로그래밍 작업을 할려구 하는 사람입니다. > ...
- 정대진
- 2000.10.26 04:33
- 0 COMMENTS
- /
- 0 LIKES
mgrid에서 현재 포커스된 데이타셀의 x,y좌표를 구하는방법을 알고싶습니다. 꼭도와주세요
- 질문
- 2000.10.26 04:15
- 0 COMMENTS
- /
- 0 LIKES
델파이로 네트워크 드라이버 연결해주는 방법 아시는 분?
- 장명선
- 2000.10.26 03:56
- 0 COMMENTS
- /
- 0 LIKES
DLL에 관련된 질문입니다.
- 어린왕자
- 2000.10.26 03:56
- 0 COMMENTS
- /
- 0 LIKES
EnumChildProc,EnumChildWindows API 함수 예제와 설명좀부탁함다
- sindi
- •
- 2000.10.26 03:52
- 1 COMMENTS
- /
- 0 LIKES
꼭! 읽어봐주세요!!델파이 저장하는 법에 대해...
- 바보감자
  
  •
  
  2000.10.26 04:51
  
  sindi wrote: > 안녕하세요? 저는 델파이를 처음 시작하는 사람입니다.. > 근데,,,프로그램 작성후 저장...
- 델초보
- 2000.10.26 03:34
- 0 COMMENTS
- /
- 0 LIKES
sql서버사용 새로운 레코드 추가시..
- 센스
- 2000.10.26 03:05
- 0 COMMENTS
- /
- 0 LIKES
이진수 변환과 shift...
- 김용성
- •
- 2000.10.26 03:03
- 1 COMMENTS
- /
- 0 LIKES
QReport의 내용을 엑셀파일로 저장을...
- 반영재
  
  •
  
  2000.10.26 03:51
  
  www.waler.com 홈피에 가시면 TExtraFilters 라는 코포넌트가 있습니다. Lotus 123, Quattro Pro, Excel,...
- 한스
- 2000.10.26 03:03
- 0 COMMENTS
- /
- 0 LIKES
" 29314 " 번 가르쳐 주세요!!!!!

조헌철
2000/10/26 06:30
Views380

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

2162 2163 2164 2165 2166 2167 2168 2169 2170 2171

Last Page→