Der DP-Wettbewerb: Die Sieger stehen fest.

[Gandalfus]

Was ich allgeimein schade fand war, dass es mehr ein Designwettbewerb als ein Programmierwetbewerb war.

wenns ein Interessiert eine Lösung ohne XML Komponenten:

Delphi-Quellcode:

procedure update;
var
  AngeforderteSeite: String;
  ErstellerName: string;
  ProfilLink: string;
  Zeit: string;
  Nachricht: string;
  index,count: integer;
begin
  AngeforderteSeite := IdHTTP.Get('http://www.delphipraxis.net/rdf.php?shoutbox=1');
  while Pos('<shout>', AngeforderteSeite) > 0 do
  begin
    index := pos('<username>', AngeforderteSeite)+length('<username>');
    count := pos('</username>', AngeforderteSeite)-index;
    ErstellerName := copy(AngeforderteSeite,index,count);
    index := pos('<profile>', AngeforderteSeite)+length('<profile>');
    count := pos('</profile>', AngeforderteSeite)-index;
    ProfilLink := copy(AngeforderteSeite,index,count);
    index := pos('<timestamp>', AngeforderteSeite)+length('<timestamp>');
    count := pos('</timestamp>', AngeforderteSeite)-index;
    Zeit := copy(AngeforderteSeite,index,count);
    index := pos('<![CDATA[ ', AngeforderteSeite)+length('<![CDATA[ ');
    count := pos(']]> ', AngeforderteSeite)-index;
    Nachricht := copy(AngeforderteSeite,index,count);
    delete(AngeforderteSeite,1,index+count);

    //Mache was mit ErstellerName,ProfilLink,Zeit,Nachricht   
  end;
end;

[MaBuSE]

Zitat von Gandalfus:

Was ich allgeimein schade fand war, dass es mehr ein Designwettbewerb als ein Programmierwetbewerb war.

Was sieht der Benutzer, wenn er ein Programm startet?
Richtig: Das Design. (oder eine Fehlermeldung )

Man hätte auch den Source veröffentlichen können.
Aber die Diskussion hatten wir schon.
(bitte nicht noch mal darüber diskutieren)

Ich fand den Wettbewerb toll.
Eine kleine nicht zu schwere Aufgabe.
Die Möglichkeit sich mit etwas zu befassen, was man evtl. vorher noch nicht gemacht hat.
(Datei via http downloaden, XML, ...)
Und das Ergebnis ist auch noch nützlich. (Ich verwende meinen Viewer jeden Tag)

Zitat von Gandalfus:

wenns ein Interessiert eine Lösung ohne XML Komponenten:

Delphi-Quellcode:

procedure update;
[...]
end;

Nett. Gefällt mir. Einfach, gut strukturiert und ich gehe mal davon aus das es funktioniert.

[SirThornberry]

ich hab auch keine extra-xmlkomponente genommen sondern habs auch so geparst. Allerdings hab ichs ni so übersichtlich hinn bekommen. Aber so mit Pos (bzw. PosEx) hab ichs auch

[MaBuSE]

Zitat von Chakotay1308:

Aber nun gut, ich widme mich wieder meinen Programmen und freue mich auf Platz 10b gekommen zu sein.

Ich bin auch auf den 10. Platz gekommen

Dabei sein ist alles.

i am proud to be a DP contestant

Was mich gewundert hat:
> 6000 Mitglieder
viele Diskusionen im Vorfeld
aber nur 20 Beiträge

Ich fand keines der Programme schlecht !!!

[SirThornberry]

Eventuell nur 20 weil die Umsetzung der Smilies nicht ganze einfach war (außer vielleicht mit TWebbrowser). Bei den vielen leuten die hier in der dp sind dachte ich auch das mehr leute mitmachen und mit nem sieg hätte ich auch ni gerechnet da das Niveau der Leute im Forum ziemlich hoch ist. Hatte erst auch überlegt ob ich überhaupt mitmache....

[MaBuSE]

Zitat von SirThornberry:

Eventuell nur 20 weil die Umsetzung der Smilies nicht ganze einfach war (außer vielleicht mit TWebbrowser).

Es gab auch einige die die Smilies wegließen! (ich auch )
Das ist keine Schande. Es war ja nicht die Hauptaufgabe die Smilies zu implementieren.

Zitat von SirThornberry:

Bei den vielen leuten die hier in der dp sind dachte ich auch das mehr leute mitmachen und mit nem sieg hätte ich auch ni gerechnet da das Niveau der Leute im Forum ziemlich hoch ist. Hatte erst auch überlegt ob ich überhaupt mitmache....

Stell Dir vor es ist Krieg und keiner geht hin

[MaBuSE]

Ich habe nun den 1. Teil des Tutorials ins Forum gestellt.

http://www.delphipraxis.net/internal...ct.php?t=26313

Es folgen noch weitere Teile.

Viel Spaß

[vlees91]

Zitat von Gandalfus:

Was ich allgeimein schade fand war, dass es mehr ein Designwettbewerb als ein Programmierwetbewerb war.

wenns ein Interessiert eine Lösung ohne XML Komponenten:

Delphi-Quellcode:

[...]
    ProfilLink := copy(AngeforderteSeite,index,count);
    index := pos('<timestamp>', AngeforderteSeite)+length('<timestamp>');
    count := pos('</timestamp>', AngeforderteSeite)-index;
[...]

ich habs auch ohne xml gemacht, weil ich das hätte lernen müssen und dazu hatte ich keine lust und zeit.

außerdem bin ich erst 12 und hatte in letzter zeit sehr viele arbeiten (7. Klasse) (musste also viel üben)

trotzdem habe ich noch platz 10f (ich habe den letzten platz erwartet)

[MaBuSE]

Zitat von vlees91:

ich habs auch ohne xml gemacht, weil ich das hätte lernen müssen und dazu hatte ich keine lust und zeit.
außerdem bin ich erst 12 und hatte in letzter zeit sehr viele arbeiten (7. Klasse) (musste also viel üben)
trotzdem habe ich noch platz 10f (ich habe den letzten platz erwartet)

Warum entschuldigst/rechtfertigst Du dich?

btw: mit 12 habe ich noch kein Delphi gekonnt (leider nur Turbo Pascal 3)

[Sanchez]

Zitat von MaBuSE:

btw: mit 12 habe ich noch kein Delphi gekonnt (leider nur Turbo Pascal 3)

Du hattest ja auch keine Chance mit 12 bereits Delphi zu beherrschen. Dazu hättest du es erst erfinden müssen.

Mit 12 konnte ich gerade mal Win 3.11 installieren und Tintenpatronen auswechseln.