티스토리 뷰
type
IDatabase = interface
function GetDatabaseName() : String;
end;
TDatabase = class(TInterfacedObject, IDatabase)
private
FDtabaseName : String;
public
procedure SetDatabaseName(ADatabaseName : String);
function GetDatabaseName() : String;
end;
{ TDatabase }
procedure TDatabase.SetDatabaseName(ADatabaseName : String);
begin
Self.FDtabaseName := ADatabaseName;
end;
function TDatabase.GetDatabaseName() : String;
begin
Result := Self.FDtabaseName;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
DatabaseList : TInterfaceList;
ADatabase : TDatabase;
InterfaceDatabase : IDatabase;
i : integer;
begin
DatabaseList := TInterfaceList.Create;
ADatabase := TDatabase.Create;
ADatabase.SetDatabaseName('Oracle');
InterfaceDatabase := ADatabase;
DatabaseList.Add(InterfaceDatabase);
ADatabase := TDatabase.Create;
ADatabase.SetDatabaseName('MsSQL');
InterfaceDatabase := ADatabase;
DatabaseList.Add(InterfaceDatabase);
for i :=0 to DatabaseList.Count-1 do begin
Memo1.Lines.Add(IDatabase(DatabaseList[i]).GetDatabaseName());
end;
end;
- Total
- Today
- Yesterday
- Spring
- Xcode
- 동경
- NDK
- ubuntu
- BPI-M4
- 일본여행
- Delphi
- Delphi Tip
- ble
- koba2010
- Linux
- oracle
- JavaScript
- 서울오토살롱
- SAS
- 튜닝쇼 2008
- Java
- 전예희
- Spring MVC
- 지스타2007
- android
- ffmpeg
- flex
- MySQL
- 송주경
- sas2009
- KOBA
- 레이싱모델 익스트림 포토 페스티벌
- Mac
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |