Deutsches Lazarusforum

Danke, funktioniert 1a

Also als Temporären Workaround habe ich das hier, das schaltet via Togglebox entweder Hints oder Zooming an und aus.

Aber schön ist was anderes:


Procedure TForm2.ToggleBox1Click(Sender: TObject);
Begin
If ToggleBox1.Checked Then Begin
Chart1.Toolset := ChartToolset1;
End
Else Begin
Chart1 ...

Hallo Zusammen,

Ich nutze eine Tachart mit 6 TLineseries, sonst ist alles quasi default.
Nun wollte ich, dass wenn der User mit der Maus über einen Datenpunkt Hovert er den Hint angezeigt bekommt, den ich beim einfügen mit übergebe, also habe ich es gemacht wie hier beschrieben:

https://forum ...

Wie sich heraustellt ist das Tstringgrid 1a, was aber die gesamte Performance kaputt macht ist
Macht man das nur wenn es absolut notwendig ist, dann ist alles so schnell wie es sein soll

Servus zusammen, sry für den komischen Titel, ..

Ich habe hier ein TStringgrid in dass ich LogDaten lade. Mein Problem ist nun, dass alle paar hunder ms ein neuer Datensatz kommt, wenn ich dann immer in etwa folgendes mache:


// Pseudocode
index := StringGrid1.RowCount;
StringGrid1.RowCount ...

So, hab es nun geschafft das Treepruning mit rein zu bekommen:


======================
= Running benchmarks =
======================
Benchmarking imperative memoized C++ ...: 0.029000
Benchmarking imperative C++ ...: 0.045000
Benchmarking imperative C ...: 0.045000
Benchmarking imperative ...

*g*,
@warf, Ich stimme dir zu und mir ist das sehr wohl bewusst, ich versuche solche und andere Themen ja auch in meinem Research Repository zu betrachten.

Aber wenn ich so ein Projekt sehe, wo man alle möglichen verrückten Sprachen einbaut und fleißig vergleicht und dann FPC so einfach mit auf die ...

Sodale, mal ein klein wenig wibe coding betrieben..
Der code ist nicht mehr wieder zu erkennen, aber:


Benchmarking imperative memoized C++ ...: 0.029000
Benchmarking imperative C++ ...: 0.045000
Benchmarking imperative C ...: 0.045000
Benchmarking imperative FreePascal ...: 0.065000


Differenz ...

*g*,
ich war noch damit beschäftigt ein Testsystem mit auf zu setzen, dass mir nun hilft ;)

Ifthen ist nu raus und deine Änderung:


Function ScoreBoard(Const scores: TBoard): Integer;
Var
counters: Array[0..8] Of Integer;
x, y, score, idx: Integer;
scoresYPointer: PInteger;
Begin
FillChar ...

Weil es nicht mehr wirklich zu diesem Thread gehört hab ich mal einen Follow up gestartet siehe hier

Servus zusammen,
getriggert durch diesen Thread im Forum. Habe ich mir mal den Spass gemacht und die "Vorarbeiten" geleistet.

Sprich, das Original Projekt geclont, und die playSimpel, sowie die play variante nach python3 portieren lassen (Chat GPT sei dank), des weiteren habe ich mal die C Version ...

Komisch,
wenn man das Spiel gewinnt, dann passiert nichts ...

Laut Source sollte da eine Meldung kommen.

Auch musste ich Ausdrücke wie
score -= scores[y][x - 3];
zu
score := score - scores[y][x - 3];
umschreiben, du hast da wohl eine Einstellung Aktive die nicht by Default aktiv ist ..

by ...

struct test_struct_t {
unsigned Field1Bit: 1;
unsigned Field2Bit: 2;
unsigned Field6Bit: 6;
}
Die geht, sogar ohne Kopfrechnen.
type
TTestRec = bitpacked record
Field1Bit: 1 shl 1 - 1;
Field2Bit: 3 shl 3 -1;
Field6Bit:6 shl 6 - 1;
end;



Sry, aber was du da gepostet hast ist nicht ...

Ah du meinst weil die Kommentare von Präprozessor sachen abhängen, ja die Auf zu lösen war das was mein h2pas auch so kompliziert gemacht hat, wenns nur um "löschen" von Kommentaren geht, reicht ggf schon meine uncommenter.pas

Bei h2pas ensteht eine gewisse Hassliebe. Man muss die Maken des Tools kennen, das ist es recht praktisch. Ich wollte mal reingucken, ob man es verbessern könnte, aber der Code ist total unübersichtlich. Ich hätte nie gedacht, das die so komplex sei.


Ich habe auch eine eigene h2pas variante ...