function sqlresult(s:string):boolean;
var a:string;
begin
 result:=false;
 with form1.Query2 do
  begin
    close;
    sql.Text :='a';
    open;
  end;
  result:=true;
end;    

function sqlresult(s:string):boolean;
  begin
    with Query1 do
      begin
        close;
        sql.Text := s;
        try
          open;
          result:=true;
        except
          result := false;
        end;
      end;
  end;

引言: HI fishman 你好! 在調用時報錯...請問是否用得不恰當 QRLabel19.Caption := sqlresult('select container_id from mhsodcnt where sorder_id=' QuotedStr(Form1.DBGrid1.DataSource.DataSet.Fieldbyname('sorder_id').AsString)); ''incompatible types:'string' and 'boolean'''

function sqlresult(s:string):string；
begin
    with Query1 do
      begin
        close;
        sql.Text := s;
        try
          open;
          result:=Query1.fieldbyname('container_id ').asstring;
        except
          free;
        end;
      end;
  end;
调用：
 QRLabel19.Caption :=sqlresult('select container_id from mhsodcnt where sorder_id=' QuotedStr(Form1.DBGrid1.DataSource.DataSet.Fieldbyname('sorder_id').AsString));

引言:

引言: hi deity 你好!

function sqlresult(s,a:string):string；
begin
    with Query1 do
      begin
        close;
        sql.Text := s;
        try
          open;
          result:=Query1.fieldbyname('a').asstring;
        except
          free;
        end;
      end;
  end;
這樣定議能否成立...

成是成立，不过，得注意因为您所要返回的字段（a）的字段值，是由s里给定的，两者是相互统一的。 result:=Query1.fieldbyname('a').asstring; result:=Query1.fieldbyname(a).asstring; 不用加点,因a本就是string; 另代码前后加上[code]……您的代码……[/code]进行缩排，这样方便阅读

引言:

 
function TForm2.sqlresult(s,a: string): string;
begin
  with form1.Query2 do
  begin
    close;
    sql.Text := s;
    try
      open;
 按f9 出錯在這---> result := form1.Query2.fieldbyname(a).asstring;
    except
      free;
    end;
  end;
end;      s := 'select * from mhsodcnt where sorder_id='   
QuotedStr(Form1.DBGrid1.DataSource.DataSet.
Fieldbyname('sorder_id').AsString);
    a :=QuotedStr('container_id');
    QRLabel2.Caption := sqlresult(s,a); 

a :=QuotedStr('container_id');<---是否這里出錯呢...正是这里出错，直接写a:='container_id';即可，a这里表示表里的一个字段 由於第一次寫function..有很多地方不明白..慢慢来，想信您会成功的 要 > 另在代码加>[>] >[/>] < face="Verdana, Arial, Helvetica"> ~~~静心养德~~~