Ich habe diesen Quellcode:
Delphi-Quellcode:
unit UDBmedia;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls,
Vcl.Mask,
Vcl.DBCtrls,
IBX.IBSQL, IBX.IBDatabase, Data.DB, IBX.IBCustomDataSet, IBX.IBServices,
IBX.IBConnectionBroker, IBX.IBDatabaseInfo;
type
TForm1 =
class(TForm)
DataSource1: TDataSource;
IBDatabase1: TIBDatabase;
IBDataSet1: TIBDataSet;
IBTransaction1: TIBTransaction;
IBSQL1: TIBSQL;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit8: TDBEdit;
IBDatabaseInfo1: TIBDatabaseInfo;
IBConnectionBroker1: TIBConnectionBroker;
IBConfigService1: TIBConfigService;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
IBDatabase1.DatabaseName := ChangeFileExt(Application.ExeName, '
.fdb');
IBDatabase1.Params.Add('
USER ''
SYSDBA''
');
IBDatabase1.Params.Add('
PASSWORD ''
masterkey''
');
IBDatabase1.Params.Add('
PAGE_SIZE 4096');
IBDatabase1.Params.Add('
DEFAULT CHARACTER SET WIN1250');
IBDatabase1.CreateDatabase;
*
if FileExists(IBDataSet1.Database.DatabaseName)
then
****IBDataSet1.Open
**
else
begin
****
with IBDataSet1.FieldDefs
do
begin
******Clear;
******Add('
media', ftString, 3);
******Add('
author', ftString, 30);
******Add('
title', ftString, 40);
****
**** IBDataSet1.CreateDataSet;
end;
{ von with }
**
end;
{ von else }
IBDataSet1.LoadFromFile(IBDatabase1.DatabaseName);
end;
{ von FormCreate }
end.
Der Compiler spuckt diese Fehlermeldungen aus:
dcc32 Befehlszeile für "dbmedia.dpr"
c:\program files (x86)\embarcadero\studio\20.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
Generics.Defaults=System.Generics.Defaults;WinType s=
Winapi.Windows;WinProcs=
Winapi.Windows;DbiTypes=
BDE;DbiProcs=
BDE;DbiErrs=
BDE -DDEBUG
-E.\
Win32\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\debug\DE"; "c:\program files
(x86)\embarcadero\studio\20.0\lib\
Win32\debug";"c: \program files (x86)\embarcadero\studio\20.0\lib\
Win32\release\DE ";"c:\program files
(x86)\embarcadero\studio\20.0\lib\
Win32\release";C :\Users\Konta\Documents\Embarcadero\Studio\20.0\Im ports;"c:\program files
(x86)\embarcadero\studio\20.0\Imports";C:\Users\Pu blic\Documents\Embarcadero\Studio\20.0\Dcp;"c:\pro gram files (x86)\embarcadero\studio\20.0\include"
-LEC:\Users\Public\Documents\Embarcadero\Studio\20. 0\
Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\20. 0\Dcp -NU.\
Win32\Debug -NSWinapi;
System.Win;Data.Win;Datasnap.Win;Web.Win;
Soap.Win;
Xml.Win;
Bde;System;
Xml;Data;Datasnap;Web;
Soap;
Vcl;
Vcl.Imaging;
Vcl.Touch;
Vcl.Samples;
Vcl.Shell;
-O"c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\release";C :\Users\Konta\Documents\Embarcadero\Studio\20.0\Im ports;"c:\program files
(x86)\embarcadero\studio\20.0\Imports";C:\Users\Pu blic\Documents\Embarcadero\Studio\20.0\Dcp;"c:\pro gram files (x86)\embarcadero\studio\20.0\include"
-R"c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\release\DE ";"c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\release";
C:\Users\Konta\Documents\Embarcadero\Studio\20.0\I mports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
C:\Users\Public\Documents\Embarcadero\Studio\20.0\ Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -U"c:\program files
(x86)\embarcadero\studio\20.0\lib\
Win32\debug\DE"; "c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\debug";"c: \program files
(x86)\embarcadero\studio\20.0\lib\
Win32\release\DE ";"c:\program files (x86)\embarcadero\studio\20.0\lib\
Win32\release";
C:\Users\Konta\Documents\Embarcadero\Studio\20.0\I mports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
C:\Users\Public\Documents\Embarcadero\Studio\20.0\ Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -V -VN
-NBC:\Users\Public\Documents\Embarcadero\Studio\20. 0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\20. 0\hpp\
Win32 -NO.\
Win32\Debug dbmedia.dpr
[dcc32 Fehler] UDBmedia.pas(51): E2003 Undeklarierter Bezeichner: '*if'
[dcc32 Fehler] UDBmedia.pas(51): E2029 'END' erwartet, aber 'THEN' gefunden
[dcc32 Fehler] UDBmedia.pas(54): E2029 ';' erwartet, aber 'BEGIN' gefunden
[dcc32 Fehler] UDBmedia.pas(55): E2003 Undeklarierter Bezeichner: '****with'
[dcc32 Fehler] UDBmedia.pas(55): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(55): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(56): E2029 '.' erwartet, aber 'BEGIN' gefunden
[dcc32 Fehler] UDBmedia.pas(57): E2003 Undeklarierter Bezeichner: '******Clear'
[dcc32 Fehler] UDBmedia.pas(58): E2003 Undeklarierter Bezeichner: '******Add'
[dcc32 Fehler] UDBmedia.pas(61): E2003 Undeklarierter Bezeichner: '****'
[dcc32 Fehler] UDBmedia.pas(62): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(62): E2066 Operator oder Semikolon fehlt
[dcc32 Warnung] UDBmedia.pas(63): W1011 Text hinter dem abschließenden 'END.' - wird vom Compiler ignoriert
[dcc32 Fataler Fehler] dbmedia.dpr(5): F2063 Verwendete
Unit 'UDBmedia.pas' kann nicht compiliert werden
Misslungen
Verstrichene Zeit: 00:00:01.3
Was läuft hier falsch?