Eure besten Quellcode Kommentare...

[MaBuSE]

Zitat von Der schöne Günther:

Ich könnte höchstens kritisieren so etwas als Enumerationstypen aufzuführen.

Mich würde interessieren, ob diese auch verwendet werden, und wenn ja welche "Geräte" das sind

[himitsu]

Die Dunkelelfen sind doch dann auch von der Klasse Rasse der Elfen?

[Ralf Kaiser]

Zitat von MaBuSE:

Mich würde interessieren, ob diese auch verwendet werden, und wenn ja welche "Geräte" das sind

Also, "Dwarf" dürfte schon mal ein sehr kleines Gerät sein...

[himitsu]

http://docwiki.embarcadero.com/Libra...o.TDeviceClass
http://docwiki.appmethod.com/appmeth...o.TDeviceClass
http://docwiki.appmethod.com/appmeth...o.TDeviceClass (vielleicht isses so verständlicher)
Da hatte wohl einfach nur jemand ä bissl Langeweile?

Witzig, appmethod.com ist tot, aber docwiki.appmethod.com lebt noch.

http://blog.marcocantu.com/blog/2015...or-survey.html
Und die EProgrammerNotFound benutze ich auch ständig.

[MaBuSE]

Ich glaube wir werden offtopic, lasst uns nochmal lustige Kommentare posten

[Headbucket]

Gerade eben entdeckt:

Delphi-Quellcode:

try
  iniFile := TIniFile.Create(fileName);
  iniFile.WriteFloat(C_SEC_GENERAL, 'StartFrequency', StartFrequency);
  iniFile.WriteFloat(C_SEC_GENERAL, 'EndFrequency', EndFrequency);
  iniFile.WriteFloat(C_SEC_GENERAL, 'Interval', Interval);
  iniFile.WriteInteger(C_SEC_GENERAL, 'Interval_log', edtIncrementLog.ItemIndex);
  iniFile.WriteBool(C_SEC_GENERAL, 'Lin', rbLin.Checked);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxAcceleration', maxa);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxDisplacement', maxd);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxVelocity', maxv);
except
  //Kein Problem, sind die letzen Einstellungen eben weg
end;

So sollte ein try-except natürlich nicht genutzt werden Hier wäre ein try-finally natürlich die richtige Wahl. Das hätte mich aber nicht so zum schmunzeln gebracht.

Grüße
Headbucket

[dummzeuch]

Zitat von Headbucket:

Gerade eben entdeckt:

Delphi-Quellcode:

try
  iniFile := TIniFile.Create(fileName);
  iniFile.WriteFloat(C_SEC_GENERAL, 'StartFrequency', StartFrequency);
  iniFile.WriteFloat(C_SEC_GENERAL, 'EndFrequency', EndFrequency);
  iniFile.WriteFloat(C_SEC_GENERAL, 'Interval', Interval);
  iniFile.WriteInteger(C_SEC_GENERAL, 'Interval_log', edtIncrementLog.ItemIndex);
  iniFile.WriteBool(C_SEC_GENERAL, 'Lin', rbLin.Checked);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxAcceleration', maxa);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxDisplacement', maxd);
  iniFile.WriteFloat(C_SEC_GENERAL, 'MaxVelocity', maxv);
except
  //Kein Problem, sind die letzen Einstellungen eben weg
end;

So sollte ein try-except natürlich nicht genutzt werden Hier wäre ein try-finally natürlich die richtige Wahl. Das hätte mich aber nicht so zum schmunzeln gebracht.

Ich finde, diesen Code durchaus OK so, wenn die Einstellungen nicht so wichtig sind, sollte ein Fehler beim Speichern keine Fehlermeldung ausloesen.
In wiefern waere Try..finally da die richtige Wahl?

[Zacherl]

Zitat von dummzeuch:

In wiefern waere Try..finally da die richtige Wahl?

Als Resourcenschutzblock:

Delphi-Quellcode:

Ini := TIniFile.Create(...);
try
  Ini.WriteString();
  Ini.WriteInteger();
  // ...
finally
  Ini.Free;
end;

[Freyr77]

Ich hätte vor 2 Wochen wohl lieber schreiben sollen was vielleicht fehlen könnte..

Delphi-Quellcode:

MemoSQL.SelStart := length(SQL) - len;
  MemoSQL.SelLength := len;

  //hier fehlt vlt noch was ...

end;

[Isqzark]

Hayho~
Ich bin eigentlich zufällig auf den Thread gestoßen, dachte mir aber, ich kann ja auch was beitragen.
Aus der vorletzten C-Hausübung meinerseits - Aufgabe war Game of Life programmieren.

Delphi-Quellcode:

 printf("\n\n%39cWillkommen beim\n" 
//Ausgabe des kompletten Layouts, %c statt Blankspace
           "%40cGAME OF LIFE\n\n\n" 
//Tut mir ja wirklich leid, aber ich wollte nicht 80+ mal Blankspace drücken .-.
           "%25cBitte waehlen Sie eine Ausgangsposition:\n\n"
           "%9c|%5cX%4c|%4cX%4c|%11cX X%11c|%6cX X |%6cX X%3c|\n"
           "%9c|%7cX%2c|%4cX%4c|%9cX%5cX%9c|%4cX X%3c|%4cX X%5c|\n"
           "%9c|%3cX X X%2c|%4cX%4c|%11cX X%11c|%2cX X%5c|%6cX%5c|\n"
           "%12cLaufer%4cBlinker%7ckonstantes Muster%6cTreppe%4cr-Pentomino\n\n"
           "1:Laufer\n2:Blinker\n3:konstantes"
           "Muster\n4:Treppe\n5:r-Pentomino\n6:Zufallsmuster\n\n"
           ,lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,
            lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,
            lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,
            lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,lrz,
            lrz,lrz,lrz,lrz,lrz);
//Dafür gibts zur Matura ein Bier, versprochen!

Das war um knapp 3 Uhr morgens und ich hatte kein Bock, mich beim Space-Drücken zu verzählen


...und mag mir wer erklären/nen Link schicken, wos erklärt wird, wie die CODE-Funktion genau funzt? Danke. Bei mir wird da nämlich nur ein leerer Balken ohne irgendwas angezeigt.

Edit: Grade passiert

Delphi-Quellcode:

 if GetConsoleOutput(help, Output, Errors) then
  begin
    // ShowMessage('Ypa!');    //   Also ich komm zumindest hier rein
    // txt_Conversations_ID_List.Lines.Add(Errors.Count.ToString());  //TODO durch Output ersetzen
    // ^ sich an seine eigenen TODOs halten wär hilfreich.
    HierPassiertStuff();
  end;

Die TODO stammt von gestern. Hat ja sehr gut funktioniert. Und ich hab mich gewundert warum ich in der Konsole was angezeigt bekomme, aber angeblich nix zurückbekomme.