ComboBox как сделать строку первой

[lu_una]

Добрый день )
И такой вопрос, в ComboBox список, который заполняется из базы, там 50 фамилий, с каждого компьютера заходит практически всегда один и тот же человек, как бы сделать, чтобы моя фамилия на моем компьютере выводилась первой, и так у всех пользователей?
Фамилия последнего посетителя с данного компьютера -была первой в следующий раз- вот так. Как это возможно?
Заранее спасибо

[Sciv]

Я через ини-файл делал, но там комбо был подключен к таблице пользователей в БД, а ини сохранялся ID user'а. После старта программы этот ID считывался и курсор позиционировался на соответствующей записи ID. В принципе, можете так же сделать.

А можно просто менять местами соответствующие строки:

Temp:=ComboBox1.Items[0];
ComboBox1.Items[0]:=ComboBox1.Items[n];
ComboBox1.Items[n]:=Temp;
ComboBox1.Refresh;

n - Ваша фамилия, Temp - временная строковая переменная

Или можно так - Переместить Вашу фамилию в начало списка:

ComboBox1.Items.Insert(0,ComboBox1.Items[n]);
ComboBox1.Items.Delete(n);
ComboBox1.Refresh;

[evg_m]

как бы сделать, чтобы моя фамилия на моем компьютере выводилась первой, и так у всех пользователей?

s:='Иванов';

можно найти в списке нужную строчку

j:=Combobox.Items.Indexof(s);

и сделать ее текущей

combobox.itemIndex:=j;

1. можно узнать имя пользователя вошедшего в Windows

GetUserName

+поиск примеров по применению

2. Запомнить имя последнего пользователя программы в Ini файле

ini.writeString('INFO','LastUser', combobox.Text);

И потом воспользоваться этой информацией

s:=ini.ReadString('INFO','LastUser', '');
j:=Combobox.Items.Indexof(r);
combobox.itemIndex:=j;

и конечно же перед использованием не забыть проинициализирвать переменные (создать объект)

ini:=Tinifile.Create(<здесь указать путь и имя ini файла >);

f:=ExtractFilePath(application.Exename) +'myapp.ini';
rini:=TiniFile.Create(f);

[Sciv]

Видимо, все-таки придется через ini делать, чтобы программа при следующем запуске знала, кто должен работать. А тогда проще фамилию сохранить да потом первой ее и вставить.

[lu_una]

Спасибо за ответы!
Мучаюсь, разбираюсь в чужой программе..
Sciv, хотела написать Вам еще в ЛС, но видимо мне эта функция не доступна пока!

[Stilet]

lu_una

На форум пиши. Одна голова хорошо а две - Змей Горыныч.

[lu_una]

Рабочий день все, продолжу в понедельник. Надеюсь советы помогут!

Все отлично, спасибо!

[lu_una]

А подскажите, куда сохранять файл ini лучше? Программа будет запускаться всеми сразу с разных компов, путь для всех для каждого свой, куда бы?

[Sciv]

Лучше в папку с программой
Для получения папки, где лежит программа, можно сделать так:

ProgPath:=ExtractFilePath(Application.ExeName);
IniFile:=TIniFile.Create(ProgPath+'config.ini');

config.ini - Ваш инишник, IniFile - объект типа TIniFile (для работы подключить модуль IniFiles) - думаю, это Вы и так знаете

[lu_una]

Так программа лежит на общем диске, и все ею пользуются, файлик каждому свой нужен. Программно делаю создание папки на С, создает, а если делаю создание файла ини в эту папку - программа падает. Какие проблемы у него?
На рабочий стол файл создавал мне, еще куда то. Туда не хочет.