1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:

<?xml version="1.0" encoding="iso-8859-1" ?>
<rss version="2.0">
<channel>
<docs>http://backend.userland.com/rss092</docs>
<title>Delphi-Forum.de</title>
<link>http://www.delphi-forum.de//</link>
<description>Deine freundliche Delphi- und C#-Community!</description>
<managingEditor>info@entwickler-ecke.de</managingEditor>
<webMaster>info@entwickler-ecke.de</webMaster>
<lastBuildDate>Thu, 21 Aug 2008 19:06:21 GMT</lastBuildDate>

<item>
<title>RE: Hilfe!Mein Progg baut sich nicht mehr auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519592#519592</link>
<description>
========> Zitat ========>
j.klugmann wird entweder gar nichts oder mit 'natürlich ist das legal' antworten. :wink:
<================
Das ist richtig.Aber ich downloade keine Spiele illegal.Glaubt mir. :wink: 


@Jakob_Ullmann:
Das Programm baut sich inzwischen wieder richtig auf,nur die Farben sind noch weg.</description>
<pubDate>Thu, 21 Aug 2008 18:56:57 GMT</pubDate>
<author>j.klugmann</author>
</item>
<item>
<title>RE: Delphi-Start mit bestimmtem Formular</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519591#519591</link>
<description>Hi

Projekt/Optionen/Formulare
dann auf der rechten Seite Hauptformular (deine Startform) eintragen.
Gruß delphi10</description>
<pubDate>Thu, 21 Aug 2008 18:39:07 GMT</pubDate>
<author>delphi10</author>
</item>
<item>
<title>RE: Neuer Moderator</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519590#519590</link>
<description>Herzliche Glückwünsche und viel Spaß mit dem  neuen Posten!

Gibs jetzt eine Runde gratis? :beer:  :beer:  :beer: 

 :party: 
 :party: 
 :party: 
 :dance:  :dance:  :dance: 
 :puke:  :puke:  :puke:  :puke:  :puke:  :puke:</description>
<pubDate>Thu, 21 Aug 2008 18:36:54 GMT</pubDate>
<author>j.klugmann</author>
</item>
<item>
<title>RE: radiobutton1.checked<-automatisches uncheck von radiobutton2</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519589#519589</link>
<description>lol wie doof ich bin , es geht automatisch hast recht, ich dachte mann muss das coden ^^</description&glfe!Mein Progg baut sich nicht mehr auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519588#519588</link>
<description>Wegen der Frage bezüglich der Demos: Ich kenne die VCLSkin nicht, aber der eine Button hat sich ja noch 'aufgebaut' also denke ich das nicht.

EDIT: Die Icons sehen so aus, als ob du die irgendwo her geklaut hast oder dass sie als komprimierte JPEG vorliegen: Schau mal bei GlyFX.com vorbei, wenn du das Problem umgehen willst.</description>
<pubDate>Thu, 21 Aug 2008 18:35:22 GMT</pubDate>
<author>Jakob_Ullmann</author>
</item>
<item>
<title>RE: delphi [hilfe]von tedit auslesen und im code einfügen</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519587#519587</link>
<description>Das ist Unsicherheit.Muss man sich aber nicht für schähmen.Fast jeder
ist unsicher als Anfänger.
Ich nicht. :wink:  :wink:</description>
<pubDate>Thu, 21 Aug 2008 18:34:39 GMT</pubDate>
<author>j.klugmann</author>
</item>
<item>
<title>RE: Neuer Moderator</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519586#519586</link>
<description>Herzlichen Glückwunsch zum ModPosten =)

LG

GericasS</description>
<pubDate>Thu, 21 Aug 2008 18:33:50 GMT</pubDate>
<author>GericasS</author>
</item>
<item>
<title>RE: Hilfe!Mein Progg baut sich nicht mehr auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519585#519585</link>
<description>Ja!Allerdings spiele ich nicht ,sondern mein Bruder.</description>
<pubDate>Thu, 21 Aug 2008 18:33:01 GMT</pubDate>
<author>j.klugmann</author>
</item>
<item>
<title>RE: radiobutton1.checked<-automatisches uncheck von radiobutton2</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519584#519584</link>
<description>Theorer auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519583#519583</link>
<description>
========> hut dem Thema zu tun und j.klugmann wird entweder gar nichts oder mit 'natürlich ist das legal' antworten.  :wink:</description>
<pubDate>Thu, 21 Aug 2008 18:32:40 GMT</pubDate>
<author>Jakob_Ullmann</author>
</item>
<item>
<title>radiobutton1.checked<-automatisches uncheck von radiobutton2</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519582#519582</link>
<description>also, ich möchte gerne wenn man radiobutton1 anklickt, radiobutton 2 unchecked wird, und umgekehrt, mach ich da grundlegend was falsch oder liegt es nur an uncheck das dort ein anderes wort hin muss


