Kann mir jemand bei der erstellung eines Quelltextes helfen?

[Hansa]

Hi,

Zitat von MrSpock:

Hansa ist vielleicht etwas scharf im Ton, aber er hat natürlich Recht.

Wenn sowas in einem Tag fertig werden soll, dann hilft sonst nichts. Außerdem wage ich zu behaupten : Ohne mein Beispiel wäre hier nicht mehr allzu viel passiert.

@Bloodhound : Versuche deinen Lehrer zu überzeugen, daß Du ihm ein perfektes Programm zeigen wirst, aber erst am Montag. Das könnte noch hinhauen.

Dann zu den Fehlern :

Code:

fi := 'Wert für fi(die eingabe muss noch *(-1)genommen werden;

Da fehlt am Schluß das ' (einfaches Apostroph) vor dem ;
Am Anfang steht eins, alles was danach kommt, wird von Delphi als BESTANDTEIL des strings gewertet !! Auch das "end" in der nächsten Zeile, daher kommen die Fehler Das ist mir noch an drei anderen Stellen aufgefallen. Achte unbedingt darauf, daß ' nur im PAAR auftreten darf !! Alles zwischen dem führenden ' und dem abschließenden ' ist KEIN Code, sondern ein String.

Gruß
Hansa

[Hansa]

Das hier ist noch schlimmer :

Code:

procedure TForm1.ErgebnisChange(Sender: TObject);
begin
if checkbox1.checked then 
* btemp := b 'Wenn checkbox angehakt muss b mit pi multipliziert werden;
else 
* btemp := floattostr(3,14159 * strtofloat(b));  
DeinLabel.Caption := 'f(x) =' a + '*sin(btemp(x-' + (-fi) + '))';

guck Dir mal Dein a und b an. Die stehen einfach so im Raum rum!

Gruß
Hansa

[Bloodhound]

Hallo,
wo muss das a und b denn stehen??
Ich kann das Projekt einfach nicht kompilieren, kann das daran liegen das das Prog in Delphi6 geschrieben wurde und ich ne Trial von Delphi 7 habe??

[nailor]

Wenn sie neuer als 30 Tage ist, muss es (bei den verwendeten Funktionen) gehen.

[nailor]

Zitat von Hansa:

Das hier ist noch schlimmer :

Code:

procedure TForm1.ErgebnisChange(Sender: TObject);
begin
if checkbox1.checked then 
* btemp := b 'Wenn checkbox angehakt muss b mit pi multipliziert werden;
else 
* btemp := floattostr(3,14159 * strtofloat(b));  
DeinLabel.Caption := 'f(x) =' a + '*sin(btemp(x-' + (-fi) + '))';

guck Dir mal Dein a und b an. Die stehen einfach so im Raum rum!

Gruß
Hansa

Die Prozedur erinnert mich sehr an eine von mir, die ich unter http://www.delphipraxis.net/viewtopic.php?t=2411 gepostet habe. Da waren das string-Variablen und somit an der Stelle völlig OK. Wenn jetzt in dem Projekt die Variablen aber nicht deklariert sind, dann wird es auch nicht gehen...

[Bloodhound]

Jo das war auch dein Text ich dachte ich könnte das übernehmen!!
Wie kann ich selbiges Problem von dieser Basis ausgehend lösen??

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    a: TEdit;
    b: TEdit;
    fi: TEdit;
    Ergebnis: TEdit;
    Berechnen: TButton;
    CheckBox1: TCheckBox;
    procedure aChange(Sender: TObject);
    procedure bChange(Sender: TObject);
    procedure fiChange(Sender: TObject);
    procedure ErgebnisChange(Sender: TObject);
    procedure BerechnenClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.aChange(Sender: TObject);
begin
//
end;

procedure TForm1.bChange(Sender: TObject);
begin
//
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//
end;

procedure TForm1.fiChange(Sender: TObject);
begin
//
end;

procedure TForm1.BerechnenClick(Sender: TObject);
begin
//
end;

procedure TForm1.ErgebnisChange(Sender: TObject);
begin
//
end;

end.

[Bloodhound]

Der Lehrer hat mir nochmal bis Freitag Zeit gegeben, musste ihm aber versprechen noch nen Handbuch mitzuschreiben, aber das ist ja kein Problem

[Hansa]

Hi,

Nailor hat doch geschrieben a und b seien String- Variablen. Also mußt Du VAR a:string; und VAR b:string; irgendwo stehen haben. Bei Dir sind sie aber vom Typ TEdit. Willst Du den Wert verwenden, mußt Du a.Text, b.Text usw. verwenden !! Solange das mit den ' aber nicht klar ist, compiliert Dein Programm nie Noch einmal : Dann ist dein Quelltext Bestandteil eines strings, also von irgendwelchen Daten. Die werden von keiner Programmiersprache als Anweisung interpretiert

Gruß
Hansa

[Bloodhound]

So die String hab ich geändert, das mit den komentaren geht jetz denke ich auch in Ordnung

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    a: TEdit;
    b: TEdit;
    fi: TEdit;
    Ergebnis: TEdit;
    Berechnen: TButton;
    CheckBox1: TCheckBox;
    procedure aChange(Sender: TObject);
    procedure bChange(Sender: TObject);
    procedure fiChange(Sender: TObject);
    procedure ErgebnisChange(Sender: TObject);
    procedure BerechnenClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a,b,fi: text;

implementation

{$R *.dfm}

procedure TForm1.aChange(Sender: TObject);
begin
a := 'Wert für a';
end;

procedure TForm1.bChange(Sender: TObject);
begin
 b := floattostr(2 * 3.14159 // '2 * 3.14159geteilt durch eingabe ist b')
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//
end;

procedure TForm1.fiChange(Sender: TObject);
begin
fi := 'Wert für fi(die eingabe muss noch *(-1)genommen werden';
end;

procedure TForm1.BerechnenClick(Sender: TObject);
begin
//
end;

procedure TForm1.ErgebnisChange(Sender: TObject);
begin
if checkbox1.checked then
* btemp := b 'Wenn checkbox angehakt muss b mit pi multipliziert werden';
else
* btemp := floattostr(3,14159 * strtofloat(b));
DeinLabel.Caption := 'f(x) =' a + '*sin(btemp(x-' + (-fi) + '))';
end;

end.

[Daniel B]

Du willst jetzt aber nicht behauoten das sich das komplizieren lässt oder?!?!?!

Grüsse, Daniel