OBS/Adminhilfe/Delphi IMP *.Pas-Dateien: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Für diese Seite wurde eine Zugriffsbeschränkung eingerichtet. Falls du diese Nachricht siehst, bist du nicht berechtigt, diese Seite einzusehen.
(Importing text file) |
(Importing text file) |
||
| Zeile 1: | Zeile 1: | ||
<font face="Arial"><font | <font size="2" color="#000000" face="Arial"> </font> | ||
<div>Beim erzeugen von IMP_xxxxx.pas Dateien ist folgendes zu beachten:</div><div><br /></div><div>'''Progrqamm dcimporter.exe'''</div><div><br /></div><div>[[Image:DELPHI_INTERPRETER_1.jpg]]</div><div><br /></div><div>Achtung Pfade importieren! '''LIB.TXT'''</div><div><br /></div><div>Es werden nur Properties und Funktionen automatisch erzeugt die unter '''PUBLIC''' deklariert worden sind!</div><div><br /></div><div>Falls published und public zusammen gebraucht werden hier ein weg (<font size="1"> TDesign_Shape ) wir nacher benutzt<div><br /></div><div><font size="1" face="courier new"> TSim_Shape = class(TShape)<div><font size="1" face="courier new"> private<div><font size="1" face="courier new"><br /><div><font size="1" face="courier new"> protected<div><font size="1" face="courier new"> <div><font size="1" face="courier new"> FSim_ResFunc : String;<div><font size="1" face="courier new"> FSim_ResAdd : Boolean;<div><font size="1" face="courier new"> FSim_Data1 : String;<div><font size="1" face="courier new"> FSim_Data2 : String;<div><font size="1" face="courier new"> FSim_Data3 : String;<div><font size="1" face="courier new"> <div><font size="1" face="courier new"> public <div><font size="1" face="courier new"> <div><font size="1" face="courier new"> constructor Create(AOwner: TComponent); override;<div><font size="1" face="courier new"> destructor destroy; override;<div><font size="1" face="courier new"> <div><font size="1" face="courier new"> property Sim_ResFunc : string read FSim_ResFunc write FSim_ResFunc ;<div><font size="1" face="courier new"> property Sim_ResAdd : boolean read FSim_ResAdd write FSim_ResAdd ;<div><font size="1" face="courier new"> property Sim_Data1 : string read FSim_Data1 write FSim_Data1 ;<div><font size="1" face="courier new"> property Sim_Data2 : string read FSim_Data2 write FSim_Data2 ;<div><font size="1" face="courier new"> property Sim_Data3 : string read FSim_Data3 write FSim_Data3 ;<div><font size="1" face="courier new"> <div><font size="1" face="courier new"> end;<div><font size="1" face="courier new"><br /><div><font size="1" face="courier new"> //---------------------------------------------<div><font size="1" face="courier new"> <div><font size="1" face="courier new"> TDesign_Shape = class(TSim_Shape)<div><font size="1" face="courier new"> published<div><font size="1" face="courier new"> property Sim_ResFunc;<div><font size="1" face="courier new"> property Sim_ResAdd;<div><font size="1" face="courier new"> property Sim_Data1;<div><font size="1" face="courier new"> property Sim_Data2;<div><font size="1" face="courier new"> property Sim_Data3;<div><font size="1" face="courier new"> end;<div><font size="1" face="courier new"><br />[[Category:html]] | |||
---- | ---- | ||
[[ | [[Benutzer:Auto import|Auto import]] 15:26, 25. Aug. 2011 (CEST) | ||
Version vom 25. August 2011, 14:26 Uhr
Beim erzeugen von IMP_xxxxx.pas Dateien ist folgendes zu beachten:
Progrqamm dcimporter.exe
Achtung Pfade importieren! LIB.TXT
Es werden nur Properties und Funktionen automatisch erzeugt die unter PUBLIC deklariert worden sind!
Falls published und public zusammen gebraucht werden hier ein weg ( TDesign_Shape ) wir nacher benutzt
TSim_Shape = class(TShape)
private
protected
FSim_ResFunc : String;
FSim_ResAdd : Boolean;
FSim_Data1 : String;
FSim_Data2 : String;
FSim_Data3 : String;
public
constructor Create(AOwner: TComponent); override;
destructor destroy; override;
property Sim_ResFunc : string read FSim_ResFunc write FSim_ResFunc ;
property Sim_ResAdd : boolean read FSim_ResAdd write FSim_ResAdd ;
property Sim_Data1 : string read FSim_Data1 write FSim_Data1 ;
property Sim_Data2 : string read FSim_Data2 write FSim_Data2 ;
property Sim_Data3 : string read FSim_Data3 write FSim_Data3 ;
end;
//---------------------------------------------
TDesign_Shape = class(TSim_Shape)
published
property Sim_ResFunc;
property Sim_ResAdd;
property Sim_Data1;
property Sim_Data2;
property Sim_Data3;
end;
