Ошибка доступа к памяти при создании клиента MySQL (Delphi XE7)

[fredwriter]

Я сейчас закомментировал весь код модуля после проблемной строчки она вторая в модуле, и ошибка вышла та же, чего и требовалось ожидать. Теперь по поводу другого кода можно не переживать).

[fredwriter]

я использую модуль MySQLClient.

[fredwriter]

А вы меня все-таки навели на мысль). Я сейчас по F7 пробежался (раньше не догадался)), эта ошибка выпрыгивает в модуле MySQLClient в строчке:

FHost        :='localhost';

FHost это string.

private
    Session       : mysql;
    Thread        : TmySQLThread;
    overflow2     : array[0..127] of char; // overflow catch

    FThreaded, FConnected    : boolean;

    FHost,
    FUser,
    FPasswd,
    FDb           : string;

    FPort         : integer;
    ......................................

Код модуля в архиве.

[fredwriter]

Всем снова здравствуйте, были другие дела, поэтому я этой проблемой не занимался.
Проблема в строках, почему-то когда я создаю строку глобально при создании класса независимо в pvivate или в public, она не инициализируется, пробовал выделить память через SetLength, на этой же строке выделения памяти выдается та же ошибка. Внутри методов класса строки создаются нормально.

type
  TCustom_mySQLClient = class(TComponent)
  private
    Session       : mysql;
    Thread        : TmySQLThread;
    overflow2     : array[0..127] of char; // overflow catch

    FThreaded, FConnected    : boolean;
    s_12: string; //ОШИБКА
    m15: integer;
    FHost: string; //ОШИБКА
    FUser,
    FPasswd,
    FDb           : string //ОШИБКА;

    FPort         : integer;

    FCapabilities : TSetClientCapabilities;

    FOnConnect : TmySQLThread_OnComplete;
    FOnConnectError : TmySQLThread_OnError;

    procedure   SetHostname(const S : string);
    function    GetHostname : string;
    procedure   SetUsername(const S : string);
    function    GetUsername : string;
    procedure   SetPassword(const S : string);
    function    GetPassword : string;
    procedure   SetDatabase(const S : string);
    function    GetDatabase : string;

    procedure   SetCapabilities (const C : TSetClientCapabilities);
    function    GetCapabilities : TSetClientCapabilities;

    procedure   SetPort(const i : integer);
    function    GetPort : integer;

    function    GetServerInfo : string;
    function    GetClientInfo : string;
    function    GetHostInfo   : string;
    function    GetProtoInfo  : byte;

    function    GetErrorMsg : string;
    function    GetStat     : pchar;
  protected
    property    Connected : boolean read FConnected;
    property    Threaded : boolean read FThreaded write FThreaded;

    property    Hostname : string read GetHostname write SetHostname;
    property    Username : string read GetUsername write SetUsername;
    property    Password : string read GetPassword write SetPassword;
    property    Database : string read GetDatabase write SetDatabase;

    property    Port : integer read GetPort write SetPort;

    property    Capabilities : TSetClientCapabilities read GetCapabilities write SetCapabilities;

    property    ServerInfo : string read GetServerInfo;
    property    ClientInfo : string read GetClientInfo;
    property    HostInfo   : string read GetHostInfo;
    property    ProtoInfo  : byte   read GetProtoInfo;

    property    ErrorMsg   : string read GetErrorMsg;
    property    Stat       : pchar read GetStat;

    property    OnConnect      : TmySQLThread_OnComplete read FOnConnect      write FOnConnect;
    property    OnConnectError : TmySQLThread_OnError    read FOnConnectError write FOnConnectError;
  public
    constructor Create(AOwner : TComponent); override;
    destructor  Destroy; override;

    function    Connect : boolean;
    function    SelectDatabase : boolean;

    function    CreateDatabase(const NewDb : string) : boolean;
    function    DropDatabase  (const DropDb : string) : boolean;

    function    CreateQuery : TmySQLQuery;
    function    Execute(Query: String): Boolean;

    function    ListDatabases(const Wild : string; L : TStringList) : boolean;
    function    ListTables   (const Wild : string; L : TStringList) : boolean;
    function    ListFields   (const TableName, Wild : string; L : TStringList) : boolean;
    function    ListProcesses(L : TStringList) : boolean;

    function    Ping : integer;
    function    Kill(const pid : integer) : integer;
    function    Options(opt: _mysql_option; arg: pchar) : integer;

    function    Refresh(const RefreshOptions: TSetRefreshOptions) : integer;
    function    Shutdown : integer;

    procedure   Close;
  end;
  
  constructor TCustom_mySQLClient.Create(AOwner : TComponent);
var
  i : integer;
//  s_15: string;
begin
  inherited Create(AOwner);

  // Fill overflow Buffer with $FF for purpose of debugging overflows
  for i:=0 to sizeof(overflow2)-1 do overflow2[i]:=#$FF;

  Thread         :=nil;
  FOnConnect     :=nil;
  FOnConnectError:=nil;

  SetLength(s_12, 0); //ОШИБКА
  s_12        :='localhost'; //ОШИБКА
  m15 := 23;
  FConnected   :=FALSE;
  FThreaded    :=FALSE;
//  SetLength(FHost, 0);
//  FHost        :='';
//  FUser        :='';
//  FPasswd      :='';
//  FDb          :='';
//  FPort        :=MYSQL_PORT;
  FCapabilities:=[CLIENT_LONG_PASSWORD,CLIENT_CONNECT_WITH_DB];
end;

Почему-то при любом обращении к строке созданной глобально возникает ошибка.

[lomastr_]

где тут хоть 1 глобальная строка?

[fredwriter]

Сообщение от lomastr_

где тут хоть 1 глобальная строка?

Я не правильно выразился, правильно будет: при описании в public или private разделах как свойство класса.

[lomastr_]

это не свойства
вы что, чужие исходники правите? а зачем?

TMYSQLCLIENT_LAST_MODIFIED = '12.06.1998a';

вы уверены что оно вообще рабочее?

[fredwriter]

Сообщение от lomastr_

это не свойства

Ну хорошо), может Вы мне сами скажете как это называется?
Объявление переменной в private или public разделе класса как грамотно назвать?
Там строка, s_12 я завел, и FHost и т. д., что там уже были
вы что, чужие исходники правите? а зачем?

Сообщение от lomastr_

вы уверены что оно вообще рабочее?

Ну пока проблема только со строками, до этого я уже ошибок 100) исправил, с этой не могу совладать никак(. Исправлю, будет рабочее).