FreePascal.ru

procedure TForm1.Button1Click(Sender: TObject);
begin
Beep;
end;

А зачем тебе сервисы MS?

@Jargar точно, большое спасибо!

Всем привет,

что-то я сегодня конкретно торможу, толи мало поспал, то ли въехать не могу. Вот тут короче пример как создать XML файл:


Doc := TXMLDocument.Create;

RootNode := Doc.CreateElement('register');
Doc.Appendchild(RootNode);
// Create a parent node
RootNode&#58 ...

Ок, спасибо, разобрался!

Снег Север писал(а):Проверить, что PassNode не nil.

Да, верно! Но почему он nil? Значит ничего не находит, но почему ничего не находит, ведь явно тэг есть.

Всем привет,

у меня вот такое содержание XML-файла:

<?xml version="1&#46;0" encoding="ISO-8859-1"?>
<KLM445>
- <Header>
<Sendercode>123456</Sendercode>
<Sendername>Моя фмрма</Sendername>
<Externe-Referenz>20201022</Externe-Referenz>
- <Kopfdaten>
<Belegart>Rechnung</Belegart>
<Kopfadressen ...

Всем привет,
прога моя личная, писал на Delphi XE3. В SQLite пишу с помощью библиотеки "SQLiteTable3.pas". А так "скалогрыз" вроде все четко вычислил.
Пробовал сам перенести на Лазаруз, но он страшно ругаться начал. Может там что то и банальное, но так как я хобби-программист, было не плохо если бы ...

Вот тут можно ознакомиться с прогой, по крайне мере для начала -> https://yadi.sk/d/ID5j79gk_Qvckw

Всем привет,
есть у кого желание перенести один не большой проект из Delphi в Lazarus, за вознаграждение разумеется?
Спасибо!

Книгу бы отформатировать, а то все сливается как то. Возьмите какую-нибудь книгу, до посмотрите как там все сделано. Да и краска нынче не дорогая, на компе тем более.

Блииин, вот это лохотрон... не то событие взял. В даблклик нужно было это все, не увидел просто.


procedure TMainForm&#46;ShellListView1DblClick(Sender&#58; TObject);
begin
OpenDocument(ShellListView1&#46;GetPathFromItem(ShellListView1&#46;Selected));
end;


Теперь все работает, Assigned тоже ...

Всем привет,
что-то не могу понять следубщую вещь:
Задаю

procedure TMainForm&#46;Button1Click(Sender&#58; TObject);
begin
ShowMessage(ShellListView1&#46;GetPathFromItem(ShellListView1&#46;Selected));
end;


и получаю все как следеует, имя файли и соответвенно абсолютную дерикторию, а вот задаю ...

Огромное спасибо!

О, извиняюсь, это ShellListView а не ShellTreeView.