========> Delphi-Quelltext ========>
bDate>
<author>ppl</author>
</item>
<item>
<title>RE: Hilfe!Mein Progg baut sich nicht mehr auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519581#519581</link>
<description>so viele spiele. ob das alles legal gekauft is?  :idea:</description>
<pubDate>Thu, 21 Aug 2008 18:29:18 GMT</pubDate>
<author>huuuuuh</author>
</item>
<item>
<title>Toolbar transparent machen</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519580#519580</link>
<description>Hallo, 
ich habe in meinem Programm eine Toolbar und möchte gerne dahinter ein TImage legen, was man aber durch die Toolbar durch sieht, also dass die Toolbar transparent ist. Ich habe schon die Transparent Eigenschaft auf True gestellt, aber es ist nur da transparent, wo keine Buttons sind, und die sind leider überall. Kann ich es irgendwie hinkriegen, dass auch die Buttons transparent sind?

Gruß,
Hendi</description>
<pubDate>Thu, 21 Aug 2008 18:28:42 GMT</pubDate>
<author>Hendi48</author>
</item>
<item>
<title>RE: Hilfe!Mein Progg baut sich nicht mehr auf</title>
<link>http://www.delphi-forum.de/viewtopic.php?p=519579#519579</link>
<description>Mal was Off Topic :
{$DEFINE OFF_TOPIC}
Wenn du Screenshots machst dann bitte so das man nur das erkennen kann um das es gerade geht. Es ist zwar höchst Interessant was für Sachen du auf deinem Rechner installiert hast, aber das geht eigentlich nur dich etwas an. Und nicht die ganze Welt (oder halt alle die ein Account im Forum haben)

Im übrigen : sehr Aufschlussreich ;-) 
{$UNDEF OFF_TOPIC}</description>
<pubDate>Thu, 21 Aug 2008 18:19:16 GMT</pubDate>
<author>Sinspin</author>
</item>
<item>
<title>RE: delphi [hilfe]von tedit auslesen und im code  nicht mehr richtig umsetzen aber ich denke das kommt mit der zeit,</description>
<pubDate>Thu, 21 Aug 2008 18:17:14 GMT</pubDate>
<author>ppl</author>
</item>
</channel>
</rss>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:

{*******************************************}
{                                           }
{             XML-Datenbindung              }
{                                           }
{         Generiert am: 21.08.2008 21:32:41 }
{       Generiert von: C:\temp\rdf_df.xml   }
{                                           }
{*******************************************}

unit rdf_df;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward-Deklarationen }

  IXMLRssType = interface;
  IXMLChannelType = interface;
  IXMLItemType = interface;
  IXMLItemTypeList = interface;

{ IXMLRssType }

  IXMLRssType = interface(IXMLNode)
    ['{4ABA7CD0-99ED-4D23-B1E6-3211707D4FF6}']
    { Eigenschaftszugriff }
    function Get_Version: WideString;
    function Get_Channel: IXMLChannelType;
    procedure Set_Version(Value: WideString);
    { Methoden & Eigenschaften }
    property Version: WideString read Get_Version write Set_Version;
    property Channel: IXMLChannelType read Get_Channel;
  end;

{ IXMLChannelType }

  IXMLChannelType = interface(IXMLNode)
    ['{7E5DE9BE-AC0A-481D-82D1-232D2B49BB30}']
    { Eigenschaftszugriff }
    function Get_Docs: WideString;
    function Get_Title: WideString;
    function Get_Link: WideString;
    function Get_Description: WideString;
    function Get_ManagingEditor: WideString;
    function Get_WebMaster: WideString;
    function Get_LastBuildDate: WideString;
    function Get_Item: IXMLItemTypeList;
    procedure Set_Docs(Value: WideString);
    procedure Set_Title(Value: WideString);
    procedure Set_Link(Value: WideString);
    procedure Set_Description(Value: WideString);
    procedure Set_ManagingEditor(Value: WideString);
    procedure Set_WebMaster(Value: WideString);
    procedure Set_LastBuildDate(Value: WideString);
    { Methoden & Eigenschaften }
    property Docs: WideString read Get_Docs write Set_Docs;
    property Title: WideString read Get_Title write Set_Title;
    property Link: WideString read Get_Link write Set_Link;
    property Description: WideString read Get_Description write Set_Description;
    property ManagingEditor: WideString read Get_ManagingEditor write Set_ManagingEditor;
    property WebMaster: WideString read Get_WebMaster write Set_WebMaster;
    property LastBuildDate: WideString read Get_LastBuildDate write Set_LastBuildDate;
    property Item: IXMLItemTypeList read Get_Item;
  end;

