Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: absolute Sender

   
    by Bjoerk, 26. Nov 2014
  Das wird vorher abgefangen (Ist ein mitgeliefertes Beispiel der Autoren um die erweiterte TGraphic zu demonstrieren). Bei den Beispielen hatten sie wohl keinen Bock mehr? Union lag da richtig, ist hier ne lokale Variable. Ich kannte halt nur klein L wie es z.B. Rufo oft verwendet. :)
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: absolute Sender

   
    by Bjoerk, 26. Nov 2014
  Ok. Thanx. Sorry. Der Code steckt übrigens voll mit solchen (üblen) Sachen? Wo soll man z.B. hier einen try finally Block unterbringen? Und was soll das klein v mir sagen?
  
  case StrIndex(vFileExt, Exts) of
  0: sgCADImage := TsgCADdxfImage.Create;
  1: sgCADImage := TsgDWGImage.Create;
  2..15: sgCADImage := TsgHPGLImage.Create;
  16: sgCADImage := TsgSVGImage.Create;
  ...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  absolute Sender

   
    by Bjoerk, 26. Nov 2014
  Kann Jemand was mit dieser (Directive ?) anfangen?
  
  procedure TSimpleImportForm.ImportViewPortBegin(Sender: TObject);
  var
  V: TsgDXFViewPort absolute Sender;
  S: string;
  begin
  S := 'Rect:'
  + sLineBreak + ' Left= ' + FloatToStr(V.Rect.Left)
  + sLineBreak + ' Top= ' + FloatToStr(V.Rect.Top)