Deutsches Lazarusforum

kannst du mir vielleicht ein quellcode besipeil für einen screenshot mit anschließendem Drucken geben?

also ich hab ein formular wo man einige lösungen bekommt und auch 4 graphen gezeichnet werden. und ich will halt dass man das dann drucken kann

Hallo,
weiß einer wie mein sein vorhandenes Formular Drucken lassen kann?...ich habe es mit Form1.Print probiert aber es geht nicht obwohl ich die unit Printers ind die uses eingefügt habe und habe das Package Printer4Lazarus in die projekt requierements eingefügt...
Hat einer von euch eine Idee wie ...

ja du hattest Recht lag am Abbruchkriterium...vielen vielen Dank ich bin jetzt endlich mit dem Programm fertig!

Hi Leute ihr hattet Recht es lag an dem Algorithmus genauer gesagt an der Berechnung von Pg...Vielen Dank...nur wie das so ist taucht gleich das zweite Probelm auf...ich wollte den algorithmus nämlich nur so lange laufen lassen bis sich die Geraden von Pzu und Pab schneiden (also Pzu=Pab) setzen ...

erstmal danke für deine schnelle antwort, aber selbst wenn ich nur einen der werte z.B. Pzu zeigen lassen will kommt ein floating point overflow

hi ich hab jetzt das projekt als zip. datei angehängt...
ich suche ja nach irgendwelchen fehlern, aber ich bin an einem punkt wo ich den wald vor bäumen nicht mehr sehe.
achja und einige Variablen hab ich noch nicht benutzt da das programm noch nicht komplett ist

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, TAGraph, TASeries, TALegendPanel, TASources,
TATools, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
ButtonSimuStart: TButton;
ButtonBeenden: TButton ...

Tu-Dortmund

Ja klar:

For t:=1 To 2400 do
begin
{Formeln zur Abschließenden Berechnung}
TK := TC+273.15;
Ter := (Pg*(t*0.001))/(md*cd);
Temp := TK+Ter;
RT := RSpeD*(1+alphaD*(Temp-293.15))*(l/A);
U := Ug;
I := U/RT;
Pzu := (U*U)/RT;
Pab := SBK*Ob*Temp*Temp*Temp*Temp;
Pg := Pzu-Pab;
PgSeries.Addxy ...

Hallo,
ich arbeite gerade an einem Projekt wo auf der X-Achse die Zeit in sekunden stehen soll. Dabei habe ich t als Variable für die sekunden genommen und inkrementiert also mit einer FOR-Scheife von 1 bis 10000 zählen lassen. Aber ich kriege die Fehlermeldung "floating point overflow" auch die ...

Hallo Leute,
Vielen dank für eure Hilfe
habe es jetzt mit TChart gemacht und es klappt auch, aber irgendwie ist die X-Achse mit 2400 begrenzt....wenn ich größere werte Brauche dann bekomme ich die Fehlermeldung "overflow" hat jemand eine idee was man da tun kann?

ja hatte sysutils nicht eingebunden jetzt klappts...vielen dank an alle

hmm lazarus akzeptiert formatfloat oder die anderen irgendwie nicht als befehl

Hallo,
ich arbeite Gerade an der "verschönerung" eines Projektes und will nun die Ausgegebenen Werte vom Gleitkommatyp "single" nach der 2. oder 3.Stelle nach dem Komma Abschneiden oder aufrunden.
Also ich möchte Werte haben die dann so ausgegebn werden "125.59" oder "0.89".
habs schon mit Round ...