<?xml version="1.0" encoding="UTF-8"?><!-- generator="WordPress/2.9.1" -->
<rss version="0.92">
<channel>
	<title>Erin&#039;s blog</title>
	<link>http://erin.su</link>
	<description>Очередной блог на WordPress</description>
	<lastBuildDate>Wed, 27 Jan 2010 09:52:28 +0000</lastBuildDate>
	<docs>http://backend.userland.com/rss092</docs>
	<language>en</language>
	
	<item>
		<title>Ну надо же было что-то написать&#8230;..</title>
		<description><![CDATA[Вот кусок моего исходного кода:
int_wall_id := qTree.FieldByName('Table_ID_Link').AsInteger;
Wall_Dict_Name := InputBox('Введите название стены','Название','Шаблон стены');
Wall_ID_Gen.Open;
new_wall_id := Wall_ID_Gen.FieldByName('Wall_ID').AsInteger;
Wall_ID_Gen.Close;
qWallInsert.Open;
qWallInsert.Insert;
qWallInsert.FieldByName('Wall_ID').AsInteger := new_wall_id;
qWallInsert.FieldByName('WALL_NAME').AsString := Wall_Dict_Name;
qWallInsert.Post;
qWallInsert.Close;
spWallCopy.ParamByName('WALL_ID_SOURCE_IN').AsInteger := int_wall_id;
spWallCopy.ParamByName('WALL_ID_TARGET_IN').AsInteger := new_wall_id;
spWallCopy.ExecProc;
ShowMessage('Данные о стене '+qTree.FieldByName('TITILE').AsString+' сохранены');
Wall_Dict_Modal := TfmDictWall.Create(Application);
Wall_Dict_Modal.Is_Only_Show :=True;
Wall_Dict_Modal.qWall.Locate('Wall_ID',new_wall_id,[]);
Wall_Dict_Modal.ShowModal;
Пусть все    знают !!!!!!
]]></description>
		<link>http://erin.su/8/</link>
			</item>
</channel>
</rss>
