Strings und Case of

[EWeiss]

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ß