Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#6

AW: Verwendung von Aufzählungstypen

  Alt 16. Feb 2011, 08:52
nur als Vorschlag:

in FUeberKathArray wäre nach Abarbeitung der Schleife die jeweilige Anzahl der Überkathegorien, der Rückgabewert von GetUeber ist eigenlich nur Debugkram.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StrUtils, StdCtrls;

type
TUeberKathArray=Array[0..1] of Integer;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
  FUeberKathArray:TUeberKathArray;
    function GetUeber(UKath: String): String;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.GetUeber(UKath:String):String;
Const
  KArray:Array[0..7] of String=('K1','K1','K1','K1','K2','K2','K2','K2');
var
  index, KathIndex:Integer;
begin
   index := AnsiIndexText(UKath,['UA1','UA2','UA3','UA4','UB1','UB2','UB3','UB4']);
   if (Index>-1) and (Index<=High(KArray)) then
      begin
      Result := KArray[index];
      KathIndex := AnsiIndexText(Result,['K1','K2']);
      if (KathIndex>-1) and (KathIndex<=High(FUeberKathArray)) then
          inc(FUeberKathArray[KathIndex]);
      end
   else Result := 'KEINE AHNUNG';

end;


procedure TForm1.Button1Click(Sender: TObject);
begin

    Caption := GetUeber('ua1');
end;

end.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat