名前
題名
▼ palさん > 久しぶりの投稿です。 > FindFirstで悩んでいます。 > ＯＳ：ＷＩＮ７ > > テンポラリフォルダのファイルリストを取得するものですが > １．Delphi7＝＞正常動作 > ２．Delphi2010＝＞正常動作 > ３．DelphiXE＝＞ > --------------------------- > モジュール 'TEST.exe' のアドレス 004B3ED0 で > アドレス 00000394 に対する読み取り違反がおきました。 > --------------------------- > こうなります。 > > XEのバグでしょうか？ > ご教授ください。 > > procedure TForm1.Button1Click(Sender: TObject); > var > i: Integer; > StrTempPath: Array[0..MAX_PATH] of Char; > SearchRec: TSearchRec; > ST: TStringList; > begin > GetTempPath(SizeOf(StrTempPath),StrTempPath); > ST := TStringList.Create; > try > i := FindFirst(StrTempPath+'*.LOG',faAnyFile,SearchRec); > while i = 0 do begin > ST.Add(SearchRec.Name); > i := FindNext(SearchRec); > end; > SysUtils.FindClose(SearchRec); > Memo1.Lines.Assign(ST); > finally > ST.Free; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link