{ IXMLItemType }

  IXMLItemType = interface(IXMLNode)
    ['{AE3F3EF6-CB80-4A1B-BCC7-0FC086A7C55F}']
    { Eigenschaftszugriff }
    function Get_Title: WideString;
    function Get_Link: WideString;
    function Get_Description: WideString;
    function Get_PubDate: WideString;
    function Get_Author: WideString;
    procedure Set_Title(Value: WideString);
    procedure Set_Link(Value: WideString);
    procedure Set_Description(Value: WideString);
    procedure Set_PubDate(Value: WideString);
    procedure Set_Author(Value: WideString);
    { Methoden & Eigenschaften }
    property Title: WideString read Get_Title write Set_Title;
    property Link: WideString read Get_Link write Set_Link;
    property Description: WideString read Get_Description write Set_Description;
    property PubDate: WideString read Get_PubDate write Set_PubDate;
    property Author: WideString read Get_Author write Set_Author;
  end;

{ IXMLItemTypeList }

  IXMLItemTypeList = interface(IXMLNodeCollection)
    ['{95F07AB7-16B9-42D1-A92B-20CDF73F7435}']
    { Methoden & Eigenschaften }
    function Add: IXMLItemType;
    function Insert(const Index: Integer): IXMLItemType;
    function Get_Item(Index: Integer): IXMLItemType;
    property Items[Index: Integer]: IXMLItemType read Get_Item; default;
  end;

{ Forward-Deklarationen }

  TXMLRssType = class;
  TXMLChannelType = class;
  TXMLItemType = class;
  TXMLItemTypeList = class;

{ TXMLRssType }

  TXMLRssType = class(TXMLNode, IXMLRssType)
  protected
    { IXMLRssType }
    function Get_Version: WideString;
    function Get_Channel: IXMLChannelType;
    procedure Set_Version(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLChannelType }

  TXMLChannelType = class(TXMLNode, IXMLChannelType)
  private
    FItem: IXMLItemTypeList;
  protected
    { IXMLChannelType }
    function Get_Docs: WideString;
    function Get_Title: WideString;
    function Get_Link: WideString;
    function Get_Description: WideString;
    function Get_ManagingEditor: WideString;
    function Get_WebMaster: WideString;
    function Get_LastBuildDate: WideString;
    function Get_Item: IXMLItemTypeList;
    procedure Set_Docs(Value: WideString);
    procedure Set_Title(Value: WideString);
    procedure Set_Link(Value: WideString);
    procedure Set_Description(Value: WideString);
    procedure Set_ManagingEditor(Value: WideString);
    procedure Set_WebMaster(Value: WideString);
    procedure Set_LastBuildDate(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLItemType }

  TXMLItemType = class(TXMLNode, IXMLItemType)
  protected
    { IXMLItemType }
    function Get_Title: WideString;
    function Get_Link: WideString;
    function Get_Description: WideString;
    function Get_PubDate: WideString;
    function Get_Author: WideString;
    procedure Set_Title(Value: WideString);
    procedure Set_Link(Value: WideString);
    procedure Set_Description(Value: WideString);
    procedure Set_PubDate(Value: WideString);
    procedure Set_Author(Value: WideString);
  end;

{ TXMLItemTypeList }

  TXMLItemTypeList = class(TXMLNodeCollection, IXMLItemTypeList)
  protected
    { IXMLItemTypeList }
    function Add: IXMLItemType;
    function Insert(const Index: Integer): IXMLItemType;
    function Get_Item(Index: Integer): IXMLItemType;
  end;

{ Globale Funktionen }

function Getrss2(Doc: IXMLDocument): IXMLRssType;
function Loadrss2(const FileName: WideString): IXMLRssType;
function Newrss2: IXMLRssType;

const
  TargetNamespace = '';

implementation

{ Globale Funktionen }

function Getrss2(Doc: IXMLDocument): IXMLRssType;
begin
  Result := Doc.GetDocBinding('rss2', TXMLRssType, TargetNamespace) as IXMLRssType;
end;

function Loadrss2(const FileName: WideString): IXMLRssType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('rss2', TXMLRssType, TargetNamespace) as IXMLRssType;
end;

function Newrss2: IXMLRssType;
begin
  Result := NewXMLDocument.GetDocBinding('rss2', TXMLRssType, TargetNamespace) as IXMLRssType;
