TEdit erste Buchstabe immer Groß schreiben...

[Gandimann]

Halo Freunde ,
bei SQL Anfrage schicken muss ich immer erste Buchstabe im TEdit groß schreiben sonst findet mein Query gar keinen Datensatz. Gibt es eine Möglichkeit dass man im TEdit erste Buchstabe immer groß geschrieben bekommt. Mit Char.ecUpperCase griege ich ganze Text groß ich brauche aber nur erster Buchstabe...?


´nen guuuuuten Rutsch ins neue..

[DeddyH]

Ich würde eher das SQL anpassen.

[Gandimann]

Thanx Detlef ,
für dein Antwort. Aber wie griege ich im SQL das hin !
UND general wie ist es möglich das beim daten eingabe immer rste Buchstabe nur im Uppercase bleibt ?

[Matze]

Um trotzdem deine Frage zu beantworten, könntest du das ungefähr so lösen (OnChange):

Delphi-Quellcode:

MyText := Edit.Text;
MyText := LowerCase(MyText);
MyText[0] := UpperCase(PChar(MyText[0]));
Edit.Text := MyText;

Oder so ähnlich. Mit dem Char bin ich mir grad nicht ganz sicher. Das müsstest du ausprobieren.

[DeddyH]

SQL-Code:

SELECT Feld FROM Tabelle
WHERE UPPER(Feld) = UPPER(Text_aus_dem_Edit)

[Gandimann]

@Matze und Detlef

funzen leider beide nix....

[Klaus01]

im onExit Ereignis:

Delphi-Quellcode:

MyText := Edit.Text; 
MyText := LowerCase(MyText); 
MyText[0] := UpperCase(MyText[0]); 
Edit.Text := MyText;

Grüße
Klaus

[DeddyH]

MyText[1]

[Gandimann]

Nein nein ich habs nun hin gegriegt und zwar geht so....


procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> '' then begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Le ngth(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;

[DeddyH]

Trotzdem muss die Abfrage von oben doch auch funktionieren.