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
275
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225134- 254308
- 272451
- 342234
- 371998
- 151908
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211237Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101164