FreePascal.ru

Добрый день!

Пожалуйста, напишите простой пример.
К примеру, моей программе надо указать имя файла куда сохранить результат действия и значения пары-тройки переменных
util.exe -f c:\result.txt -param1 22 -param2 33 -param3 234
Как организовать разбор подобной командной строки ...

Спасибо!
Всё таки решил попробовать Indy

Так отправляю:
procedure TForm1.btnSendClick(Sender: TObject);
begin
if Trim(edMsg&#46;Text) <> '' then
begin
UDPClient&#46;Active &#58;= False;
try
UDPClient&#46;Host &#58;= edHost&#46;Text;
UDPClient&#46;Port &#58;= StrToInt(edPort&#46 ...

Добрый вечер!
Подскажите пожалуйста самый простой способ передать информацию (строку текста, к примеру) между двумя программами в сети без использования сторонних компонентов.
Какие есть в Lazarus/Free Pascal средства для этого?
Или ,если это проще сделать с использованием сторонних средств ...

Спасибо!
Количество мониторов я теперь узнаю =)
А вот как переместить форму на второй монитор, если он есть, что-то никак не пойму =(

Добрый день!
Как можно определить средствами Lazarus\Free Pascal кол-во мониторов в системе?
И как, к примеру, переместить окно моей программы на нужный мне монитор?

И так все самое новое =)
На 14-м пункте сделал просто make, и всё заработало

Compiling /home/frost/lazfpc/laz/components/jcf2/Settings/SetPreProcessor&#46;pas
Compiling /home/frost/lazfpc/laz/components/jcf2/Settings/SetTransform&#46;pas
Compiling /home/frost/lazfpc/laz/components/jcf2/Settings/SetAsm&#46;pas
SetAsm&#46;pas(73,3) Hint&#58; Local const "REG_INDENT_LEVEL" is ...

Здравствуйте уважаемые программисты!
Есть ли в Lazarus или Free Pascal функция обратная функции ExtractStrings? Т.е. на входе получает StringList, к примеру, символ разделитель, а на выходе выдает одну строку.

Вот мой вариант запаковки ODT:
procedure TfrmMain&#46;btnZipClick(Sender&#58; TObject);
var
Zip&#58; TZipper;
FilesForZip&#58; TZipFileEntries;
FileList&#58; TStringList;
i&#58; integer;
begin
Application&#46;ProcessMessages;
try
Screen&#46;Cursor &#58;= crHourGlass;
//Из полного списка ...

Подскажите пожалуйста, как запаковать TZipper-ом какую-либо директорию вместе со всем ее содержимым? FindAllFiles из FileUtils возвращает только файлы, а вот пустые подпапки, которых в распакованном odt-файле много, не выдает.

Автор Synaps-а уже хорошо потрудился в этом направлении
http://www.ararat.cz/doku.php/en:sqlitewrap

Ubuntu 9.10, Lazarus 0.9.28.2, FPC 2.2.4
Windows XP SP3, Lazarus + fpc 2.3.1 (скачивал с http://www.hu.freepascal.org/lazarus/ в последних числах ноября)

пробовал варианты как выше написали kosteek и EmeraldMan. ничего не помогает

Здравствуйте!
У меня при установке Indy выдаёт что не найден IdAboutVCL.pas, это в Linux,
а в Windows - IdStreamVCL.pas, хотя файлы на месте, пути вроде все указываю как выше рекомендуют.

Добрый день!

У меня такая проблема:
есть процедура procedure TfrmMain&#46;SaveParams;
var
Ini&#58; TRegIniFile;
begin
Ini &#58;= TRegIniFile&#46;Create('');
try
try
with Ini do
begin
RootKey &#58;= HKEY_CURRENT_USER;
OpenKey('Software\ifrost\' + ExtractFileName(Application&#46;ExeName ...