AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Label[i]

Ein Thema von Zeref Darkmage · begonnen am 3. Apr 2018 · letzter Beitrag vom 3. Apr 2018
Antwort Antwort
Seite 2 von 2     12
Zeref Darkmage
(Gast)

n/a Beiträge
 
#11

AW: Label[i]

  Alt 3. Apr 2018, 11:55
Vielen Dank für die ganzen Vorschläge ich werde mir sie merken und anwenden, danke


LG Zeref
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

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

AW: Label[i]

  Alt 3. Apr 2018, 12:23
Delphi-Quellcode:
HardCast := TLabel(FindComponent('Label' + IntToStr(i))); // weißt einfach zu, ohne den Typ zu prüfen
SoftCast := (FindComponent('Label' + IntToStr(i)) as TLabel); // knallt, wenn es kein Label ist (NIL ist aber erlaubt, da es ja kein "falscher" Typ ist)
if FindComponent('Label' + IntToStr(i)) is TLabel then ...; // prüft ob der Typ stimmt (nil ist nicht möglich, da nicht dieser Typ drin ist)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#13

AW: Label[i]

  Alt 3. Apr 2018, 12:49
Oder einfach eine Funktion basteln, die mir die Labels übergibt.

Damit bist du unabhängig von der Namensgebung deiner Labels und kannst gezielt nur die Labels ansprechen, die wirklich benötigt werden, wenn noch mehr Label auf deiner Form vorhanden sind.

Delphi-Quellcode:

Function TForm1.GetLabel(aIndex:Integer):TLabel;
begin
  case aIndex of
    1:Result := Label1;
    2:Result := Label2;
    3:Result := LabelXYZ;
    4:Result := Labelqqq;
    5:Result := LabelWasWeisIch;
  else
    Result := nil; // Oder eine Exception
  end;
end;
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.859 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: Label[i]

  Alt 3. Apr 2018, 12:52
Oder Referenzen der benötigten Labels( oder allg. Controls) in einem/einer Array/Liste ablegen
Markus Kinzler
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.069 Beiträge
 
Delphi 2009 Professional
 
#15

AW: Label[i]

  Alt 3. Apr 2018, 13:18
Delphi-Quellcode:
HardCast := TLabel(FindComponent('Label' + IntToStr(i))); // weißt einfach zu, ohne den Typ zu prüfen
SoftCast := (FindComponent('Label' + IntToStr(i)) as TLabel); // knallt, wenn es kein Label ist (NIL ist aber erlaubt, da es ja kein "falscher" Typ ist)
if FindComponent('Label' + IntToStr(i)) is TLabel then ...; // prüft ob der Typ stimmt (nil ist nicht möglich, da nicht dieser Typ drin ist)
Ah, danke, wollte das gerade fragen, weil ich bei Objekten immer das zweite mache, hier aber nur das erste gepostet wurde. Mir war nur bekannt, dass bei Pointern nur das erste geht.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

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

AW: Label[i]

  Alt 3. Apr 2018, 13:31
IS und AS sind für Klassen/Objekte. (und neuerdings auch für Interfaces).

Pointer und alle anderen Typen kann man nur Hart casten, da in den "Daten" nirgendwo der Typ gespeichert/verlinkt wird, kann es da auch keine Laufzeitprüfung (Runtime) geben.
Dort geht halt nur zur CompileTime.


HardCast macht der Compiler (daher ist das auch ein paar Nanosekunden schneller)
und SoftCast dein Programm.

Achtung, es gibt beim Compiler ein paar Casts, die auch erst zur Laufzeit passieren.
Reine HartCasts ändern keine Daten, sondern lassen dich nur anders rauf zugreifen.
Bei WideString > AnsiString und ebenso bei Variants werden vom Compiler "Übersetungsfunktionen" aufgerufen.
Und z.B. bei Interger zu Byte, mit aktiver Bereichsprüfung, wird nach dem Cast noch ein Prüfcode eingeaut. (if WarÜberlauf then RaiseError )

Delphi-Quellcode:
{$RANGECHECKS ON}
EinWord := EinInteger; // knallt, wenn nicht im Bereich von 0..65535
EinWord := Word(EinInteger); // harter Cast ohne Prüfung (einfach die höheren 2 Byte wegwerfen)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.

Geändert von himitsu ( 3. Apr 2018 um 13:34 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 10:46 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