|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.04.2013, 22:29 | #1 |
Регистрация: 16.01.2013
Сообщений: 8
|
заполнение stringgrid
имеется цикл заполнения stringgrid..но здесь строку по которой заполняешь вводишь сам: '12-22-(4),3-22-(2),4-22-(2),6-22-(2),7-1-(2),7-2-(2),8-1-(2),8-2-(2)'...
как сделать ,чтоб строка бралась автоматически например из memo или listbox???? procedure TForm1.Button6Click(Sender: TObject); var s:string; i : Integer; L : TStringList; begin s := '12-22-(4),3-22-(2),4-22-(2),6-22-(2),7-1-(2),7-2-(2),8-1-(2),8-2-(2)'; L := TStringList.Create; try L.CommaText := StringReplace(s, '-', ',', [rfReplaceAll]); i := 0; repeat StringGrid1.Cells[StrToInt(L[i]), StrToInt(L[i + 1])] := MidStr(L[i + 2], 2, Length(L[i + 2]) - 2); Inc(i, 3); until i >= L.Count; finally L.Free; end; Последний раз редактировалось влад1991; 04.04.2013 в 10:53. Причина: .. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заполнение StringGrid | Новичёк_Delphi | Помощь студентам | 3 | 09.12.2012 13:53 |
[Delphi] Заполнение StringGrid из txt | ZePr | Помощь студентам | 2 | 22.07.2010 14:16 |
Stringgrid. Заполнение))) | Anna-anna | Общие вопросы Delphi | 2 | 03.05.2010 22:31 |
Заполнение StringGrid | Альбертъ | Общие вопросы Delphi | 2 | 24.07.2009 13:42 |
Заполнение StringGrid из Edit | Инна | Помощь студентам | 13 | 03.05.2007 13:44 |