|
ｿｽ@ｿｽｿｽLoadFromFileｿｽﾌエｿｽｿｽｿｽ[
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
sato 2009/02/24(ｿｽｿｽ) 14:27:47
ｿｽlｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽA
Memo1.Lines.LoadFromFile('ABC.csv')
ｿｽﾅ読み搾ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾉ、
ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽ"ABC.csv".ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾍフｿｽ@ｿｽCｿｽｿｽｿｽﾉアｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾊのプｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽﾍ開ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽv
ｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽ
ｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽAｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Win-XPｿｽADelphi7ｿｽﾅゑｿｽｿｽB
Manbon 2009/02/24(ｿｽｿｽ) 15:12:30
tryｿｽｿｽｿｽﾅ会ｿｽｿｽﾆゑｿｽｿｽﾈるかｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
exceptｿｽﾌ抵ｿｽｿｽﾉ暦ｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽﾈ？
ｿｽﾜゑｿｽｿｽｿｽ 2009/02/24(ｿｽｿｽ) 20:39:11
ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽNｿｽｿｽｿｽQｿｽlｿｽﾉなゑｿｽﾌでは？
http://delfusa.main.jp/delfusafloor/technic/technic/003_FileInUse.html
ｿｽｿｽｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽﾍゑｿｽｿｽいｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽﾌで、ｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾜに管暦ｿｽｿｽﾒの包ｿｽｿｽｿｽｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂにゑｿｽｿｽｿｽｿｽｿｽﾅになゑｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
http://delfusa.main.jp/delfusafloor/index.shtml
sato 2009/02/25(ｿｽｿｽ) 10:46:09
Manbonｿｽｿｽｿｽｿｽ@ｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
if *** then ...(1)
LoadFronFile ...(2)
(1)ｿｽｿｽ***ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽAFileInUse ｿｽｿｽFalseｿｽ@ｿｽｿｽ
hFile:=FileOpen(filename,fmOpenRead)ｿｽﾉゑｿｽｿｽﾄ、ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾄゑｿｽ
ｿｽずｿｽｿｽｿｽﾌタｿｽCｿｽｿｽｿｽｿｽｿｽOｿｽﾌゑｿｽｿｽﾟ、(2)ｿｽﾉ移ゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽﾔゑｿｽｿｽAｿｽﾏゑｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽGｿｽｿｽｿｽ[ｿｽﾉなる時ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾇ、
try
LoadFronFile
except
on EErr: Exception do begin
//ｿｽｿｽｿｽｿｽｿｽEｿｽFｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽ@ｿｽ@ｿｽ@//ｿｽﾄ度ｿｽALoadFronFile
end;
end;
ｿｽﾆ、ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽAｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Manbon 2009/02/25(ｿｽｿｽ) 11:56:58
exceptｿｽｿｽﾉ擾ｿｽLｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌはまゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽﾆ・ｿｽEｿｽE
ｿｽ痰ｦｿｽﾎ、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾎ茨ｿｽｿｽSｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽOｿｽｿｽ
for i := 1 to 10 do begin //10ｿｽﾍ適ｿｽｿｽ
try
LoadFromFile;
except
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽOｿｽｿｽ
end;
if ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽOｿｽｿｽ then Break;
Application.Processmessages;
sleep(100); //ｿｽKｿｽｿｽ
end;
if ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽOｿｽｿｽ then ShowMessage('ｿｽｿｽｿｽﾍダｿｽｿｽｿｽﾅゑｿｽ');
sato 2009/02/25(ｿｽｿｽ) 13:31:15
Manbonｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
except end;ｿｽﾌ間で、ｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽﾈと思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽmｿｽｿｽｿｽﾉ、ｿｽSｿｽ`ｿｽｿｽｿｽSｿｽ`ｿｽｿｽｿｽﾉなりそｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽJｿｽﾉ、ｿｽ¥ｿｽ[ｿｽXｿｽﾜで擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
