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
}