Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2008-06-09 19:12:36 ЛС | профиль | цитата
POISON,
Быль писал(а):
Был у нас в военкомате завхоз. Как-то понадобились нам большие (30см) гвозди. Дали ему задание - найти. Звонит он в хозмагазин и спрашивает:
- У вас большие гвозди есть?
- Какие?
Он ложит трубку на стол и показывая руками, кричит в трубку:
- Вот такие!
Все, присутствующие при этом, выпали в осадок.

К чему я это ? Не показывай на пальцах - схемку выложи.
Есть способы избавиться от всего лишнего.


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 19
Рейтинг: 2
#17: 2008-06-10 14:49:05 ЛС | профиль | цитата
Make(delphi)
Add(MainForm,16078041,21,105)
{
Left=20
Top=105
Width=379
Height=225
Icon=[ZIP7E04000078DAA592594F135114C7C7840FC093CF3EFA31FC383E6B62D7E9426B97A8D425841894F8408ABE74A1B49668BA3068A1D852AA94C412204AC45A3B4CE96A97F97BEEB4C58E8410E399FC3A77CEF4DC39F797C37157E89A9CE4E8F71A777382E3AE721C779DA014650679163726B87361B55AED66B359B6582C32DD61329960E24DCA9D27588E41EF559809DBD49499E77929974EE3E3870CBE1E1EA25EAD02B20C16ED4603077B7B581704ACC6622AB6A846A7D349BC89AFA492ABD8A0FF147777F1B3F403ED6613BD4E0752A582423E8F58348A95E5E533A2A110DE2793ACBE42DF17D76271A4E8F973A180F2F792AAFE532E8737E13022C1E01F020108D403D58B74B6CD5EAFA7D474A9461EF6AE04AD3B946BD239EAF53A1A43D8BADFED426F306CB81DAE5B2EFB5D3C9A9EC6F3B939BCF47A11F4F910A2EFBC5A5CC4ECCC0C5C763B6CE4D2461EC7713A1CB78D3C5FCD67B2D8D9CA29FE6A92A4ECCDA251AB29FED2A99472DE71F2D92CB45AEDC05F2279A93FE64CE52F91F8377FE46CE42FACF62740EEE357BB8D1EF52DD37ADC1F73DA6AB5CEC1DE198C468166E8C113CF433C9B7D0AEFC202023E3FA2910856A8E7A0DF8F17F3F378ECF1E09ECB85FB6EB70A97D3A919CCDF26F2990CBEEC1FA02A9E90BFCEC01FCDE27EB18814B961FDAEC5E30AC270FEB4A3F94B5C3E7FD1BFE76FE48FEADFC51358BFC0DFCEF636DED27998B7D74B4B0A6CCDFA60F5068341924E4488E5B2325B7D9AC5337DFD3E6AA7A7281D1FE3DBD1910A49147147A3911C0E07CFF620D85EA25EAF57C1721750753A9D56EE3FE3379A18317E]
link(onCreate,1388384:doOpen,[])
}
Add(FileStream,1388384,112,119)
{
FileName="Discount_Card.exe"
AutoCopy=0
link(onLoad,8954466:doHashsum,[(156,125)(156,157)(100,157)(100,188)])
}
Add(Hashsum,8954466,112,182)
{
link(onResult,3165833:doText,[])
link(Data,1388384:Stream,[])
}
Add(Edit,3165833,168,182)
{
Left=20
Top=20
Width=215
Text=""
link(onChange,1317787:doStrCat,[])
}
Add(Edit,6012481,329,182)
{
Left=20
Top=50
Width=335
Text=""
link(onChange,15978906:doAdd,[])
}
Add(StrCat,1317787,224,182)
{
Str2=" "
link(onStrCat,4646960:doStrCat,[])
}
Add(StrCat,4646960,273,182)
{
Str2="Discount_Card.exe"
link(onStrCat,6012481:doText,[])
}
Add(StrList,15978906,399,182)
{
FileName="hashed.txt"
link(onChange,15978906:doSave,[(443,188)(443,206)(387,206)(387,223)])
}
Add(InfoTip,16041839,378,105)
{
Info=#64:Текст сохроняющийся в файле создается все время с лишней строкой|
Width=120
Height=144
}
карма: 0

0
Ответов: 1328
Рейтинг: 69
#18: 2008-06-10 18:04:54 ЛС | профиль | цитата
Юзай этот компонент:


Add(DataToFile,7915256,553,336)
{
Type=5
}

Смотри - Помощь - Примеры - Files - SaveData
карма: 2

0
Ответов: 19
Рейтинг: 2
#19: 2008-06-12 16:41:43 ЛС | профиль | цитата
(FileAttributes: Атрибуты файлов)

этот компонент при компиляции не работает и выдает ошибку

hiFileAttributes.pas(58,10) Error: Identifier not found "GetFileAttributesEx"
hiFileAttributes.pas(90,12) Error: Identifier not found "GetFileAttributesEx"
hiFileAttributes.pas(112,12) Error: Identifier not found "GetFileAttributesEx"
hiFileAttributes.pas(157) Fatal: There were 3 errors compiling module, stopping
Error: Crogram FilesHiAsmcompilerfpcppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
:?
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#20: 2008-06-12 16:51:11 ЛС | профиль | цитата
POISON, в новом пакете (b168), должна работать
карма: 22

0
Ответов: 19
Рейтинг: 2
#21: 2008-06-12 16:59:34 ЛС | профиль | цитата
так у меня новый пакет HiAsm 3.65 build 168

карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#22: 2008-06-12 17:12:38 ЛС | профиль | цитата
Ну, значит над файл с SVN

Вот ссылка [svn]FileAttributes.pas[/svn]
карма: 22

0
Ответов: 19
Рейтинг: 2
#23: 2008-06-12 17:47:23 ЛС | профиль | цитата
[svn]FileAttributes.pas[/svn] у меня оно не показывает ссылкой
карма: 0

0
Ответов: 1088
Рейтинг: 112
#24: 2008-06-12 18:23:22 ЛС | профиль | цитата
FileAttributes.pas
FileAttributes.ini
ссылки прведенные nesco предназначены для нового форума
и еще: Репозиторий SVN
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 19
Рейтинг: 2
#25: 2008-06-18 16:31:10 ЛС | профиль | цитата
[onShow] - эта функция у меня странно работает то кучу ошибок выдает то просто форму выкидывает...

Add(MainForm,15851196,77,154)
{
Left=20
Top=105
Width=278
Height=118
Point(onShow)
link(onShow,13163765:doRead,[])
}
Add(CheckBox,1445264,280,238)
{
Left=5
Top=5
Width=180
Font=[MS Sans Serif,8,1,0,1]
Ctl3D=0
Transparent=0
Caption="
карма: 0

0
Ответов: 1328
Рейтинг: 69
#26: 2008-06-18 17:42:51 ЛС | профиль | цитата
POISON, Я думаю, ч. тебе нужна другая точка, к стати твоя схема у меня работает без ошибок.
code_9301.txt
карма: 2

0
файлы: 1code_9301.txt [1.3KB] [235]
Ответов: 19
Рейтинг: 2
#27: 2008-06-24 15:34:36 ЛС | профиль | цитата
При неудачной компиляции создается такой файл
(ppas.bat) с содержимой инфомацией
code_9335.txt
карма: 0

0
файлы: 1code_9335.txt [561B] [201]
27
Сообщение
...
Прикрепленные файлы
(файлы не залиты)