小弟在Open SQL之後 想在某欄位作回圈比較
如果跑出來值之中含有 1 就要發出聲音
如果跑出來值都是 = 2 就不用

可小弟寫下列迴圈程式可以跑
但是卻不會發出聲音
不曉得那裏錯了 能請各位大大幫我看嗎?


[code delphi]

commandtext := w1;
open;
end;
while not eof do
i := 0;
for j := 0 to RecordCount - 1 do
begin
if j = 1 then
begin
Form1.Man_player.Close;
Form1.Man_player.Open;
Form1.Man_player.Notify := True;
Form1.Man_player.Play;
end;

[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

for j := 0 to RecordCount - 1 do
begin
if j = 1 then
begin
Form1.Man_player.Close;
Form1.Man_player.Open;
Form1.Man_player.Notify := True;
Form1.Man_player.Play;
end;

問題是出在紅色字那邊吧
怎麼會是用 j :=1咧
應該是用 某欄位的值:= 1吧....

應該...

大大 我改成這樣
但程式卻HOLD住了



[code delphi]
while not eof do
i := 0;
for j := 0 to StringGrid1.RowCount - 1 do
begin
if ClientDataSet.Fieldbyname('STATUS').AsString = '1' then
begin
Form1.Man_player.Close;
Form1.Man_player.Open;
Form1.Man_player.Notify := True;
Form1.Man_player.Play;

end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

呃~不好意思
我剛剛的講法有誤
不是某欄位的值:= 1
sorry~

因為照你這樣的寫法就錯了= =
if ClientDataSet.Fieldbyname('STATUS').AsString = '1' then
這句語法的意思是：”假如Status欄位值 = 1 然後...”
可是你本身要的卻是"欄位值中含有1"
所以這樣寫法是錯滴@@|||

Dear  老大

我的欄位值跑出來 不是 1 就是 2

我想寫說跑迴圈比較之後 "假如發現欄位裡面有1 就要發出聲音"
If ClientDataSet.FieldDbyName('STATUS') = '1' then ....


那我該怎麼改呢??

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

目前我改成這樣程式可以跑

卻不會發出聲響@@



[code delphi]
i := 0;
for j := 1 to StringGrid1.RowCount - 1 do
begin
with StringGrid1 do
if Cells[15, j] = '1' then
begin
Form1.Man_player.Close;
Form1.Man_player.Open;
Form1.Man_player.Notify := True;
Form1.Man_player.Play;
i := 1;
end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

我寫出來了


[code delphi]
i := 0;
for j := 1 to StringGrid1.RowCount - 1 do
begin
with StringGrid1 do
if Cells[15, j] = '1' then
begin
if Button9.Tag = 0 then
begin
Form1.Man_player.Close;
Form1.Man_player.Open;
Form1.Man_player.Notify := True;
Form1.Man_player.Play;
i := 1;
end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet