Jak zamienić String na element zbioru.
Np.
[code]
type
TWymiar = (
w0x0, w0x1, w0x2, w0x3, w0x4, w0x5, w0x6, w0x7, w0x8, w0x9, w0x10, w0x11, w0x12, w0x13, w0x14,
w1x0, w1x1, w1x2, w1x3, w1x4, w1x5, w1x6, w1x7, w1x8, w1x9, w1x10, w1x11, w1x12, w1x13, w1x14,
w2x0, w2x1, w2x2, w2x3, w2x4, w2x5, w2x6, w2x7, w2x8, w2x9, w2x10, w2x11, w2x12, w2x13, w2x14,
w3x0, w3x1, w3x2, w3x3, w3x4, w3x5, w3x6, w3x7, w3x8, w3x9, w3x10, w3x11, w3x12, w3x13, w3x14,
w4x0, w4x1, w4x2, w4x3, w4x4, w4x5, w4x6, w4x7, w4x8, w4x9, w4x10, w4x11, w4x12, w4x13, w4x14,
w5x0, w5x1, w5x2, w5x3, w5x4, w5x5, w5x6, w5x7, w5x8, w5x9, w5x10, w5x11, w5x12, w5x13, w5x14,
w6x0, w6x1, w6x2, w6x3, w6x4, w6x5, w6x6, w6x7, w6x8, w6x9, w6x10, w6x11, w6x12, w6x13, w6x14,
w7x0, w7x1, w7x2, w7x3, w7x4, w7x5, w7x6, w7x7, w7x8, w7x9, w7x10, w7x11, w7x12, w7x13, w7x14,
w8x0, w8x1, w8x2, w8x3, w8x4, w8x5, w8x6, w8x7, w8x8, w8x9, w8x10, w8x11, w8x12, w8x13, w8x14,
w9x0, w9x1, w9x2, w9x3, w9x4, w9x5, w9x6, w9x7, w9x8, w9x9, w9x10, w9x11, w9x12, w9x13, w9x14,
w10x0, w10x1, w10x2, w10x3, w10x4, w10x5, w10x6, w10x7, w10x8, w10x9, w10x10, w10x11, w10x12, w10x13, w10x14,
w11x0, w11x1, w11x2, w11x3, w11x4, w11x5, w11x6, w11x7, w11x8, w11x9, w11x10, w11x11, w11x12, w11x13, w11x14,
w12x0, w12x1, w12x2, w12x3, w12x4, w12x5, w12x6, w12x7, w12x8, w12x9, w12x10, w12x11, w12x12, w12x13, w12x14,
w13x0, w13x1, w13x2, w13x3, w13x4, w13x5, w13x6, w13x7, w13x8, w13x9, w13x10, w13x11, w13x12, w13x13, w13x14,
w14x0, w14x1, w14x2, w14x3, w14x4, w14x5, w14x6, w14x7, w14x8, w14x9, w14x10, w14x11, w14x12, w14x13, w14x14
);
TWymiary = set of TWymiar;
{...}
procedure TfrmMain.FormCreate(Sender: TObject);
var
wymiar: String;
wym: TWymiar;
elementy: TWymiary;
begin
elementy := [w0x0, w7x0, w14x0, w6x1, w8x1, w1x6, w13x6, w0x7, w7x7, w14x7, w1x8, w13x8, w6x13, w8x13, w0x14, w7x14, w14x14];
wymiar := 'w6x1';
wym := wymiar; //chcę dokonać takiego przypisania, aby wym miał postać właśnie w6x1
if wym in elementy then //żeby tutaj nie wywalało błędu
{...}
[/code]
Z góry dziękuję! :-)