Festes Array zur Laufzeit füllen

[0x92]

Hallo ich würde gerne ein Array zur Laufzeit erstellen das bereits entsprechende Werte in sich trägt.

Als Veranschaulichung eine kleine Grafik

http://i.imgur.com/tiuR9Ws.png


Also in der ersten Spalte Buchstaben und in der zweiten Nummern aber als String.

TestArray: array[1..26, 1..26] of String =
(('A','6'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('B','12'),
('C','18'));

Das scheint leider nicht zu klappen. Ich möchte die Werte im Array bereits vorab belegen also nicht dynamisch. Wer hilft mir :p?

[Neutral General]

Du brauchst ein Array[1..26, 1..2] of String.
Du hast ja pro Buchstabe (26) nur 2 (nicht 26) Strings: Buchstabe und Zahl.

Du kannst dieses Array im Quelltext als Konstante deklarieren:

Delphi-Quellcode:

const  
  TestArray: array[1..26,1..2] of String = (('A','1'), ('B', '2'), ('C', '3'), ...);

Eine Array-Variable kannst du dynamisch (z.B. per Buttonklick o.ä.) nicht über diese Syntax füllen.
Da muss dann ne Schleife o.ä. her.

[TiGü]

Hallo und willkommen in der DP!

Es ist in unseren Forum üblich, den genauen Fehler zu benennen und nicht nur "es geht nicht".

Delphi-Quellcode:

const
  TestArray: array [1 .. 27, 1 .. 2] of String =
    (
    ('A', '6'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('C', '18')
    );

[himitsu]

Alternativ ginge auch ein Array[1..27] of Record , wenn man die Zahl gern als Zahl Integer haben möchte.
Zählen müsste man können, wobei XE7 in der Fehlermeldung sogar die richtige Anzahl nennen sollte.


Sonst wurde noch bissl was erwähnt.
"Das scheint leider nicht zu klappen" ist keine Fehlerbeschreibung, aber da kann man gern die Fehlermeldungen kopieren (Strg+C) funktioniert in den Compiler-Meldungen (Log) und auch bei Dialogen (kopiert den Inhalt als Text).
Und Bilder bitte an den Post anhängen, denn wenn in 2 Jahren jemand den Thread findet, ist das externe Bild bestimmt nicht mehr da und dem Post somit fehlen Informationen.

[0x92]

Zitat von TiGü:

Hallo und willkommen in der DP!

Es ist in unseren Forum üblich, den genauen Fehler zu benennen und nicht nur "es geht nicht".

Delphi-Quellcode:

const
  TestArray: array [1 .. 27, 1 .. 2] of String =
    (
    ('A', '6'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('C', '18')
    );

Vielen Dank auch an die anderen 2 Benutzer der DP

Der Fehler lautete "[dcc32 Fehler] uMain.pas(22): E2072 Anzahl der Elemente (2) weicht von der Deklaration (26) ab"

@himitsu Ich benutze imgur als Imagehoster sehr unwahrscheinlich, dass die demnächst dicht machen die wirds noch ne Weile geben

[Stevie]

Ausgehend von der Grafik würd ich ja ein array[1..26] of Char vorschlagen.

[p80286]

[QUOTE=0x92;1342162]

Zitat von TiGü:

Der Fehler lautete "[dcc32 Fehler] uMain.pas(22): E2072 Anzahl der Elemente (2) weicht von der Deklaration (26) ab"

Wenn ich die Fehlermeldung richtig interpretiere sollte es so eigentlich funktionieren:

Delphi-Quellcode:

const
  TestArray: array [1 .. 27, 1 .. 2] of String =
    (
    ('A', 'B','B'.....'C'),
    ('6', '12','12'....'18')
     );

Aber vielleicht ist ein Array of record doch die bessere Wahl?

Gruß
K-H

[0x92]

[QUOTE=p80286;1342200]

Zitat von 0x92:

Zitat von TiGü:

Der Fehler lautete "[dcc32 Fehler] uMain.pas(22): E2072 Anzahl der Elemente (2) weicht von der Deklaration (26) ab"

Wenn ich die Fehlermeldung richtig interpretiere sollte es so eigentlich funktionieren:

Delphi-Quellcode:

const
  TestArray: array [1 .. 27, 1 .. 2] of String =
    (
    ('A', 'B','B'.....'C'),
    ('6', '12','12'....'18')
     );

Aber vielleicht ist ein Array of record doch die bessere Wahl?

Gruß
K-H

Fand die Lösung mit dem Array of Record am schönsten vom Zugriff her

Delphi-Quellcode:

unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ResultMemo: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure InitalizeEnglishGematriaArray;
    function CalculateValue(Str: String): Integer;
    function GetGematriaValuefromChar(Chr: Char): Integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TEnglishGematria = record
    Buchstabe: Char;
    Wert: Integer;
  end;

var
  MainForm: TMainForm;
  EnglishGematriaArray : Array[0..25] of TEnglishGematria;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  CalculateValue(Edit1.Text);
end;

function TMainForm.CalculateValue(Str: String): Integer;
var
  Target:       String;
  TargetLength: Integer;
  i:            Integer;
  CharValue:    Integer;
begin
  ResultMemo.Clear;
  CharValue := 0;
  Result := 0;

  Target := UpperCase(Str);
  TargetLength := Length(Target);

  for i := 1 to TargetLength  do
  begin
    CharValue := GetGematriaValuefromChar(Target[i]);
    ResultMemo.Lines.Add('     ' + Target[i] + ' ' + IntToStr(CharValue));
    Result := Result + CharValue;
  end;

  Result := Result;
  ResultMemo.Lines.Add('+----------+');
  ResultMemo.Lines.Add('     ' + IntToStr(Result));
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  InitalizeEnglishGematriaArray;
end;

function TMainForm.GetGematriaValuefromChar(Chr: Char): Integer;
var
  i: Integer;
begin
  if (Chr = #0) OR (Chr = '') OR (Chr = ' ') then
  begin
    Result := 0;
  end
  else
  begin
    for i := 0 to 26  do
      begin
        if Chr = EnglishGematriaArray[i].Buchstabe then
        begin
          Result := EnglishGematriaArray[i].Wert;
          Exit;
        end;
      end;
  end
end;

procedure TMainForm.InitalizeEnglishGematriaArray;
begin
  EnglishGematriaArray[0].Buchstabe := 'A';
  EnglishGematriaArray[0].Wert := 6;

  EnglishGematriaArray[1].Buchstabe := 'B';
  EnglishGematriaArray[1].Wert := 12;

  EnglishGematriaArray[2].Buchstabe := 'C';
  EnglishGematriaArray[2].Wert := 18;

  EnglishGematriaArray[3].Buchstabe := 'D';
  EnglishGematriaArray[3].Wert := 24;

  EnglishGematriaArray[4].Buchstabe := 'E';
  EnglishGematriaArray[4].Wert := 30;

  EnglishGematriaArray[5].Buchstabe := 'F';
  EnglishGematriaArray[5].Wert := 36;

  EnglishGematriaArray[6].Buchstabe := 'G';
  EnglishGematriaArray[6].Wert := 42;

  EnglishGematriaArray[7].Buchstabe := 'H';
  EnglishGematriaArray[7].Wert := 48;

  EnglishGematriaArray[8].Buchstabe := 'I';
  EnglishGematriaArray[8].Wert := 54;

  EnglishGematriaArray[9].Buchstabe := 'J';
  EnglishGematriaArray[9].Wert := 60;

  EnglishGematriaArray[10].Buchstabe := 'K';
  EnglishGematriaArray[10].Wert := 66;

  EnglishGematriaArray[11].Buchstabe := 'L';
  EnglishGematriaArray[11].Wert := 72;

  EnglishGematriaArray[12].Buchstabe := 'M';
  EnglishGematriaArray[12].Wert := 78;

  EnglishGematriaArray[13].Buchstabe := 'N';
  EnglishGematriaArray[13].Wert := 84;

  EnglishGematriaArray[14].Buchstabe := 'O';
  EnglishGematriaArray[14].Wert := 90;

  EnglishGematriaArray[15].Buchstabe := 'P';
  EnglishGematriaArray[15].Wert := 96;

  EnglishGematriaArray[16].Buchstabe := 'Q';
  EnglishGematriaArray[16].Wert := 102;

  EnglishGematriaArray[17].Buchstabe := 'R';
  EnglishGematriaArray[17].Wert := 108;

  EnglishGematriaArray[18].Buchstabe := 'S';
  EnglishGematriaArray[18].Wert := 114;

  EnglishGematriaArray[19].Buchstabe := 'T';
  EnglishGematriaArray[19].Wert := 120;

  EnglishGematriaArray[20].Buchstabe := 'U';
  EnglishGematriaArray[20].Wert := 126;

  EnglishGematriaArray[21].Buchstabe := 'V';
  EnglishGematriaArray[21].Wert := 134;

  EnglishGematriaArray[22].Buchstabe := 'W';
  EnglishGematriaArray[22].Wert := 138;

  EnglishGematriaArray[23].Buchstabe := 'X';
  EnglishGematriaArray[23].Wert := 144;

  EnglishGematriaArray[24].Buchstabe := 'Y';
  EnglishGematriaArray[24].Wert := 150;

  EnglishGematriaArray[25].Buchstabe := 'Z';
  EnglishGematriaArray[25].Wert := 156;
end;

[Mavarik]

Nee nicht so kompliziert...

Delphi-Quellcode:

type
   TEnglishGematria = record
     Buchstabe: Char;
     Wert: Integer;
   end;

Const
   EnglishGematriaArray : Array[0..25] of TEnglishGematria = ((Buchstabe:'A';Wert:6),
                                                              (Buchstabe:'B';Wert:12),
                                                               ...
                                                              (Buchstabe:'Z';Wert:156));

[p80286]

Zitat von Mavarik:

Nee nicht so kompliziert...

das halte ich aber für einen Euphemismus.
Die Syntax für eine const Array of record ist ja nun nicht soo eingängig.
(aber immer noch besser als die ursprüngliche Version)


Gruß
K-H