Hallo, ich bastel mir gerade einen Rechner, mit dem man bei Krediten Laufzeit, Startkapital,Endkapital und Prozentsatz errechnen kann. Das Programm errechnet immer die Fehlende der 4 Variablen. Also wenn nur Laufzeit, Startkapital und Zinssatz gegeben sind errechnet es automatisch das Endkapital und gibt es in einem Panel als Text an.
Für den ersten Fall, nähmlich das das Anfangskapital nicht gegeben ist, habe ich meinen Quelltext schon fertig, allerdings wird mir da n Fehler angezeigt. Vielleicht findet den ja einer von euch.
Mein Quelltext:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
EK0: TEdit;
EKn: TEdit;
En: TEdit;
EP: TEdit;
BStart: TButton;
PErgebnis: TPanel;
procedure BStartClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BStartClick(Sender: TObject);
var k0,kn,q,p,n :real;
begin
k0:= StrToFloat (EK0.Text);
kn:= StrToFloat (EKn.Text);
n:= StrToFloat (En.Text);
p:= StrToFloat (EP.Text);
q:= 1+ (p*0.01);
if (EK0.Text='') then
begin
k0:= kn*(q^n);
PErgebnis.Text:= FloatToStr (k0);
end;
end;
end. |
Fehler:
Zeile 43 (k0:= kn*(q^n)
: Pointer type required
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
Okay, jetzt weiß ich schonmal das ich die "power" funktion brauche. Allerdings finde ich im Internet nich wie ich das richtig schreiben muss. Kann mir die betreffende Zeile einmal richtig umschreiben?
Moderiert von Narses: Titel geändert.
