Miksi tuo koodinpätkä ei muuta comboboxin itemsien nimien alkukirjaimia isoiksi?
Koodi:
procedure TForm1.ComboBoxEx1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
x,i : integer;
kirjain : string;
begin
for x := 0 to ComboBoxEx1.ItemsEx.Count -1 do
begin
kirjain := UpperCase(ComboBoxEx1.ItemsEx[x].Caption[1]);
kirjain := ComboBoxEx1.ItemsEx[x].caption[1];
end;
ComboboxEx aloittelijan ongelma
d6x
2
286
Vastaukset
- dlp
begin
ComboBoxEx1.ItemsEx[x].caption := UpperCase(ComboBoxEx1.ItemsEx[x].Caption[1]) copy(ComboBoxEx1.ItemsEx[x].Caption,2,maxint);
end; - zs0
var
i: integer;
s: string;
begin
for i := 0 to ComboBoxEx1.Items.Count-1 do
begin
s := ComboBoxEx1.ItemsEx[i].Caption;
s[1] := UpperCase(s)[1];
ComboBoxEx1.ItemsEx[i].Caption := s;
end;
end;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Yksi viesti häneltä ja ottaisin takaisin
Mutta ei sitä tule. Ja ehkä parempi niin, tein jo valintani. En saanut häneltä tarpeeksi, kaikki muu meni minun edelle j582463Sä olet epävakaa
tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all472281Mieti miten paljon yritin
Löytää yhteyttä kanssasi uudelleen sen väärinymmärryksen jälkeen. Koen etten tullut puoleltasi hyvin kohdelluksi mies😔611964Keskisarjan puheet
Onko kansanedustajan sopivaa puhua tuollai vai pitäisikkö potkia pois eduskunnasta?3071414- 791309
- 641256
- 621072
- 631022
- 25952
- 77934