AGB  ·  Datenschutz  ·  Impressum  







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

Funktion "nichts" zurückgeben

Ein Thema von Pseudemys Nelsoni · begonnen am 13. Jan 2005 · letzter Beitrag vom 13. Jan 2005
Antwort Antwort
Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:27
Tag,

ich hatte mal ein thema erstellt, finds aber nichtmehr, deswegen schreib ichs mal neu...

Wie gebe ich einer funktion "nichts" zurück? eigentlich ja mit NIL, aber in diesem fall geht das nicht... Sagen wir mal ich habe folgendes:

Delphi-Quellcode:
TMyType = (hi, hallo);

...

function StrToTMyType(const str: string): TMyType;
begin
  if str = 'hithen result := hi
  else if str = 'hallothen result := hallo;
  // und wenn es nun nichts der gleichen ist, was dann?
end;
was geb ich dort zurück wenn nichts der 2bedingungen zutrifft?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat
Benutzerbild von Shaman
Shaman

Registriert seit: 2. Nov 2003
Ort: Schweiz
407 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:31
Hoi

Definier halt deinen Typ anders:
TMyType = (nichts, hi, hallo); Gruss
Shaman
Daniel Pauli
Looking for answers from the great beyond
  Mit Zitat antworten Zitat
Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#3

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:34
hallo shaman,

daran habe ich auch schon gedacht, die frage ist nur, würde borland das auch so machen? also jedem aufzählungstyp ein "fehlerwert" hinzufügen?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat
Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#4

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:38
Hi,

wieso Borland? Da kannste Dich doch selber drum kümmern
Delphi-Quellcode:
TMyType = (nichts, hi, hallo);

...

function StrToTMyType(const str: string): TMyType;
begin
  result := nichts; // <<-- Defaultwert
  if str = 'hithen result := hi
  else if str = 'hallothen result := hallo;
end;
Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat
Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:40
Bei Aufzählungstypen ist es üblich einen Wert für nicht definiert zu haben.

Dieser ist dann überlicherweise Unknown, NotDefined, usw. mit einem Präfix davor.

z.B cbUnknown, tsUnknown, usw.


mfg
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat
Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#6

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 10:50
@Steve: ich habe ja nicht danach gefragt ob borland das schon irgendwo definiert hat es ging mir vielmehr darum, ob es der richtige weg ist. das es funktioniert ist logisch

@Tyrael: genau was ich wissen wollte


Danke euch allen
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Funktion "nichts" zurückgeben

  Alt 13. Jan 2005, 13:05
Mach ich auch immer so...
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
Antwort Antwort


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 07:09 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