AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Fehler im Delphi-Code ganz am Ende beim Kompilieren
Thema durchsuchen
Ansicht
Themen-Optionen

Fehler im Delphi-Code ganz am Ende beim Kompilieren

Ein Thema von lusthansa · begonnen am 7. Mär 2013 · letzter Beitrag vom 7. Mär 2013
Antwort Antwort
Seite 2 von 4     12 34      
ASM

Registriert seit: 16. Aug 2004
165 Beiträge
 
Delphi 7 Enterprise
 
#11

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:24
Was im geposteten Quelltext außer dem finalen "end." in der Unit noch fehlt, ist die Zuweisung der EditKeyUp-Prozedur an die jeweiligen OnKeyUp-Events der drei Edit-Felder:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.OnKeyUp := EditKeyUp;
  Edit2.OnKeyUp := EditKeyUp;
  Edit3.OnKeyUp := EditKeyUp;
  // außerdem wäre sehr empfehlenswert:
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end;
Ohne diese Zuweisungen kann das ganze nicht wie beabsichtigt funktionieren.
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#12

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:28
...
// außerdem wäre sehr empfehlenswert:
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
end;[/DELPHI]

Ohne diese Zuweisungen kann das ganze nicht wie beabsichtigt funktionieren.
Läßt sich doch einfach im Objektinspektor "einnullen".
  Mit Zitat antworten Zitat
lusthansa

Registriert seit: 7. Mär 2013
9 Beiträge
 
#13

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:33
Hallo, ich habe mal folgendes getippt:

Delphi-Quellcode:
unit Beispiel2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    procedure EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var kurs, euro, dollar: Single; // Variablen, mit denen gerechnet wird
s: string; code: Integer; // Hilfsvariablen
begin
// Werte aus Editierfeldern in Variablen einlesen und prüfen:
Val(Form1.Edit1.Text, kurs, code); // Kurs einlesen
if code <> 0 then Exit;
Val(Form1.Edit2.Text, euro, code); // Euro einlesen
if code <> 0 then Exit;
Val(Form1.Edit3.Text, dollar, code); // Dollar einlesen
if code <> 0 then Exit;
// Berechnungen mit den Variablen durchführen:
if Sender = Edit3 then euro := dollar * kurs // dollar wurde eingegeben
else dollar := euro / kurs; // euro oder kurs wurden eingegeben
// Werte der Variablen in den Editierfeldern anzeigen:
if Sender = Edit3 then // dollar geändert
begin
Str(euro:8:2,s); Form1.Edit2.Text := s; // Anzeige von euro (8 Stellen,
// davon 2 Nachkomma)
end else // kurs oder euro geändert
begin
Str(dollar:8:2,s); Form1.Edit3.Text := s; // sonst Anzeige von dollar
end.
end.
Also mit end. end.

Da kommt der Compilerfehler:

