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;
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;
Vastaukset 2
Vanhimmat
begin
ComboBoxEx1.ItemsEx[x].caption := UpperCase(ComboBoxEx1.ItemsEx[x].Caption[1]) copy(ComboBoxEx1.ItemsEx[x].Caption,2,maxint);
end;
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;