Visual Basic

type
        Symbol = string[8];
        SymTab = array[1..1000] of Symbol;
        TabPtr = ^SymTab;

var
        ST: array[1..MaxEntry] of Symbol;
        SType: array[1..MaxEntry] of char;


132 function Lookup(T: TabPtr; s: string; n: integer): integer;
133 var
134         i: integer;
135         found: Boolean;
136 begin
137         found := false;
138         i := n;
139         while (i > n) and not found do
140                 if s = T^[i] then
141                         found := true
142                 else
143                         dec(i);
144         Lookup := i;
145 end;


152 function InTable(n: Symbol): Boolean;
153 begin
154         InTable := Lookup(@ST, n, MaxEntry) <> 0;
155 end;






when i complier with gpc , it will print this:Tiny10.pas: In function `InTable':
&lt;b&gt;Tiny10.pas:154: error: passing arg 1 of `Lookup' from incompatible pointer type
Tiny10.pas:132: error:  routine declaration&lt;/b&gt;

can you tell me why? actually,i just know C++, i learn pascal for i read a book which use it.
thank you
<div class="signature"><div class="modified">modified on Tuesday, December 7, 2010 3:53 AM</div></div>

 Private Sub applysql(ByVal query As String, Optional ByVal transaction As Odbc.OdbcTransaction = Nothing)<br />
        Try<br />
            Dim command As New Odbc.OdbcCommand(query, solid, transaction)<br />
            datareader = command.ExecuteReader<br />
<br />
            bindingsource.DataSource = datareader<br />
            resultsdatgdvw.DataSource = bindingsource<br />
            resultsdatgdvw.Update()<br />
            resultsdatgdvw.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.ColumnHeader)<br />
            resultslbl.Text = "Returned " & resultsdatgdvw.RowCount & " rows"<br />
            If Rollbackbtn.Enabled = False Then<br />
                transaction.Commit()<br />
            End If<br />
<br />
            datareader.close()<br />
            datareader.dispose()<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub

Private Sub resultsdatgdvw_CellToolTipTextNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellToolTipTextNeededEventArgs) Handles resultsdatgdvw.CellToolTipTextNeeded<br />
       If e.ColumnIndex > -1 Then<br />
           e.ToolTipText = "Type: " & resultsdatgdvw.Columns(e.ColumnIndex).ValueType.ToString & " Length: " & 'Here is where I need to find the max length of the field     <br />
  End If<br />
   End Sub

'writes to bitmap and hence the file saved

gr.DrawString(txt, the_Font, Brushes.Black, 0, 0)

' writes to screen only

e.Graphics.DrawString(txt, the_Font, Brushes.Black, 0, 0)

Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
    namesList.Items.Clear()

    Me.MainTableAdapter.Connection.Open()

    Dim myCommand As OleDbCommand = Me.MainTableAdapter.Connection.CreateCommand()
    Me.MainTableAdapter.Transaction = Me.MainTableAdapter.Connection.BeginTransaction()
    myCommand.Connection = Me.MainTableAdapter.Connection
    myCommand.Transaction = Me.MainTableAdapter.Transaction

    myCommand.CommandText = "Select * from main WHERE Title Like '%" & nameTB.Text & "%' order by title asc, ID asc"
    Dim dbReader As OleDbDataReader = myCommand.ExecuteReader

    While dbReader.Read()
        Dim title As String = dbReader("Title")
        Dim ID As Integer = dbReader("ID")
        Dim qualifier As String = getQualifier(ID, Me.QualifiersTableAdapter)
        If Not qualifier Is Nothing Then
            title &= "- " & qualifier &
        End If
        namesList.Items.Add(title)
    End While
    Me.MainTableAdapter.Connection.Close()

End Sub

Private Function getQualifier(ByVal TitleID As Integer, ByVal adapter As QualifiersTableAdapter) As String
    adapter.Connection.Open()
    Dim myCommand As OleDbCommand = adapter.Connection.CreateCommand()
    adapter.Transaction = adapter.Connection.BeginTransaction
    myCommand.Connection = adapter.Connection
    myCommand.Transaction = adapter.Transaction

    myCommand.CommandText = "Select * from Qualifiers WHERE Title = " & TitleID
    Dim dbReader As OleDbDataReader = myCommand.ExecuteReader
    myCommand.Transaction.Commit()

    Dim s as String = Nothing
    If dbReader.Read() Then
        s = dbReader("Qualifier")
    End If
    adapter.Connection.Close()
    Return s


End Function

Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
        namesList.Items.Clear()

        Dim dBaseConnectionString As String = "Provider=Microsoft.jet.oledb.4.0;" & _
        "Data Source=demo.mdb" & ";"

        Dim dBaseConnection As New OleDbConnection(dBaseConnectionString)
        dBaseConnection.Open()

        Dim dBaseCommand As New OleDbCommand("Select * from main WHERE Title Like '%" & titleTB.Text & "%' order by title asc, ID asc", dBaseConnection)
        Dim dBaseDataReader As OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()

        While dBaseDataReader.Read()
            Dim title As String = dbReader("Title")
            Dim ID As Integer = dbReader("ID")
            Dim qualifier As String = getQualifier(ID, dBaseConnection)
            If Not qualifier Is Nothing Then
                title &= "- " & qualifier &
            End If
            namesList.Items.Add(title)
        End While
        Me.MainTableAdapter.Connection.Close()

    End Sub

    Private Function getQualifier(ByVal TitleID As Integer, ByVal dBaseConnection As OleDbConnection) As String


        Dim dBaseCommand As New OleDbCommand("Select * from Qualifiers WHERE Title = " & TitleID, dBaseConnection)
        Dim dBaseDataReader As OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()

        If dbReader.Read() Then
            Return dbReader("Qualifier")
        Else
            Return Nothing
        End If

    End Function