AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

absolute Sender

Ein Thema von Bjoerk · begonnen am 26. Nov 2014 · letzter Beitrag vom 27. Nov 2014
Antwort Antwort
Seite 1 von 2  1 2      
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#1

absolute Sender

  Alt 26. Nov 2014, 13:35
Kann Jemand was mit dieser (Directive ?) anfangen?
Delphi-Quellcode:
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)
    + sLineBreak + ' Z1= ' + FloatToStr(V.Rect.Z1)
    + sLineBreak + ' Right= ' + FloatToStr(V.Rect.Right)
    + sLineBreak + ' Bottom= ' + FloatToStr(V.Rect.Bottom)
    + sLineBreak + ' Z2= ' + FloatToStr(V.Rect.Z2);
  S := S + sLineBreak + '---ENTITIES below are displayed in this VIEWPORT---';
  FTextFile.Add(S);
end;
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: absolute Sender

  Alt 26. Nov 2014, 13:36
Damit wird definert, dass V auf die selbe Speicheradresse zeigt wie Sender. Eine besonders fiese Art eines harten typecast.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

AW: absolute Sender

  Alt 26. Nov 2014, 13:37
http://www.delphipraxis.net/98080-sc...-absolute.html
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: absolute Sender

  Alt 26. Nov 2014, 13:37
Das bedeutet dass V auf Sender zeigt.

Es ist quasi ein

V := TsgDXFViewPort(Sender); innerhalb der Deklaration von V.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#5

AW: absolute Sender

  Alt 26. Nov 2014, 13:42
Ich würde ja mal in die OH gucken.

Delphi-Quellcode:
procedure TSimpleImportForm.ImportViewPortBegin(Sender: TObject);
var
  V: TsgDXFViewPort absolute Sender;
begin

Delphi-Quellcode:
procedure TSimpleImportForm.ImportViewPortBegin(Sender: TObject);
var
  V: TsgDXFViewPort;
begin
  V := TsgDXFViewPort(Sender);
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (26. Nov 2014 um 13:43 Uhr) Grund: Mist, zu langsam ... es wäre toll, wenn die RedBox nicht schlafen würde.
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: absolute Sender

  Alt 26. Nov 2014, 13:50
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?
Delphi-Quellcode:
    case StrIndex(vFileExt, Exts) of
      0: sgCADImage := TsgCADdxfImage.Create;
      1: sgCADImage := TsgDWGImage.Create;
      2..15: sgCADImage := TsgHPGLImage.Create;
      16: sgCADImage := TsgSVGImage.Create;
      17: sgCADImage := TsgCGMImage.Create;
    end;
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#7

AW: absolute Sender

  Alt 26. Nov 2014, 13:52
v wird hier wahrscheinlich als Präfix für lokale Variablen verwendet. Andere verwenden L.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#8

AW: absolute Sender

  Alt 26. Nov 2014, 15:17
Oder es kommt vom TsgDXFViewPort


Zitat:
Delphi-Quellcode:
    case StrIndex(vFileExt, Exts) of
      0: sgCADImage := TsgCADdxfImage.Create;
      1: sgCADImage := TsgDWGImage.Create;
      2..15: sgCADImage := TsgHPGLImage.Create;
      16: sgCADImage := TsgSVGImage.Create;
      17: sgCADImage := TsgCGMImage.Create;
    end;
Was passiert, wenn die Dateiendung nicht gefunden wird?

Da nur Creates in dem CASE sind, dann das Try direkt danach beginnen,
oder man erstellt hier nicht, sondern speichert den Typ nur in einer Klassen-Variable (TClass)
und macht das Erstellen über MyImageClass.Create und Try-Finally dann danach.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: absolute Sender

  Alt 26. Nov 2014, 16:16
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. [Sir] Rufo [/Sir] oft verwendet.
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#10

AW: absolute Sender

  Alt 27. Nov 2014, 10:08
Absolute hat einen ganz praktischen Nutzen:

Delphi-Quellcode:

procedure foo(rgb: DWord);
var
  rgb_arr: Array[0..3] of Byte absolute rgb;
begin
  showmessage('Rotanteil : ' + IntToStr(rgb_arr[0]));
  showmessage('Grünanteil: ' + IntToStr(rgb_arr[1]));
  showmessage('Blauanteil: ' + IntToStr(rgb_arr[2]));
end;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz