EParsererror with message: wrong token symbol: INLINE expected but K1 found.
[ Zusatzinfo: ] K1 ist Name der 2. Komponente vom Typ TKnoten
[ Zusatzinfo: ] TKnoten=class(TForm)
Füge ich manuell in die Datei das wort "inline" vor K1 ein funktioniert es auch die Datei zu laden.
Was bedeutet dieses Inline? Warum wird das Wort inline Erwartet ? ich find die Datei sieht ohne inline schöner aus aber wenns nötig ist...
Falls man dieses Inline an dieser Stelle unbedingt braucht, wie kann man das beim streamen der Datei einfügen lassen ?
Meine bisherige Speicherprozedur:
Code: Alles auswählen
procedure TGraphGround1.SaveGraph(const path: string);
var filestream:TFilestream;
memstream:TMemoryStream;
i:Integer;
begin
filestream:=TFileStream.Create(path, fmCreate);
memstream:=TMemoryStream.Create;
try
i:=0;
while (i<ComponentCount) do begin
if (Components[i] is TKnoten) then begin
memstream.WriteComponent(Components[i]);
end;
inc(i);
end;
memstream.Seek(0,soFromBeginning);
while (memstream.Position<memstream.Size) do begin
ObjectBinaryToText(memstream,filestream);
end;
finally
memstream.Free;
filestream.Free;
end;
end;
Bisherige Prozedur zum laden:
Code: Alles auswählen
procedure TGraphGround1.LoadGraph(const path: string);
var filestream:TFileStream;
var memstream:TMemoryStream;
var knot:TKnoten;
begin
filestream:=TFileStream.Create(path, fmOpenRead); memstream:=TMemoryStream.Create;
try
while (filestream.Position<filestream.Size) do begin
memstream.Seek(0, soFromBeginning);
ObjectTextToBinary(filestream,memstream);
memstream.Seek(0, soFromBeginning);
knot:=TKnoten.Create(self);
memstream.ReadComponent(Knot);
end;
finally
memstream.Free; filestream.Free;
end;
end;
Der erstellte Dateiinhalt:
Code: Alles auswählen
object K0: TKnoten
Left = 41
Height = 69
Top = 170
Width = 69
BorderIcons = []
BorderStyle = bsNone
Caption = 'K0'
FormStyle = fsStayOnTop
ParentFont = True
ShowInTaskBar = stNever
LCLVersion = '0.9.28.2'
Visible = True
TabStop = False
Shape = stEllipse
end
object K1: TKnoten
Left = 82
Height = 46
Top = 108
Width = 46
BorderIcons = []
BorderStyle = bsNone
Caption = 'K1'
FormStyle = fsStayOnTop
ParentFont = True
ShowInTaskBar = stNever
LCLVersion = '0.9.28.2'
Visible = True
TabStop = False
Shape = stEllipse
end