end;

{ TXMLRssType }

procedure TXMLRssType.AfterConstruction;
begin
  RegisterChildNode('channel', TXMLChannelType);
  inherited;
end;

function TXMLRssType.Get_Version: WideString;
begin
  Result := AttributeNodes['version'].Text;
end;

procedure TXMLRssType.Set_Version(Value: WideString);
begin
  SetAttribute('version', Value);
end;

function TXMLRssType.Get_Channel: IXMLChannelType;
begin
  Result := ChildNodes['channel'] as IXMLChannelType;
end;

{ TXMLChannelType }

procedure TXMLChannelType.AfterConstruction;
begin
  RegisterChildNode('item', TXMLItemType);
  FItem := CreateCollection(TXMLItemTypeList, IXMLItemType, 'item') as IXMLItemTypeList;
  inherited;
end;

function TXMLChannelType.Get_Docs: WideString;
begin
  Result := ChildNodes['docs'].Text;
end;

procedure TXMLChannelType.Set_Docs(Value: WideString);
begin
  ChildNodes['docs'].NodeValue := Value;
end;

function TXMLChannelType.Get_Title: WideString;
begin
  Result := ChildNodes['title'].Text;
end;

procedure TXMLChannelType.Set_Title(Value: WideString);
begin
  ChildNodes['title'].NodeValue := Value;
end;

function TXMLChannelType.Get_Link: WideString;
begin
  Result := ChildNodes['link'].Text;
end;

procedure TXMLChannelType.Set_Link(Value: WideString);
begin
  ChildNodes['link'].NodeValue := Value;
end;

function TXMLChannelType.Get_Description: WideString;
begin
  Result := ChildNodes['description'].Text;
end;

procedure TXMLChannelType.Set_Description(Value: WideString);
begin
  ChildNodes['description'].NodeValue := Value;
end;

function TXMLChannelType.Get_ManagingEditor: WideString;
begin
  Result := ChildNodes['managingEditor'].Text;
end;

procedure TXMLChannelType.Set_ManagingEditor(Value: WideString);
begin
  ChildNodes['managingEditor'].NodeValue := Value;
end;

function TXMLChannelType.Get_WebMaster: WideString;
begin
  Result := ChildNodes['webMaster'].Text;
end;

procedure TXMLChannelType.Set_WebMaster(Value: WideString);
begin
  ChildNodes['webMaster'].NodeValue := Value;
end;

function TXMLChannelType.Get_LastBuildDate: WideString;
begin
  Result := ChildNodes['lastBuildDate'].Text;
end;

procedure TXMLChannelType.Set_LastBuildDate(Value: WideString);
begin
  ChildNodes['lastBuildDate'].NodeValue := Value;
end;

function TXMLChannelType.Get_Item: IXMLItemTypeList;
begin
  Result := FItem;
end;

{ TXMLItemType }

function TXMLItemType.Get_Title: WideString;
begin
  Result := ChildNodes['title'].Text;
end;

procedure TXMLItemType.Set_Title(Value: WideString);
begin
  ChildNodes['title'].NodeValue := Value;
end;

function TXMLItemType.Get_Link: WideString;
begin
  Result := ChildNodes['link'].Text;
end;

procedure TXMLItemType.Set_Link(Value: WideString);
begin
  ChildNodes['link'].NodeValue := Value;
end;

function TXMLItemType.Get_Description: WideString;
begin
  Result := ChildNodes['description'].Text;
end;

procedure TXMLItemType.Set_Description(Value: WideString);
begin
  ChildNodes['description'].NodeValue := Value;
end;

function TXMLItemType.Get_PubDate: WideString;
begin
  Result := ChildNodes['pubDate'].Text;
end;

procedure TXMLItemType.Set_PubDate(Value: WideString);
begin
  ChildNodes['pubDate'].NodeValue := Value;
end;

function TXMLItemType.Get_Author: WideString;
begin
  Result := ChildNodes['author'].Text;
end;

procedure TXMLItemType.Set_Author(Value: WideString);
begin
  ChildNodes['author'].NodeValue := Value;
end;

{ TXMLItemTypeList }

function TXMLItemTypeList.Add: IXMLItemType;
begin
  Result := AddItem(-1) as IXMLItemType;
end;

function TXMLItemTypeList.Insert(const Index: Integer): IXMLItemType;
begin
  Result := AddItem(Index) as IXMLItemType;
end;
function TXMLItemTypeList.Get_Item(Index: Integer): IXMLItemType;
begin
  Result := List[Index] as IXMLItemType;
end;

end.