![]() |
Hi,
//nur für diese Zeile (* für von hier bis hier*) //also mehrere Zeilen {gleiches erreichst Du auch hiermit} Grüsse, Daniel :hi: |
Wenn ich jetzt den source kopiere und einfüge und anschließend auf run gehe bringt mir Delphi die Fehlermeldung : Expected END but invalid charakter charakter #160 found!!
Muss ich nochwas an der form1 oder am Object inspector ändern?? |
Hi,
Du darfst die Prozeduren nicht im type von Form1 deklarieren, sondern unter private oder public!!!
Delphi-Quellcode:
Grüsse, Daniel :hi:
type
TForm1 = class(TForm) a: TEdit; b: TEdit; fi: TEdit; Ergebnis: TEdit; Berechnen: TButton; CheckBox1: TCheckBox; procedure ErgebnisChange(Sender: TObject); procedure BerechnenClick(Sender: TObject); procedure CheckBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure aChange; procedure bChange; procedure fiChange; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.aChange; begin //Eingabe fließt als a in ergebnis ein end; procedure TForm1.bChange; begin //2*3,14159 geteilt durch Eingabe b fließt als B in Ergebnis ein end; procedure TForm1.CheckBox1Click(Sender: TObject); begin {wenn Checkbox markiert wird eingabe in b (b mal mit 3,14159 multipliziert)} end; procedure TForm1.fiChange; begin //Eingabe fließt als fi in Ergabnis ein end; procedure TForm1.BerechnenClick(Sender: TObject); begin //Bei klick des Buttons wird ergebnis angezeigt end; procedure TForm1.ErgebnisChange(Sender: TObject); begin (*Ergebnis grundform f(x)=Eingabe in feld a*sin(eingabe in feld b(x-eingabe in feld fi))*) {mit sin bzw. x muss nichts gerechnet werden es müssen nur die eingaben eingesetzt werden.} end; end. |
Aso danke.
Jetzt meint er aber das ein "Error in module Unit1:Declaration of class Tform1 is missing or incorrect. Er bietet mir sogar die Hilfe an aber die meint dazu nur Zitat:
MFG Bloodhound |
So, jetzt aber... :oops:
Ich hasse C&P. Grüsse, Daniel :hi: |
:( :( :( :( Jetzt ist es mir aber langsam peinlich!!!
Jetzt kommt schon wieder die scheiße mit dem Expected END :( :( Sorry Gruß Bloodhound |
Hi,
das muss Dir nicht peinlich sein :!: :!: :!: Aber, häng mal bitte die .pas mal an, oder füge einfach nochmal die ganze Unit ein. Aber bitte mit Delphi-Tags. Ich versteh einfach nicht woran das liegt. Bitte einfach nur Strg+a und dann Strg+c und hier dann Strg+v! Nichts am Source verändern. Grüsse, Daniel :hi: |
Delphi-Quellcode:
unit Unit1;
interface uses * math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, * Dialogs, StdCtrls; type * TForm1 = class(TForm) * * a: TEdit; * * b: TEdit; * * fi: TEdit; * * Ergebnis: TEdit; * * Berechnen: TButton; * * CheckBox1: TCheckBox; * * procedure ErgebnisChange(Sender: TObject); * * procedure BerechnenClick(Sender: TObject); * * procedure CheckBox1Click(Sender: TObject); * private * * { Private declarations } * public * * { Public declarations } * * procedure aChange; * * procedure bChange; * * procedure fiChange; * end; var * Form1: TForm1; implementation {$R *.dfm} procedure TForm1.aChange; begin * *//Eingabe fließt als a in ergebnis ein end; procedure TForm1.bChange; begin * *//2*3,14159 geteilt durch Eingabe b fließt als B in Ergebnis ein end; procedure TForm1.CheckBox1Click(Sender: TObject); begin * *{wenn Checkbox markiert wird eingabe in b* (b mal mit 3,14159 multipliziert)} end; procedure TForm1.fiChange; begin * *//Eingabe fließt als fi in Ergabnis ein end; procedure TForm1.BerechnenClick(Sender: TObject); begin * *//Bei klick des Buttons wird ergebnis angezeigt end; procedure TForm1.ErgebnisChange(Sender: TObject); begin * *(*Ergebnis grundform* f(x)=Eingabe in feld a*sin(eingabe in feld b(x-eingabe in feld fi))*) * *{mit sin bzw. x muss nichts gerechnet werden es müssen nur die eingaben eingesetzt werden.} end; end. |
Hi,
sorry, war mein Fehler. Die Prozeduren gehören schon in den type von Form1. Es sind ja Prozeduren von TForm1.Komponenten. Aufgrund der Namensgebung, hat es wie selbst erstellte Prozeduren ausgesehen. Hier, ich habe mal dieses Projekt erzeugt und es lässt sich natürlich fehlerfrei komplizieren.
Delphi-Quellcode:
Mach C&P es muss einfach damit laufen. Wenn nicht, dann lösche das Projekt, und erstelle es einfach neu, dann ist irgendwas anderes Kaputt.
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.fiChange(Sender: TObject); begin // end; procedure TForm1.ErgebnisChange(Sender: TObject); begin // end; procedure TForm1.BerechnenClick(Sender: TObject); begin // end; procedure TForm1.CheckBox1Click(Sender: TObject); begin // end; end. Wenn Du die Komponenten neu auf Formular gesetzt hast, mach ein klick drauf, dann im Object Inspector auf Eigenschaften und bei der Zeile OnChange, machst Du ein Doppelklick. Dadurch wird ja die Prozedur komplett angelegt. Du schriebst dann nur noch zischen dem begin und end ein // und dann kompilierst Du. Grüsse, Daniel :hi: <-- Burger fressend und mit einer Hand geschrieben... :roll: :shock: |
Liste der Anhänge anzeigen (Anzahl: 1)
Hier ist noch die .pas
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz