Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
5. Okt 2018
procedure TForm1.FormCreate(Sender: TObject);
begin
(ComboEdit1.Items as TStringList).CaseSensitive := True;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
5. Okt 2018
Dann wird der falsche Eintrag zurückgeliefert. Das Problem liegt ja genau hier.
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStrings;
begin
sl := TStringList.Create;
sl.CommaText := 'Hallo, HALLO, haLLo';
edit1.Text := sl;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
5. Okt 2018
Dann so
procedure TForm1.ComboEditChange(Sender: TObject);
var
ce: TComboEdit;
se: TStringsEnumerator;
s: String;
idx: Integer;
begin
ce := (Sender as TComboEdit);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
5. Okt 2018
So funktioniert es
procedure TForm1.ComboEditChange(Sender: TObject);
var
ce: TComboEdit;
se: TStringsEnumerator;
s: String;
begin
ce := (Sender as TComboEdit);
if ce.ItemIndex >= 0 then