你得用上cgi方面的开发了,几句话也说不清除,看看参考书吧

解决方案 »

  1.   

    //这不是很难!只是本人不精通html语言
    //请参考如下代码function DataSetToText(mDataSet: TDataSet): string;
    var
    {}vBook: string;
    {}I: Integer;
    {}S: string;
    begin
    {}Result := '';
    {}vBook := mDataSet.Book;
    {}mDataSet.First;
    {}while not mDataSet.Eof do begin
    {}{}S := '';
    {}{}for I := 0 to mDataSet.FieldList.Count - 1 do
    {}{}{}S := S + #9 + mDataSet.FieldList[I].DisplayText;
    {}{}Delete(S, 1, 1);
    {}{}Result := Result + S + #13#10;
    {}{}mDataSet.Next;
    {}end;
    {}mDataSet.Book := vBook;
    end; { DataSetToText }