paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented dummys for missing methods

Browse Source 
git-svn-id: trunk@9411 -
This commit is contained in:
michael 2007-12-07 16:42:09 +00:00
parent d46b433778
commit 915aa94e2d
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-xml/src/xmlstreaming.pp
View File

@ -52,19 +52,20 @@ type
procedure EndList; override; procedure EndList; override;
procedure BeginProperty(const PropName: String); override; procedure BeginProperty(const PropName: String); override;
procedure EndProperty; override; procedure EndProperty; override;
procedure Write(const Buffer; Count: LongInt); override;
procedure WriteBinary(const Buffer; Count: Longint); override; procedure WriteBinary(const Buffer; Count: Longint); override;
procedure WriteBoolean(Value: Boolean); override; procedure WriteBoolean(Value: Boolean); override;
// procedure WriteChar(Value: Char); // procedure WriteChar(Value: Char);
procedure WriteFloat(const Value: Extended); override; procedure WriteFloat(const Value: Extended); override;
procedure WriteSingle(const Value: Single); override; procedure WriteSingle(const Value: Single); override;
{!!!: procedure WriteCurrency(const Value: Currency); override;} procedure WriteCurrency(const Value: Currency); override;
procedure WriteDate(const Value: TDateTime); override; procedure WriteDate(const Value: TDateTime); override;
procedure WriteIdent(const Ident: string); override; procedure WriteIdent(const Ident: string); override;
procedure WriteInteger(Value: Int64); override; procedure WriteInteger(Value: Int64); override;
procedure WriteMethodName(const Name: String); override; procedure WriteMethodName(const Name: String); override;
procedure WriteSet(Value: LongInt; SetType: Pointer); override; procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override; procedure WriteString(const Value: String); override;
procedure WriteWideString(const Value: WideString); override;
end; end;
@ -188,6 +189,10 @@ procedure TXMLObjectWriter.WriteBinary(const Buffer; Count: Longint);
begin begin
WriteLn('WriteBinary (', Count, ' Bytes)'); WriteLn('WriteBinary (', Count, ' Bytes)');
end; end;
procedure TXMLObjectWriter.Write(const Buffer; Count: Longint);
begin
WriteLn('WriteBinary (', Count, ' Bytes)');
end;
procedure TXMLObjectWriter.WriteBoolean(Value: Boolean); procedure TXMLObjectWriter.WriteBoolean(Value: Boolean);
begin begin
@ -214,6 +219,11 @@ begin
GetPropertyElement('ident')['value'] := Ident; GetPropertyElement('ident')['value'] := Ident;
end; end;
procedure TXMLObjectWriter.WriteCurrency(const Value : Currency);
begin
Writeln('WriteCurrency',Value);
end;
procedure TXMLObjectWriter.WriteInteger(Value: Int64); procedure TXMLObjectWriter.WriteInteger(Value: Int64);
begin begin
GetPropertyElement('integer')['value'] := IntToStr(Value); GetPropertyElement('integer')['value'] := IntToStr(Value);
@ -234,5 +244,10 @@ begin
GetPropertyElement('string')['value'] := Value; GetPropertyElement('string')['value'] := Value;
end; end;
procedure TXMLObjectWriter.WriteWideString(const Value: WideString);
begin
GetPropertyElement('widestring')['value'] := Value;
end;
end. end.