Abhängigkeiten des Projekts werden überprüft...
Compilieren von Project1.dproj (Debug, Win32)
dcc Befehlszeile für "Project1.dpr"
c:\program files (x86)\embarcadero\rad studio\10.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe
-AGenerics.Collections=System.Generics.Collections; Generics.Defaults=System.Generics.Defaults;WinType s=Windows;WinProcs=Windows;DbiTypes=BDE;
DbiProcs=BDE;DbiErrs=BDE -DDEBUG -E.\Win32\Debug -I"c:\program files (x86)\embarcadero\rad studio\10.0\lib\Win32\debug\DE";"c:\program files
(x86)\embarcadero\rad studio\10.0\lib\Win32\debug";"c:\program files (x86)\embarcadero\rad studio\10.0\lib\Win32\release\DE";"c:\program files
(x86)\embarcadero\rad studio\10.0\lib\Win32\release";"\\psf\Home\Documen ts\RAD Studio\10.0\Imports";"c:\program files (x86)\embarcadero\rad
studio\10.0\Imports";"C:\Users\Public\Documents\RA D Studio\10.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\10.0\include"
-LE"C:\Users\Public\Documents\RAD Studio\10.0\Bpl" -LN"C:\Users\Public\Documents\RAD Studio\10.0\Dcp" -N0.\Win32\Debug -NSWinapi;System.Win;Data.Win;
Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;X ml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touc h;Vcl.Samples;Vcl.Shell; -O"c:\program files
(x86)\embarcadero\rad studio\10.0\lib\Win32\release";"\\psf\Home\Documen ts\RAD Studio\10.0\Imports";"c:\program files (x86)\embarcadero\rad
studio\10.0\Imports";"C:\Users\Public\Documents\RA D Studio\10.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\10.0\include" -R"c:\program files
(x86)\embarcadero\rad studio\10.0\lib\Win32\release\DE";"c:\program files (x86)\embarcadero\rad studio\10.0\lib\Win32\release";
"\\psf\Home\Documents\RAD Studio\10.0\Imports";"c:\program files (x86)\embarcadero\rad studio\10.0\Imports";"C:\Users\Public\Documents\RA D
Studio\10.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\10.0\include" -U"c:\program files (x86)\embarcadero\rad
studio\10.0\lib\Win32\debug\DE";"c:\program files (x86)\embarcadero\rad studio\10.0\lib\Win32\debug";"c:\program files (x86)\embarcadero\rad
studio\10.0\lib\Win32\release\DE";"c:\program files (x86)\embarcadero\rad studio\10.0\lib\Win32\release";"\\psf\Home\Documen ts\RAD
Studio\10.0\Imports";"c:\program files (x86)\embarcadero\rad studio\10.0\Imports";"C:\Users\Public\Documents\RA D Studio\10.0\Dcp";"c:\program files
(x86)\embarcadero\rad studio\10.0\include" -V -VN -NB"C:\Users\Public\Documents\RAD Studio\10.0\Dcp" -NH"C:\Users\Public\Documents\RAD
Studio\10.0\hpp" -NO.\Win32\Debug Project1.dpr
[dcc32 Warnung] Beispiel2.pas(55): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[dcc32 Warnung] Beispiel2.pas(59): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[dcc32 Fehler] Beispiel2.pas(60): E2018 Record, Objekt oder Klassentyp erforderlich
[dcc32 Fehler] Beispiel2.pas(61): E2029 ';' erwartet, aber '.' gefunden
[dcc32 Fehler] Beispiel2.pas(63): E2029 Deklaration erwartet, aber Dateiende gefunden
[dcc32 Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Beispiel2.pas' kann nicht compiliert werden
Misslungen
Verstrichene Zeit: 00:00:00.3

Hat jemand hier im Forum zufällig RAD Studio XE3 und kann den Code bei sich einfügen? Dann wäre das vielleicht leichter für die Thread-TeilnehmerInnen, meine Problematik zu verstehen!

LG lusthansa
  Mit Zitat antworten Zitat
angos

Registriert seit: 26. Mai 2004
Ort: Rheine
549 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:37
Hallo lusthansa,

fast haste es

eine Prozedure wird syntaktisch so aufgebaut

Delphi-Quellcode:
proecedure Name;
begin
end;
Eine Unit bekommt

Delphi-Quellcode:
unit name

interface

implementation

end.
Also ergibt sich:
Delphi-Quellcode:
unit name

interface

implementation

  proecedure Name;
  begin
  end;
end.
Also einmal end; für das ende der Prozedur und am ende der Unit immer ein end.
[EDIT] Tipp: Du solltest deinen Code Einrücken/Formatieren sonst hängst du ganz schnell bei nächsten Problemen fest!

Gruß
Ansgar
  Mit Zitat antworten Zitat
Benutzerbild von cookie22
cookie22

Registriert seit: 28. Jun 2006
Ort: Düsseldorf
936 Beiträge
 
Delphi XE2 Professional
 
#15

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:43
Das ist falsch - wir sind hier nicht im C++-Builder!

Diesen Unfug, daß generell hinter jeder Anweisung ein Semikolon zu setzen sei, las ich sogar schon in einem Delphi-Buch. Woher das stammt, ist mir unklar (aus anderen Programmiersprachen?). Auch Quellcodes quellen in der Regel von diesen überflüssigen Semikola über.

Nicht jeder Befehl muß mit einem Semikolon abgeschlossen werden, sondern es müssen nur zwischen den Befehlen ("Anweisungen") welche stehen. Da "end" keine Anweisung innerhalb dieses Blockes mehr ist, kann eben das letzte Semikolon entfallen.

Zumindest ist es bis Delphi XE2 so. Kaum anzunehmen, daß ab XE3 die vielen überflüssigen Semikola plötzlich nötig sind.
Die "überflüssigen" Semikola setzt man der besseren Lesbarkeit wegen.
Gruß
Cookie
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 08:53
Ich setze es auch grundsätzlich, auch wenn vor einem end keines notwendig wäre. Denn oft erweitert man einen Block und dann ist es notwendig.
Markus Kinzler
  Mit Zitat antworten Zitat
lusthansa

Registriert seit: 7. Mär 2013
9 Beiträge
 
#17

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 09:01
Also einmal end; für das ende der Prozedur und am ende der Unit immer ein end.
[EDIT] Tipp: Du solltest deinen Code Einrücken/Formatieren sonst hängst du ganz schnell bei nächsten Problemen fest!

Gruß
Danke für die allg. Tipps. Aber das hilft auch nichts. Ich bekomme jetzt 3 Fehler. Ich rufe gleich mal Embarcadero Deutschland an und frage nach Hilfe und poste die hier.

LG lusthansa
  Mit Zitat antworten Zitat
lusthansa

Registriert seit: 7. Mär 2013
9 Beiträge
 
#18

Windows 7 und Delphi 7

  Alt 7. Mär 2013, 09:08
Hallo, ich habe bei Embarcadero angerufen. Der Techniker hat mich gefragt, was ich für eine Workstation mit Betriebssystem habe.

was ich noch nicht gesagt habe: Ich habe einen MacBook Pro mit Parallels Desktop 7 und darauf läuft auf der virtuellen Maschine Windows 7 Home Premium 64 bit.

Der Techniker meinte: Das kann auch nicht funktionieren, ich bräuchte Windows XP - "Windows 7 und Delphi 7 - das beißt sich" (Zitat Techniker).

Was ist da dran? Ich will ja das Programm nur testweise laufen lassen mit der Start-Taste - die fertige .exe oder was immer daraus auch wird - ist mir eigentlich egal - Hauptsache keine Fehler ...

brauche ich jetzt ein neues OS??

lg lusthansa
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#19

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 09:10
Delphi-Quellcode:
unit Beispiel2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    procedure EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var kurs, euro, dollar: Single; // Variablen, mit denen gerechnet wird
s: string; code: Integer; // Hilfsvariablen
begin
// Werte aus Editierfeldern in Variablen einlesen und prüfen:
Val(Form1.Edit1.Text, kurs, code); // Kurs einlesen
if code <> 0 then Exit;
Val(Form1.Edit2.Text, euro, code); // Euro einlesen
if code <> 0 then Exit;
Val(Form1.Edit3.Text, dollar, code); // Dollar einlesen
if code <> 0 then Exit;
// Berechnungen mit den Variablen durchführen:
if Sender = Edit3 then euro := dollar * kurs // dollar wurde eingegeben
else dollar := euro / kurs; // euro oder kurs wurden eingegeben
// Werte der Variablen in den Editierfeldern anzeigen:
if Sender = Edit3 then // dollar geändert
begin
Str(euro:8:2,s); Form1.Edit2.Text := s; // Anzeige von euro (8 Stellen,
// davon 2 Nachkomma)
end else // kurs oder euro geändert
begin
Str(dollar:8:2,s); Form1.Edit3.Text := s; // sonst Anzeige von dollar
end;
end;
end.
So sollte es gehen.
Edit: Hatte ein "end;" vergessen. Korrigiert.
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#20

AW: Fehler im Delphi-Code ganz am Ende beim Kompilieren

  Alt 7. Mär 2013, 09:14
Die "überflüssigen" Semikola setzt man der besseren Lesbarkeit wegen.
Klar doch, wo doch das end gewöhnlicherweise in der nächsten Zeile steht?! Damit sind beide doch schon optisch getrennt!

Was für den Compiler redundant ist, schafft m.E. in solchen Fällen auch für den Leser keinen informationellen Mehrwert.

Ich kann jedenfalls - als Hobbyprogrammierer! - keine Leseerschwernis beim Fehlen überflüssiger Semikola bemerken.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 4     12 34      

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz