DELPHI技术

摘要： procedure TForm1.Button1Click(Sender: TObject) ;var lf : TLogFont; tf : TFont;begin with Form1.Canvas do begin Font.Name := 'Arial'; Font.Size := 24; tf := TFont.Create; try tf.Assign(Font) ; GetObjec... 阅读全文

摘要： There are many times when you need to split a string into an array of strings by using a character as a separator. For example, a CSV ("comma" separated) file might have a line like "Zarko;Gajic;;Delp... 阅读全文