Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
17th
Фев
Пример как можно загрузить через TStringList в Edit’ы
Posted by Chas under Пост-обзор
Dima DDM:
Покажите хоть пример как можно загрузить через TStringList в Edit’ы
…Пожалуйста
Stilet:
Как шаблон:
Создание:
var s:TStringList;i:integer;
…
s:=TStringList.Create;
…
s.LodaFromFile(‘File’);
…
s:=TStringList.Create;
…
s.LodaFromFile(‘File’);
Загрузка в Комбик:
for i:=0 to s.Count-1 do
ComboBox.Items.Add(copy(s[i],1,pos(‘ ‘,s[i])))
ComboBox.Items.Add(copy(s[i],1,pos(‘ ‘,s[i])))
Получение данных:
var e:TStringList;
…
e:=TStringList.Create;
e.DelimitedText:=s[Combobox.ItemIndex];
Edit1.Text:=e[0];
Edit2.Text:=e[1];
Edit3.Text:=e[2];
…
e.free;
…
…
e:=TStringList.Create;
e.DelimitedText:=s[Combobox.ItemIndex];
Edit1.Text:=e[0];
Edit2.Text:=e[1];
Edit3.Text:=e[2];
…
e.free;
…
Читай в хелпе подробности о представленных тут свойствах
