ah… Mein Blog lebt noch

Irgendwie gibts zur Zeit nichts was mich zum Schreiben bewegt. Alles prima, keine Beschwerden. Allerdings hab ich auch grad keinerlei Zeit mich mit Rails zu beschäftigen um da noch ein paar Tutorials zu schreiben.

Eins vielleicht doch: Assassins Creed macht ordentlich Laune - schon länger kein Spiel gehabt das mich wirklich lange gefesselt hat. Auch wenn ich etwas tiefer in die Tasche greifen musste für ne XBox 360. Meine gebrauche XBox 1 und ein paar Spiele in Zahlung gegeben und ne gebrauchte Premium für ein paar Steine mitgenommen.  Wert war mir das allemal. Ein PC der das verkraftet, hätte mich minimum das 3-fache gekostet. Und das tolle: Es läuft einfach, ohne Installations-Gezicke, ohne Treiber-Beschwerden, ohne Kopierschutz-Blödsinn.

Langsam lohnt es sich wirklich zum Spielen auf Konsolen umzusteigen:

• einige Spiele werden teilweise Exklusiv für die Boxen auf den Markt gebracht, PC Versionen im seltensten Fall Jahre später nachgereicht ( Halo )
• die Spiele funktionieren IMMER (und streiken nicht bei auch nur teilweise exotischen PC- Konfigurationen)
• Das “Scheibe-Einlegen-und-los”-Prinzip hab ich am PC eigentlich noch nie erlebt.
• Man hat zumindest 2-3 Jahre was davon - PC Komponenten kann man nach nem Jahr schon wieder nachrüsten
• Die Entwickler haben nen Anreiz möglichst jede Ressource des Systems auszunutzen, müssen sich nicht um Betriebssystem-Eigenheiten kümmern, Testen auf nur einem System - also ich fände das angenehm.

Ob nun Playstation, XBOX oder Wii - ist fast egal. Für die PS und XBOX wird eh fast jedes Spiel parallel veröffentlicht.

Naja der Senf von einem ehemaligen Konsolen-Verweigerer

Nachdem ich keine Funktion gefunden hab die mir die Arbeit abnimmt, hab ich se eben selber geschrieben.

Tut folgendes: HTML Typen wie #323; (irgendein komisches Polnisches l mit strich ) in nen WideString umwandeln:

function Html2WideString(s: string): widestring;
var
  i: integer;
  f: boolean;
  tmp: string;
begin
  i := Pos('#', s);
  if i = 0 then
  begin
    Result := s;
    exit;
  end;
  f := false;
  Result := '';
  tmp := '';
  for i := 1 to Length(s) do
  begin
    if (s[i] = '&') then Continue;
    if (s[i] = '#') then
    begin
      f := true;
      Continue;
    end;
    if f and (s[i] = ';') then
    begin
      f := false;
      Result := Result + WideChar(StrToInt(tmp));
      tmp := '';
      Continue;
    end;
    if f then
    begin
      tmp := tmp + s[i];
      Continue;
    end;
    Result := Result + s[i];
  end;
end;

lässt sich bestimmt noch optimieren, für mich reichts erstmal.

Update
Jetzt auch in Funktionierend