String Mengen Abfragen???

[downloads]

Hallo,

ich habe einen String aus ca 3 Zeichen 'S +'
nun möchte ich diesen prüfen und ja nach Inhalt etwas anderes ausführen. Mit if then wäre dies einfach möglich.
if cmd='AAA' then etc...

aber ich möchte den String mit 3 Vorgegebenen Menge Verleichen
Bsp.
Menge1 enthält 'AAA' 'BBB' 'CCC'
Menge2 enthält 'DDD' 'EEE' 'FFF'
Menge3 enthält 'GGG' 'HHH' 'III'
Ist der gegebene Sting in Menge 1 so wird die Funktion 1 ausgeführt, ist er in Menge2 enthalten Funktion 2, etc... sonst Funktion Error.

Wie kann man so was erreichen?
const Menge1 = ['AAA','BBB','CCC'] funktioniert nicht? Ordinal Typ erförderlich ??

Das Abfragen sollte meiner Meinung nach mit if cmd in Menge1 möglich sein?

Dank für eure Hilfe
Grüsse
Severin

[Thomas Stutz]

[font  size=2 face="Courier New" color="#000000"]Hi,

1) Definieren kannst du deine Menge so:

const
 Menge1 : array[0..2] of string = ('AAA','BBB','CCC');


2) Zugreifen auf die Menge1 kannst du so:

[font color="#000080"]// 1. Element in Label1 anzeigen.
[/font]Label1.Caption := Menge1[0]
[/font]

[downloads]

Hallo

das Definieren funktioniert auf diese Weise wunderbar, aber ist die Abfrage nicht einfacher zu erledigen als alle Elemente einzeln mit dem vorgabe Wert zu verglichen?
so was wie ist "cmd" enthalten im Array?

Grüsse
Severin

[Thomas Stutz]

// Hinter einer Funktion "if cmd in Menge1" steckt aber auch eine Schleife!

function StringInMenge(AString: string; AMenge: array of string): Boolean;
var
  i: Word;
begin
  Result := False;
  for i := Low(AMenge) to High(AMenge) do
  begin
    if AString = AMenge then
    begin
      Result := True;
      Break;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if StringInMenge('AAA', Menge1) then
    ShowMessage('Yes...!');
end;

[downloads]

Vielen Dank

Habe gedacht Delphi hätte schon so was eingebaut.

[Peda]

Habe gedacht Delphi hätte schon so was eingebaut.

schon, nur kannst du die Mengen-Funktionen nur bei Typdeklarationen der Form set of anwenden, was wieder nur bei aufzählbaren Typen bis maximal 256 Items funktioniert. Dann wären Abfragen à la 'in Menge enthalten', 'Schnittmenge', etc. möglich.