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