a jeszcze jedno dla osoby, która się dołączyłą do posta...
Odpowiadam na pytanie:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
LengthOldText: Integer;
lcount : Integer;
begin
LengthOldText:=Length(ComboBox1.Text); //zapamietanie dlugosci wpisanego ciagu
if ComboBox1.Text='' then exit; //jesli jest on pusty to exit
with ComboBox1 do
for lcount:=0 to Items.Count-1 do //sprawdzamy wszystkie item'y
if CompareText(Text,Copy(Items[lcount],1,Length(Text)))=0 then //porownanie bez uwzglednienia polskich liter
begin
Text:=Items[lcount]; //wpisanie calego tekstu
SelStart:=LengthOldText; //ustawienie skad ma zaczac zaznaczac
SelLength:=Length(Text)-LengthOldText; //ustawienie dokad ma zaznaczac
exit; // jesli znalaz odpowiednik to exit
end;
end;
Prosze bardzo...
A na mój problem nadal oczekuję odpowiedzi.