改造・ｿｰｽとかのスレ

■改造・ｿｰｽとかのスレ

36:｀）ノ:04/01/13 20:32
procedure TempLoadHuku;
var
　sr: TSearchRec;
　FileAttrs: Integer;
　S: String;
begin
　FileAttrs := faAnyFile;
　S:= IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +tpNm2 +'*.mlt';
　if FindFirst(S, FileAttrs, sr)=0 then
　begin
　　repeat
　　if (sr.Attr and FileAttrs)=sr.Attr then
　　begin
　　　TabCtrl2.Tabs.Append(ChangeFileExt(sr.Name,'')); //タブ追加
　　end;
　　until FindNext(sr)<>0;
　　FindClose(sr);
　end;
end;
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
test3のソース

tpNm2はHukuTemp\
起動時、タブをclear後、この処理を行って、
この後、Tab数が０だったら、mltが読めませんエラーだす。

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板

Rainboard