-1

基本的に、列タグにはいくつかの数字があり、行タグにはカンマで区切られたそのような数字を含む文字列がある、ある種のテーブルをコーディングしています。

という名前のTStringからすべての行タグを取得し、という名前minterms_essentialsの列タグから列タグを取得していますminterms

まず、作成した 2 次元配列にタグを付ける必要があります。そして、行の文字列に特定の文字が含まれている場合'x'は、適切な列に配置する必要があります。

この Delphi コードを作成しましたが、これまでのところアクセス違反が発生しています...

SetLength(タブラ, minterms_essentials.Count+1,minterms.Count+1);

for i := 0 to minterms.Count-1 do
begin
  tabla[0,i+1] := IntToStr(BinToInt(minterms[i]));
end;

for i := 0 to minterms_essentials.Count-1 do
begin
  tabla[i+1,0] := minterms_essentials[i];
end;

for i := 1 to minterms_essentials.Count-1 do
begin
for g := 1 to minterms.Count-1 do
  begin
    ss := tabla[g,0].Split([',']);
    for s in ss do
      begin
        if s = tabla[0,g] then
          begin
            tabla[g,i] := 'x';
          end;
      end;
  end;
end; 

これを行うためのより適切で正しい方法はありますか?

4

1 に答える 1