Ошибка DLL delphi

[hemn6vyr]

Проблема решена. В строке соединения были лишние данные. Поэтому и выходила ошибка


Переписываю дипломку с использованием dll. Загоняю все функции и процедуры в dll. И на первой же вылезла ошибка.
Изначальный код

Function TTest.ReadQA(clmn: Integer): String;
Begin
  Try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM ' + _TestVar + ' WHERE count=' + IntToStr(ln));
    ADOQuery1.Open;
    Result := ADOQuery1.Fields[clmn].AsString;
  Except
    on E : Exception do
     begin
       ShowMessage('Exception class name = '+E.ClassName + '; Exception message = '+E.Message);
     end;
  End;
End;

В dll

Function ReadDB(Table: String; Column, Line: Integer): String;
Begin
  Try
    Query.Close;
    ShowMessage('1');
    Query.SQL.Clear;
    ShowMessage('2');
    Query.SQL.Add('SELECT * FROM ПОКС WHERE count=' + '6');
    ShowMessage('3');
    Query.Open;
    ShowMessage('4');
    Result := Query.Fields[2].AsString;
  Except
       Result := 'Ашыпка'
  End;
End;

И на строке Result := Query.Fields[2].AsString; вылетает ошибка. Из-за чего она может появиться?

[Dozent]

Ну возможно филда под номером 2 нет, нет результата в запросе...


P.S> не называйте таблицы на русском языке, делайте это на англ

[Slym]

стринги жмут однозначна...
ты читал длинный текст который выводится в новом проекте dll?
создай новый проект dll и читай

[FaTaL]

Версия Delphi какая? Если не юникодная, то строки между программой и DLL передавайте как WideString или UnicodeString