FreePascal.ru

Текcтовые файлы не удаляются. Реализовал пока через TSearchRec, но это видится велосипедом, когда можно командой сделать.

Доброго времени суток. Не работает данный простой код:



procedure TForm1.Button1Click(Sender: TObject);
var
AProcess: TProcess;
begin
AProcess:= TProcess.Create(nil);
AProcess.CommandLine:= 'cmd.exe';
AProcess.Parameters.Add('del D:\00_TEMP\*.txt ...

olegy123 писал(а):У меня был опыт работы с шифрованием, полдня ушло чтобы понять, в конце string символ #13#10 был лишний.

Проверил. Вроде не мой случай. Одна строка без символов #13#10 шифрует но не расшифровывает.

olegy123 писал(а):вообще то я поосторожнее извлекал из Edit1.Text бинарные данные

Там ключ для шифрования

Про MODBUS кстати делал так:
1) ставим драйвера MBX7 (у него можно настроить разные типы подключения)
2) ходим через интерфейс этого драйвера

Доброго времени суток. Пытаюсь сделать шифрование файла с помощью BlowFish. Пробую модифицировать пример и получаю "шляпу". Вод код:



var
Form1: TForm1;
sTemp : string;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var be &#58 ...

Код выполняется, ошибок при компиляции и выполнении нет. Просто в ячейках данных нет

Нужно создать файл с данными. Excel создается, но данными не заполняется

Доброго времени суток. Делаю по мануалам:


procedure TForm1.Button1Click(Sender: TObject);
var r, c : integer;
Exl : Variant;
Sht : Variant;

begin
Exl:=CreateOleObject('Excel.Application');
Exl.DisplayAlerts := true; // Подавить всякие сообщения
Exl&#46 ...

скалогрыз писал(а):

sign писал(а):Я для своих классов всегда пишу Assign.

и да! не рассказывайте son-у ничего про advanced record-ы... а то мало ли!

таак... а ну рассказывайте что это такое!!! а то мне мало!!! это как я понял вроде "недокласса" или "переструктура"?

Про FreePascal не уверен, а в C++ если переменной класса присвоить объект класса из другой переменной, то создастся полная копия этого объекта с помощью конструктора копирования.

Понятно. То есть такой код не приводит к созданию нового объекта класса через конструктор копирования?:

Доброго дня. Не могу разобраться с простым вопросом по TList. По идее TList хранит указатели на объекты класса. Почему я не могу получить их в виде указателей. Вод код:


{ TMuClass }

PMuClass = ^TMuClass;
TMuClass = class
private
FActive: boolean;
FCount: integer;
procedure ...

Визуальное наследование подходит. Не совсем то что хотелось, но ладно. Я еще покопаюсь в этом вопросе. Спасибо за ответы.

Это про создание модуля данных. Я говорю о том, что бы в Lazarus добавить новый пункт в меню: Файл - Создать
Что бы там был новый пункт (например в папке "Модуль") при выборе которого создавался шаблон моей ранее созданной формы.