| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
*.my
Rooot © (2007-04-03 15:18:00)Как создать файл своего собственного формата.?
Elen (2007-04-04 08:12:00) [1]
> А если вопрос почитать ?
А ты сам почитай - [3] "А как скажем туда объект записать...", т.е. автору нужно скинуть в файл значения свойств обьекта, а вопрос про формат немножко непонятный
Игорь Шевченко (2007-04-03 22:07:00) [2]Elen © (03.04.07 17:42) [10]
> А если я не все свойства хочу сохранить? Если выборочно
> скажем первые 20 штук? И к тому же полезно иметь на руках
> список свойств
А если вопрос почитать ? Или не судьба, а знанием поделиться хочется ?
{RASkov} (2007-04-03 17:45:00) [3]> А если я не все свойства хочу сохранить? Если выборочно
> скажем первые 20 штук?
Как это и [8] связано с
> Как создать файл своего собственного формата.?
? :)
Elen (2007-04-03 17:42:00) [4]
> Игорь Шевченко © (03.04.07 17:38) [9]
А если я не все свойства хочу сохранить? Если выборочно скажем первые 20 штук? И к тому же полезно иметь на руках список свойств, а про WriteComponent я знаю, но альтернатива никогда не помешает :)
Игорь Шевченко (2007-04-03 17:38:00) [5]Elen © (03.04.07 17:15) [8]
Опять мимо. Матчасть учить. TStream.WriteComponent
Elen (2007-04-03 17:15:00) [6]
> А как скажем туда объект записать...
Получить список свойств такого-то обьекта (если имеется ввиду типа TForm или другие делфийские объекты) и записать этот список в файл.
Вот из DelphiWorld получение списка свойств:
unit Unit1;
interface
uses TypInfo,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure ListComponentProperties(Component: TComponent; Strings: TStrings);
var
Count, Size, I: Integer;
List: PPropList;
PropInfo: PPropInfo;
PropOrEvent, PropValue: string;
begin
Count := GetPropList(Component.ClassInfo, tkAny, nil);
Size := Count * SizeOf(Pointer);
GetMem(List, Size);
try
Count := GetPropList(Component.ClassInfo, tkAny, List);
for I := 0 to Count - 1 do
begin
PropInfo := List^[I];
if PropInfo^.PropType^.Kind in tkMethods then
PropOrEvent := 'Event'
else
PropOrEvent := 'Property';
PropValue := VarToStr(GetPropValue(Component, PropInfo^.Name));
Strings.Add(Format('[%s] %s: %s = %s', [PropOrEvent, PropInfo^.Name,
PropInfo^.PropType^.Name, PropValue]));
end;
finally
FreeMem(List);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListComponentProperties(form1, ListBox1.Items);
end;
end.
SergeR (2007-04-03 16:16:00) [7]Что то подобное в орешнике было....
Desdechado (2007-04-03 16:10:00) [8]и от того, что есть "объект"
{RASkov} (2007-04-03 15:38:00) [9]> Как создать файл своего собственного формата.?
А чем собственно отличается создание файла твоего собственного формата от создания файла моего собственного формата?
> А как скажем туда объект записать...
Конкретно как, наверное все-таки, завист от формата...
Сергей М. (2007-04-03 15:24:00) [10]
> А как .. туда объект записать
Известно как - в "своем собственном формате"
Rooot (2007-04-03 15:22:00) [11]
> Плохиш © (03.04.07 15:20) [1]
А как скажем туда объект записать...
Сергей М. (2007-04-03 15:21:00) [12]TFileStream.Create('Файл.МоегоСобственногоФормата', fmCreate).Free;
Плохиш (2007-04-03 15:20:00) [13]CreateFile
| |
