Создал функции, в которых создаю компонент, читаю из базы, а потом уничтожаю, делаю так, потому что, функции вызываются потоками. все работает какое то неопределённое время, а потом вылетает ошибка.
Скажите, что я не так делаю? Все функции выделены в отдельный Unit13
Пример 2-х функций:
class function RGetInfo.GetGroups(Player: String): XGroups;
var
iStrig: String;
FDConnection: TFDConnection;
FDQuery: TFDQuery;
begin
try
FDConnection := TFDConnection.Create(Form1);
with FDConnection do
begin
Params.Add('Database=asd');
Params.Add('DriverID=MySQL');
Params.Add('Password=123456');
Params.Add('Server=localhost');
Params.Add('User_Name=root');
Params.Add('CharacterSet=utf8');
Params.Add('ReadTimeout=100');
Connected := True;
end;
except
end;
try
FDQuery := TFDQuery.Create(Form1);
FDQuery.Connection := FDConnection;
except
end;
try
FDQuery.SQL.Clear;
FDQuery.SQL.Add('SELECT `name` FROM `880102` WHERE `active` = "1"');
FDQuery.Open;
while not FDQuery.Eof do
begin
iStrig := iStrig + '"' + FDQuery.FieldByName('name').AsString + '",';
FDQuery.Next;
end;
Delete(iStrig, length(iStrig), 1);
Result.withError := False;
FDQuery.Close;
except
iStrig := '"all"';
Result.withError := True;
end;
Result.xText := iStrig;
try FDQuery.Destroy; except end;
try FDConnection.Destroy; except end;
end;
class function RGetInfo.GetLanguages(Player: String): XLanguages;
var
iStrig: String;
FDConnection: TFDConnection;
FDQuery: TFDQuery;
begin
try
FDConnection := TFDConnection.Create(Form1);
with FDConnection do
begin
Params.Add('Database=asd');
Params.Add('DriverID=MySQL');
Params.Add('Password=123456');
Params.Add('Server=localhost');
Params.Add('User_Name=root');
Params.Add('CharacterSet=utf8');
Params.Add('ReadTimeout=100');
Connected := True;
end;
except
end;
try
FDQuery := TFDQuery.Create(Form1);
FDQuery.Connection := FDConnection;
except
end;
try
FDQuery.SQL.Clear;
FDQuery.SQL.Add('SELECT `name` FROM `880103` WHERE `active` = "1"');
FDQuery.Open;
while not FDQuery.Eof do
begin
iStrig := iStrig + '"' + FDQuery.FieldByName('name').AsString + '",';
FDQuery.Next;
end;
Delete(iStrig, length(iStrig), 1);
Result.withError := False;
FDQuery.Close;
except
iStrig := '"en"';
Result.withError := True;
end;
Result.xText := iStrig;
try FDQuery.Destroy; except end;
try FDConnection.Destroy; except end;
end;
Free
а не прямой вызовDestroy
. Про именование типов данных я вам уже писал в прошлый раз, общепринято начинать сT
, а неX
или еще что-нибудь. По итогу, с какой ошибкой падает программа, начинать надо с этого.AV
или что-то другое?Owner
-а вам уже сказали. Использование пустыхexcept
это не очень хорошо, ибо просто скрывает ошибку и игнорирует ее. Помимоexcept
есть еще иfinally
.T
(T-type/user-type). Исключением часто являются классы rtti-атрибутов, там не используют префикс. Аналогично интерфейсы начинают сI
(I - Interface), поля сF
(F - field) и так т.п.