AGB  ·  Datenschutz  ·  Impressum  







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

Strings und Case of

Ein Thema von Klaus Kirchhoff · begonnen am 24. Okt 2006 · letzter Beitrag vom 2. Mär 2007
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#11

Re: Strings und Case of

  Alt 24. Okt 2006, 15:22
Natürlich lassen sich Pascal-Mengen nur mit Ordinaltypen bilden, aber das ist ja keine Erklärung dafür, dass auch einzelne Nihct-Ordinal-Typen nicht funktionieren.
Das eigentliche Problem ist gleichzeitig der Vorteil von Case: es wird eine effiziente Sprungtabelle erstellt. http://www.delphipraxis.net/internal...=187088#187088
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#12

Re: Strings und Case of

  Alt 24. Okt 2006, 15:38
Danke, genau das wollte ich wissen!
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.202 Beiträge
 
Delphi 10.4 Sydney
 
#13

Re: Strings und Case of

  Alt 24. Okt 2006, 15:51
Ist nicht im Gespräch case of für Strings in einer der nächsten Delphi-Versionen zu ergänzen
Irgendwo (Borland-Community, Borland-Blogs, EKON, ...) hab ich das gehört das man hier nicht hinter C# und konsorten hinterherhinken will. Evtl. auch nur für .NET angedacht.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#14

Re: Strings und Case of

  Alt 24. Okt 2006, 16:40
Zitat von Klaus Kirchhoff:
Ich möchte folgendes realisieren:

Ich habe eine Varable von Type String "xTier" und möchte
mit einer Case-Abfrage eine Auswertung durchführen:

case "xTier" of
Hund : ;
Pferd : ;
katze : ;
end;

Das ist doch möglich oder?
Ja auf umwegen ..
Beispiel: Filetypen
Delphi-Quellcode:
  FileExt : array [0 ..10] of string = ('.mp3','.wav','.wma','.aiff','.aif','.ogg',
                                      '.wmv','.mpeg','.mpg','.dat','.avi');
Delphi-Quellcode:
var
  FileType : string;
  playindex : integer;
  ArrayIndex : integer;

begin
    PlaylistIndex := Playlist.ItemIndex;
    // Aktiven PlaylistIndex zuweisen
    FileType := Trim(ExtractFileExt(fFiles[playindex].Dateiname));
    // FileType = Extension ermitteln
    for ArrayIndex := 0 to 10 do
    // Schleife durchlaufen bis übereinstimmendes ArrayIndex gefunden
      if FileExt[ArrayIndex] = FileType then
      // FileType mit FileExt(ArrayIndex) vergleichen
      // und gefundenen ArrayIndex zuweisen
        break;
        // Raus hier wenn gefunden!
    if FileType <> 'then
    // Übereinstimmenden FileType gefunden
    // dann weiter..
    begin
      case ArrayIndex of
        // Audio
        // unten stehenden ArrayIndex gefunden dann DateiTyp = Audio
        0, 1, 2, 3, 4, 5:
        begin
        //....
        end;
        // Video
        // unten stehenden ArrayIndex gefunden dann DateiTyp = Video
        6, 7, 8, 9, 10:
        begin
        // ....
        end;
      end;
    end;
end;
Anstelle der extensions kannst du xbeliebige strings eingeben.

gruß
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#15

Re: Strings und Case of

  Alt 24. Okt 2006, 17:28
Der Code wird so vollkommen unleserlich. Grundsätzlich ist so eine Vorgehensweise sicherlich ok, aber das muss man -finde ich- etwas genauer bertrachten.

Für Deinen Code ist ein String ein unglaublich umständlich zu behandelndes Ding. Code will einfache Datentypen (Word, Integer, Zeichen, Pointer, Double). Ich würde einen String sofort nachdem er aufgetaucht ist, in eine Zahl umwandeln, oder hier, in eine Aufzählung (enum), also z.B. (natürlich mit einem Array, das dient hier nur zur Anschauung):
Delphi-Quellcode:
Type
  TTier = (trUnbekannt, trHund, trKatze, trPferd);

Function StringToTier (Const aTierName : String) : TTier;
Begin
  If atierName = 'HundThen
    Result := trHund
  Else if aTierName ='KatzeThen
    Result := trKatze
  Else if aTierName = 'PferdThen
    Result := trPferd
  Else
    Result := trUnbekannt
