Potrzebuję w clicku edita wprowadzać tekst gromadzony w zmiennej, jednak tekst ten to ciąg znaków w stylu Cu1, Kb20, Id75, itp. na swoje potrzeby nastukałem taką prostotę:
var
zXD : String = 'none';
begin
if (Pos(zXD, edt1.Text) = 0) and (zXD <> 'none') then
begin
if edt1.Text <> '' then
edt1.Text := edt1.Text + ', ' + zXD
else
edt1.Text := zXD;
end;
Problem pojawia się w momencie gdy najpierw zmienna zXD przechowuje wartość Cb15, a póżniej Cb1, ponieważ odczytuje Cb1 jako coś co już istnieje w edt1.Text, jako że wszystkie gromadzone pozycje odgradzam przecinkiem myślałem, że lekka zmiana powyższego kodu rozwiąże mój problem:
var
zXD : String = 'none';
begin
if (Pos(zXD, edt1.Text + ',') = 0) and (zXD <> 'none') then
begin
if edt1.Text <> '' then
edt1.Text := edt1.Text + ', ' + zXD
else
edt1.Text := zXD;
end;
Niestety nie przynosi to żadnych rezultatów ;/
Ma ktoś może jakiś pomysł jak to ugryźć?
EDIT: Przychodzi mi do głowy jeszcze rozwiązanie by do zmiennej już trafiały dane z ',' i wtedy usunąć go z tego kodu, jednakże może jest jakieś rozwiązanie w tym miejscu?