基本的に、列タグにはいくつかの数字があり、行タグにはカンマで区切られたそのような数字を含む文字列がある、ある種のテーブルをコーディングしています。
という名前の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;
これを行うためのより適切で正しい方法はありますか?