掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダからMP3ファイルを検索してListBox1に表示するには？ (ID：8380)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function CSRight(BString,CWord:String):String; begin result:=RightStr(BString,Length(BString) -AnsiPos(CWord,BString)-Length(CWord)+1); end; procedure TForm1.FileListBox1Change(Sender: TObject); var i:integer; s,t:string; begin for i:=0 to FileListBox1.Count-1 do begin s:=inttostr(i); if Length(s)=1 then s:='0'+s; t:=FileListBox1.Items[i]; if ansipos(' ',t)>0 then t:=CSRight(t,' '); FileListBox1.Items[i]:=s+' '+t; end; end; 画面がちらつく ※要StrUtils
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.