FreePascal.ru

Жаль. Придется идти через абстрактные методы похоже...

Здравствуйте!
Требуется создать новый экземпляр класса в функции, которая получает в качестве параметра объект того же класса. Сам класс заранее не известен.

Вот пример, который я создал, чтобы было понятней:

program sample;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads ...

Такая же проблема. Lazarus 1.8.2. Как решить? Как задать имя потока? Пробовал SetThreadName('XCXCXC'); в инициализации в модулях. Всё равно эта ошибка.

Killer_86 писал(а):Пробывал, вот именно что создать таблицу проблем нет, а проблема появляется при подключении к этой же таблице.

Обнови лазарус. С дбф у меня были косяки в версиях до 1.2.0

Lazzik писал(а):А есть Indy под lazarus и где его достать???

Есть. На сайте Indy.

Сталкивался с подобной проблемой. Решилось так:
var
Dbf: TDbf;
begin
Dbf := TDbf.Create(nil);
try
Dbf.FilePath := 'полный путь к каталогу с файлами таблицы';
//dBase VII
Dbf.TableLevel := 7;
Dbf.TableName := 'таблица';
Dbf.LanguageID := 3;
Dbf ...

Делал я такую программу. У меня в ней были условия: в какие месяцы выполнять, в какие дни и в какие минуты (у меня было кратно 5 минутам). Для планировщика, выполняющего задание был примерно следующий алгоритм:
1) получаем текущее время и сохраняем в переменной (-ых);
2) берем задание;
3) проверяем ...

Можно сделать, например, так(.ext - наше расширение файла):
SaveDialog.FileName:='Новый файл.ext';
if SaveDialog.Execute then
begin
if (RightStr(SaveDialog&#46;FileName, 4)<>'&#46;ext') then
SaveDialog&#46;FileName&#58;=SaveDialog&#46;FileName+'&#46;ext';
end;
RightStr из ...

Спасибо, пригодилось