End;
Nun kannst Du erstmal deinen String in ein (T)Tier verwandeln und dann ordendlich und effizient damit arbeiten. Wenn Du es darstellen (anzeigen) willst, verwendest Du die Umkehrfunktion.
Delphi-Quellcode:
Var
  myTier : TTier;

Begin
  ...
  myTier := StringToTier (Edit1.Text);
  Case myTier Of
    trHund : ...
    trKatze : ...
    trPferd : ...
    trUnbekannt : ...
  End;
So ist das doch viel Übersichtlicher.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  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
 
#16

Re: Strings und Case of

  Alt 24. Okt 2006, 17:46
Oder ne theoretische andere Methode wäre auch

Delphi-Quellcode:
Case Length(String) of
...
end;
Nur müssen die Strings dann auch eindeutig zuortenbar (<-- das is nie im Leben richtig geschrieben aber ich steh auf der Leitung-.-^^) sein
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
xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#17

Re: Strings und Case of

  Alt 24. Okt 2006, 20:45
Hallo,

genau das, was in den Beiträgen #14 und #15 passiert, macht die von mir schon angegebene Funktion AnsiIndexStr.

Gruß
xaromz
I am a leaf on the wind - watch how I soar
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#18

Re: Strings und Case of

  Alt 24. Okt 2006, 20:55
Völlig richtig. Ich schrieb auch, das das soweit korrkt ist, man sich aber eben noch ein paar Gedanken mehr drüber machen sollte, so von wegen Trennung von Darstellung und Ausführung.

Leider liefert AnsiIndexStr nur eine Zahl, und da steckt keine Semantik hinter. Ich will doch lesbaren Code, der auch später noch verstanden wird. Da hilft mir ein
Delphi-Quellcode:
Case AnsiIndexStr(Edit1.Text, Animals) Of
  0 : ...
  1 : ...
End;
Nix..

Aber verwenden(!) würde ich die Funktion auf alle Fälle...
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#19

Re: Strings und Case of

  Alt 24. Okt 2006, 21:14
Hallo,
Zitat von alzaimar:
Leider liefert AnsiIndexStr nur eine Zahl, und da steckt keine Semantik hinter. Ich will doch lesbaren Code, der auch später noch verstanden wird.
Da hast Du natürlich Recht.
Zitat von alzaimar:
Aber verwenden(!) würde ich die Funktion auf alle Fälle...
Man kann sich die Semantik natürlich für diesen Fall basteln, indem man Konstanten definiert (HUND = 1; KATZE = 2;...).

Gruß
xaromz
I am a leaf on the wind - watch how I soar
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#20

Re: Strings und Case of

  Alt 25. Okt 2006, 17:29
Zitat von alzaimar:
Der Code wird so vollkommen unleserlich. Grundsätzlich ist so eine Vorgehensweise sicherlich ok, aber das muss man -finde ich- etwas genauer bertrachten.

Für Deinen Code ist ein String ein unglaublich umständlich zu behandelndes Ding. Code will einfache Datentypen (Word, Integer, Zeichen, Pointer, Double). Ich würde einen String sofort nachdem er aufgetaucht ist, in eine Zahl umwandeln, oder hier, in eine Aufzählung (enum), also z.B. (natürlich mit einem Array, das dient hier nur zur Anschauung):
Delphi-Quellcode:
Type
  TTier = (trUnbekannt, trHund, trKatze, trPferd);

Function StringToTier (Const aTierName : String) : TTier;
Begin
  If atierName = 'HundThen
    Result := trHund
  Else if aTierName ='KatzeThen
    Result := trKatze
  Else if aTierName = 'PferdThen
    Result := trPferd
  Else
    Result := trUnbekannt
End;
Nun kannst Du erstmal deinen String in ein (T)Tier verwandeln und dann ordendlich und effizient damit arbeiten. Wenn Du es darstellen (anzeigen) willst, verwendest Du die Umkehrfunktion.
Delphi-Quellcode:
Var
  myTier : TTier;

Begin
  ...
  myTier := StringToTier (Edit1.Text);
  Case myTier Of
    trHund : ...
    trKatze : ...
    trPferd : ...
    trUnbekannt : ...
  End;
So ist das doch viel Übersichtlicher.
Meiner meinung nach sind IF abfragen als lösung nicht der richtige weg..
Stell dir vor du hast 2000 Tiere die überprüft werden müssen, dein Tier ist das 2000
dann muss jede IF abfrage überprüft werden bis du zum ziel kommst.

Das geht mit einer For und Case Anweisung allemal schneller.

gruß
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


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 11: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