combobox + Uppercase

[schniede]

Hallo !

hat jemand ne Idee wie ich es hinbekomme das bei der Eingabe jeweils nur der 1.Buchstabe
in Groß gewandelt wird.

also Eingabe :'test' Ergebnis : 'Test'



mfg schniede

[eddy]

Hallo schniede,

function FU(s : string) : string; // First Uppercase
begin
Result := AnsiUpperCase(copy(s,1,1)) + copy(s, 2, length(s));
end;

mfg
eddy

[schniede]

Danke eddy!!

Sieht toll aus ,nur ehrlich gesagt weiß ich nicht richtig wie ich das einbinden soll.

z.B. in

Code:

procedure TForm1.ComboBox8KeyPress(Sender: TObject; var Key: Char);

vieleicht kannst du mir noch mal auf die sprünge helfen?

mfg schniede

[Robert_G]

Ich würde es in den OnChange-Handler schreiben:

Delphi-Quellcode:

Procedure TForm1.ComboBoxChange(Sender: TObject);
Var
  EventCache: TNotifyEvent;
Begin
  With Sender As TComboBox Do
  Begin
    EventCache := OnChange;
    OnChange := Nil;
    Text := UpperCase(Copy(Text, 1, 1)) + LowerCase(Copy(Text, 2, Length(Text)));
    OnChange := EventCache;
  End;
End;

Gibt es eigentlich noch eine andere Möglichkeit einen Handler kurz auszuschalten?

[schniede]

Hab es nun doch hinbekommen nur leider nicht während der Eingabe.
Vieleicht hat einer ne andere Idee?

Code:

function FU(s : string) : string; forward;

function FU(s : string) : string;
begin
Result := AnsiUpperCase(copy(s,1,1)) + copy(s, 2, length(s));
end;

procedure TForm1.BitBtn18Click(Sender: TObject);

begin
combobox8.Text:=fu(combobox8.Text);
combobox8.Items.add(combobox8.Text);
doppelpruefen_loeschen;
end;

procedure TForm1.doppelpruefen_loeschen;
var
  a,b : integer;
begin
  a := 0;
  while a <= ComboBox8.Items.count - 2 do
  begin
    for b := a + 1 to ComboBox8.Items.count - 1 do
    begin
      if ComboBox8.Items[a] = ComboBox8.Items[b] then
      begin
        dec(a);
        ComboBox8.Items.delete(b);
        break;
      end;
    end;
    inc(a);
  end;

end;

GeorgeWNewbie ,danke nur leider schreibt meine Eingabe in der Box damit Rückwäts.
obwohl mir das so sehr gut gefallen würde.

[Robert_G]

So müsste es aber funktionieren.

Delphi-Quellcode:

Procedure TForm1.ComboBoxChange(Sender: TObject);
Var
  EventCache: TNotifyEvent;
  PrevSelStart: Integer;
Begin
  With Sender As TComboBox Do
  Begin
    EventCache := OnChange;
    OnChange := Nil;
    PrevSelStart := SelStart;
    Text := UpperCase(Copy(Text, 1, 1)) + LowerCase(Copy(Text, 2, Length(Text)));
    SelStart := PrevSelStart;
    OnChange := EventCache;
  End;
End;

(Nächstes Mal ausprobieren )

[schniede]

Da kann ich nur sagen ,Super !!! Danke euch beiden.

Genau so hatte ich es mir vorgestellt .

mfg schniede

p.s. wenn ich das so seh weiß ich was mir noch alles fehlt,
naja vieleicht versteh ich es ja auch mal.