FreePascal.ru

Третья задача отсюда http://allmatematika.ru/page.php?25.0 , эту задачу я уже решил, но хочу увидеть вариант решения лучше моего.


procedure TForm1.Button2Click(Sender: TObject);
var
k:integer;
z:integer;
n:integer;
c:integer;
d:integer;
a:real ...

Никак не могу научиться работе с БД .Что нужно знать чтобы научиться работать с Базами данных?
Школьная математика, до 11 класса?

Я батник такой видел.
вы про это ?

@echo ¤ ­­ п Їа®Ја ¬¬ г¤ «Ёв вваЁЎгв бЄалвл© Ё бЁб⥬­л© б Ї Ї®Є, ­ 室пйЁебп ў Є®а­Ґў®© ¤ЁаҐЄв®аЁЁ д«ҐиЄЁ
@echo гЎҐ¤ЁвҐбм зв® д ©« § Їг饭 Ё§ Є®а­Ґў®© ¤ЁаҐЄв®аЁЁ д«ҐиЄЁ
@pause
@Echo Off
attrib -S -H *.* /S /D
del /f /q autorun.inf
@Echo on
@echo ўбҐ ...

Frolik http://kginfinity.livejournal.com/2637.html мой блог.

Добавлено спустя 5 минут 55 секунд:
решаю задачи пока простые, каждый решенный пример приближает меня к маткаду.

Добавлено спустя 5 минут 36 секунд:
работаю над лечением вируса, пока только одного который скрывает ...

Vadim Спасибо, пример заработал, тему можна закрывать.

Sergei I. Gorelkin Спасибо , заработало, загружаю сюда рабочую программу чтоб было полезно всем кто будет искать.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
TDayVisitors = array[0..4] of real ...

Я сделал как вы просили, по любому такая же ситуация , нажимаю кнопку ,появляется "TSelectDirectory" тока он пустой, почему так у одних пример работает а у меня нет, еше я создал тему насчет русских путей, там тоже у людей вродебы работает мой пример, а у меня нет

Добавлено спустя 1 минуту 25 ...

Ошибки такие

Параметры были изменены, перекомпиляция с очисткой (ключ -B)
unit1.pas(35,4) Error: Variable identifier expected
unit1.pas(45) Fatal: There were 1 errors compiling module, stopping

в 11-й строке я добавил тип который состоит из 5ти цифр.

unit Unit1;

{$mode objfpc ...

Странно у людей копируется а у меня не копируется

resident
Я пробовал скопировать вот так
nachalniy_fail := UTF8ToSys(Edit2.Text);
konechniy_fail:=UTF8ToSys(Edit3.Text);
Если название файла на английском копирует без проблем.
Как только название файла на русском не копирует.

Увидеть бы весь код. И знать бы на чем Вы проводите эксперименты (версии Lazarus и ОС).
Почти весь мой основной код, в моем вопросе, это форма с одной кнопкой ничего сложного.
У меня Win 7 Enterprise(x86),
Лазарус версия #1.0
дата 2012-08-28
версия FPC 2.6.0
Ревизия SVN 384115

Добавлено спустя ...

В Edit2.Text и Edit1.Text откуда берется текст? И зачем смотреть путь (или что Вы там смотрите...) в ShowMessage?
по идее текст должен браться из лист бокса(найденные файлы в указанной папке), а пока я сам набираю вручную значения Edit2 и Edit1 для удобства процедуру добавления из лист бокса ...

Little_Roo Вы это имеете ввиду {$mode objfpc}{$H+} ? когда я нажимаю Ctrl+ ActiveX открывается модуль Unit ActiveX; на палитре компонентов нету ActiveX .
мне посоветовали что проблемма в процедуре FindFirst , если не ошибаюсь похожие процедуры используются в модуле windows,fileutils и sysutils, сам ...

VirtUX Все равно не копирует, я сделал как вы посоветовали, процедура ShowMessage(nachalniy_fail) так как и прежде показывает вопросики

Vadim в процедуре Button2Click да ? эта кнопка предназначена для подсчета найденных потенциальных вирусо-запускателей. проблема не решена