Code: Alles auswählen
if Length(m.Items) > 0 then begin
if m.Selected > 0 then
m.Selected := m.Selected MOD Length(m.Items)
else
m.Selected := Length(m.Items) + (m.Selected MOD Length(m.Items)) // mod in fpc returns negative for this, therefore "+" operator
// which is the same as
// m.Selected := Length(m.Items) - (abs(m.Selected) MOD Length(m.Items))
end
else
// length = 0 ?
Code: Alles auswählen
a:=b; //zuweisung
a+=b; //Addition
a-=b; //subtraktion
//gibt es auch sowas wie
a mod= b; //oder
a %= b; //(Java-like)
Project1.rar
Ich warne vor der Benutzung dieser C-artigen Operatoren. Das ist eigentlich nur unlesbarer Code und das nur um ein paar Zeichen zu sparen. Dann doch bitte gleich C nehmen.Komoluna hat geschrieben:gibt es in Fpc einen operator dafür wie z.b.
?Code: Alles auswählen
a:=b; //zuweisung a+=b; //Addition a-=b; //subtraktion //gibt es auch sowas wie a mod= b; //oder a %= b; //(Java-like)
oder benötigt man dafür eine generelle ":=" zuweisung?
Ich finde += und dergleichen schon sehr praktisch und nutze es auch durchgehend - werde aber bei Pascal bleiben, weil Pascal nicht nur := ausmachtm.fuchs hat geschrieben: Ich warne vor der Benutzung dieser C-artigen Operatoren. Das ist eigentlich nur unlesbarer Code und das nur um ein paar Zeichen zu sparen. Dann doch bitte gleich C nehmen.
Pascal ist eine Sprache die eine saubere Ausdrucksweise ermöglicht. Das sollte man auch nutzen.
Ich finds schön, weiter so!Leider lässt sich das Projekt immer noch nicht unter Lazarus 1.3 (unter 1.0.14 schon) kompilieren, siehe obigen Post.Komoluna hat geschrieben:Fragen, Meinungen oder Kritik sind willkommen, und werden gerne berücksichtigt...
Code: Alles auswählen
type
TLiveSelection = (lsMoney, lsChilds, lsTime);
TLive = Array[0..1] of TLiveSelection; Ist ja hauptsächlich Geschmackssache (z.B. TForm1.FormCreate).Komoluna hat geschrieben:Wo findest du den Quelltext zu lang?
Code: Alles auswählen
Player := TPlayerData.Create;
Player.RTW := False;
Player.Fighting := False;
Player.Battle := TBattle.Create;
Player.Battle.GameMenu := TGameMenu.Create;
Player.Battle.GameMenu.Selected := 0;
Player.Battle.YourPokemon := TPokemon.Create; Code: Alles auswählen
Player := TPlayerData.Create;Code: Alles auswählen
type
TLiveSelection = (lsMoney, lsChilds, lsTime);
TLive = Array[0..1] of TLiveSelection; Keine gute Idee. Es ist ein völlig anderes Thema.Komoluna hat geschrieben:(Da es sich um dasselbe Projekt handelt, fange ich keinen neuen Thread an, sondern benutze diesen weiterhin...)
EinKomoluna hat geschrieben:Ich suche nach einer Möglichkeit, mithilfe von TCanvas einen Text auszugeben.
Allerdings Zeichnet TCanvas.TextOut leider eine einfarbige Fläche hinter den Text, sodass man, wenn man ein Hintergrundbild hat, man hässliche Schnitte erhält...
gibt es irgendeine Möglichkeit, einfach nur Text, ohne "Grundierung" auszugeben?
[...]
Code: Alles auswählen
Canvas.Brush.Style := bsClear;
Verein
Links
Suche
