URL
https://opencores.org/ocsvn/8051/8051/trunk
[/] [8051/] [tags/] [rel_2/] [sw/] [source/] [uMain.dcu] - Blame information for rev 186
Details |
Compare with Previous |
View Log
Line No. |
Rev |
Author |
Line |
1 |
61 |
simont |
AQDO HlV-zX p uMain.pasFlV- r uMain.DFM-dIniFilesc&fTIniFile3Gg .TIniFilehVgTIniFile.Create#gTIniFile.ReadString#gTIniFile.ReadInteger#gTIniFile.WriteString#gTIniFile.WriteInteger#cdButtonsc&fTSpeedButton\fTBitBtnQg
.TSpeedButtonװ g.TBitBtnj"4hcdExtCtrlsc&fTRadioGroup_jfTPanel02ag.TRadioGroup.g.TPanel R%gTCustomRadioGroup.SetItemIndex#cdStdCtrlsc&fTEdit+b.fTLabel>fTMemo+Ag.TEdit˃g.TLabel_vg.TMemoacdDialogsc&fTOpenDialog=ŞfTSaveDialog}g.TOpenDialogbg.TSaveDialogXAgTOpenDialog.GetFileName#gShowMessage>f%cdFormsc&fTFormH)g.TForm!gTCustomForm.AlignControls#gTCustomForm.CreateParams#gTCustomForm.CreateWindowHandle#gTCustomForm.CreateWnd#gTCustomForm.DefaultHandler#gTCustomForm.DefineProperties#gTCustomForm.DestroyWindowHandle#gTCustomForm.GetClientRect#gTCustomForm.Loaded#gTCustomForm.Notification#gTCustomForm.PaintWindow#gTCustomForm.ReadState#gTCustomForm.SetParent#gTCustomForm.ValidateRename#gTCustomForm.WndProc#gTCustomForm.Create#gTCustomForm.Destroy#gTCustomForm.SetFocus#gTCustomForm.WantChildKey#gTCustomForm.Close#cdControlsc&gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#gTControl.GetText#gTControl.SetText#cdGraphicsc&cdClassesc&fTStrings;gTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#fTStringListWg.TStringList09cdSysUtilskf Exception_g
|
2 |
48 |
simont |
.ExceptionЀg UpperCaseWCgStrToIntogIntToStrog DateToStrT>gDate6g TimeToStrT>gTime6g
|
3 |
|
|
FileExistsۛ
|
4 |
|
|
AnsiStringHDfStringHDfTObject!fInteger`LgTObject.NewInstance#gTObject.FreeInstance#g
@LStrArrayClrQg@HandleFinallyQfLongint`LgTObject.Create#gCopy g @LStrCopyQgBreak gTObject.Free#g@LStrAddRefQg@LStrClr'@g
@LStrFromCharp g @LStrCatNQg@LStrCatQg @LStrCat3Qg@HandleOnExceptionQg@DoneExceptQgExit g@LStrCmpQgTruejQgFalsejQg @LStrLAsgQgLength g@LStrLenO:gInc g@RaiseExceptQg@LStrAsgQc*tbytesb**tstrj,*tRom.*.10&.TForm1$!2 *TForm1;Sn]4 Form1I]4p .2f6 (TForm1.Button1Click# 8!Self4!Sender$c(TForm1.makeV# ! !Selff4!hFilef #Resultf str resf sf j&
|