Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
27. Sep 2010
Bei komplexen Programmen mag das Rätselraten stimmen. Doch bei einem so einfachen Code sollte das Verstehen kein allzu großes Problem darstellen. Aber ich habe jetzt die Konstante "Rand" mit Wert 10 eingeführt :thumb:
Noch eine Frage nebenbei: Ich habe das Ganze als Unterart von TPanel erstellt. Natürlich habe ich einen eigenen constructor geschrieben. Doch wenn ich
self.caption:=''
setze,...
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
26. Sep 2010
Ich kenne meine Codes eigentlich alle ziemlich gut und sehe mich in der Lage, meine Codes auch nach zwei Jahren noch zu verstehen. Außerdem handelt es sich hierbei um eine Komponente, die nach der Entwicklung eh meistens nicht mehr geändert wird. Aber ich änder das trotzdem gerne, wenn du es besser findest ;)
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
26. Sep 2010
Also ich habe jetzt den Fehler gefunden... Es liegt an Polybezier. Anscheinend gibt es da eine Obergrenze. Polyline klappt mit 300 Werten auch. Ich prüfe mal auf höhere Werte...
Polyline klappt mit 10000 Werten auch noch. Dann werde ich jetzt halt mehrere Polylines aneinanderreihen.
Viele Grüße!
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
26. Sep 2010
Wie gesagt, das ist noch ein Provisorium. Aber die Achsen werden immer ordnungsgemäß gezeichnet. Auch bei Arraylänge über 199.
Außerdem ist es doch egal ob ich 10 oder Randabstand hinschreibe. Nur wenn der Abstand geändert werden soll, muss ich halt 4 Zeilen ändern statt einer.
Daran kanns aber nicht liegen.
Viele Grüße!
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
26. Sep 2010
Es kommt weder Fehlermeldung noch Absturz. Der Graph wird einfach nicht mehr gezeichnet. Nur die Achsen sind noch sichtbar...
Hier der Aufruf, um zu malen
var i:integer;
begin
randomize;
for i:=0 to 198 do
begin
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
26. Sep 2010
Hallo, ich habe mir eine eigene Komponente erstellt: Einen Graphen. Man kann zwischen runder Kurve und Punktgenauen Linien unterscheiden. Als Quelle für die Punkte gibt es einen Klasse:
TValues=array of real;
private
XV:TValues;
YV:TValues;