Форум: "Основная";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];
Вниз
Сохранение типов. Найти похожие ветки
← →
Hacker. (2003-05-03 08:26) [0]Как сохранить тип
Например:
Type MyType=Record
V1:Integer;
V2:Integer;
V3:Integer;
Picture:Integer;
end;
← →
Morfein (2003-05-03 08:38) [1]Что значит "сохранить тип"? Можно сохранить данные, записаные в экземпляре типа! Если так, то:
var
f : hFile;
rec : MyType;
Result : dword;
begin
f:=CreateFile("C:\SAVED_INSTANCE_OF_MYTYPE.FILE", GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
if f <> INVALID_HANDLE_VALUE then
begin
WriteFile(f, rec, sizeOf(MyType), Result, nil);
CloseHandle(f);
end;
end.
← →
KSergey (2003-05-03 09:04) [2]Не слабоват ли вопрос для хацкера,а? Или ты кульный хацкер?
← →
Anatoly Podgoretsky (2003-05-03 09:37) [3]WriteLn(F,"Type MyType=Record");
WriteLn(F,"V1:Integer;");
WriteLn(F,"V2:Integer;");
WriteLn(F,"V3:Integer;");
WriteLn(F,"Picture:Integer;");
WriteLn(F,"end;");
← →
Palladin (2003-05-03 11:24) [4]всем кулхацкерам посвящается
var
f:file of mytype;
myvariable:mytype;
assignfile(f,"cool_file.ch");rewrite(f);
write(f,myvariable);
closefile(f);
← →
evvcom (2003-05-04 00:05) [5]
> Anatoly Podgoretsky © (03.05.03 09:37)
Всегда прикалываюсь над ответами Анатолия. Человек с юмором!
← →
Aleks1 (2003-05-04 03:31) [6]>evvcom © (04.05.03 00:05)
>> Anatoly Podgoretsky © (03.05.03 09:37)
>Всегда прикалываюсь над ответами Анатолия. Человек с юмором!
Ни разу не замечал, что Вы "прикалываетесь" над ответами Анатолия!
Человек то он с юмором, это всем известно. Но скорее всего, Вы "отпадаете" при чтении ответов, а не "прикалываетесь", иначе форум был бы забит сообщениями типа:
evvcom © (**.**.** **:**) Удалено модератором.
← →
evvcom (2003-05-04 03:47) [7]
> Aleks1 (04.05.03 03:31)
> Но скорее всего, Вы "отпадаете" при чтении ответов, а не
> "прикалываетесь"
Да пожалуйста, называйте это как хотите.
← →
Aleks1 (2003-05-04 04:11) [8]Пардон, 2 evvcom © (04.05.03 03:47)!
Забыл поставить смайлик ":)" в посте от (04.05.03 03:31) :)))
← →
Hacker. (2003-05-05 10:32) [9]
>
> KSergey © (03.05.03 09:04)
> Не слабоват ли вопрос для хацкера,а? Или ты кульный хацкер?
Hacker. - это имя.
> Anatoly Podgoretsky © (03.05.03 09:37)
> WriteLn(F,"Type MyType=Record");
> WriteLn(F,"V1:Integer;");
> WriteLn(F,"V2:Integer;");
> WriteLn(F,"V3:Integer;");
> WriteLn(F,"Picture:Integer;");
> WriteLn(F,"end;");
Там был приведен тип, а не данные, которые надо записать.
> Palladin © (03.05.03 11:24)
> всем кулхацкерам посвящается
> ...
Думаешь я полный ламмер? так уже пробовал, не получается, и пробовал компонент делать и его сохранять, все-равно ничего не получается.
Как я понимаю все сохраняется, кроме Информации, которая хранится с Picture т.е. картинка..
← →
Palladin (2003-05-05 10:40) [10]ты натуральный кулхацкер
ибо сохраняешь сами ссылки, а не инфу по ссылкам...
← →
Palladin (2003-05-05 10:42) [11]кстати вопрос задан не верно это раз,
во вторых если это картинка почему же она integer?
если таким образом ты думал что весь объект у тебя сожмется в 4 байта, то это не поддается моему разумению...
← →
KSergey (2003-05-05 10:47) [12]> Hacker. (05.05.03 10:32)
> Hacker. - это имя.
По паспорту? Или по убеждениям? ;)
А вообще-то, опять же упорно не понимаешь намеков: напиши толком что надо. Что значит "сохранить тип"? Сохранить информацию о типах объектов, составляющих эту структуру? Ну так про это все и отвечают. Но, похоже, не устраивает, так может вопрос переформулировать?
← →
Hacker. (2003-05-06 09:26) [13]
> Palladin ©
Извиняюсь ошибка, там должно было быть:
Type MyType=Record
V1:Integer;
V2:Integer;
V3:Integer;
Picture:TPicture;
end;
> KSergey ©
У меня паспорта еще нет, делай выводы.
← →
Palladin (2003-05-06 09:33) [14]
> Hacker. (06.05.03 09:26)
используй TFileStream
сохранение твоего типа будет выглядеть примерно так
procedure SaveMyTypeTo(Stream:TFileStream;myvar:MyType);
begin
Stream.Write(myvar,sizeof(integer)*3);
myvar.picture.SaveToStream(Stream);
end;
← →
Digitman (2003-05-06 09:35) [15]
> Hacker.
см. методы TPicture.Graphic.LoadFromStream/SaveToStream
← →
Hacker. (2003-05-07 12:14) [16]Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.007 c
