Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2011, 22:15   #1
nulyjarden
Пользователь
 
Регистрация: 03.04.2010
Сообщений: 26
Восклицание StringGrid

Данные из Edit должны последовательно заноситься в StringGrid, но у меня возникла проблема, в каждый столбец SG заносятся одинаковые строчки.
Никак не могу исправить
Вот мой код

Код:
For j:= 2 to 7 do begin   
  for i:= 0 to 7 do
    StrnGrd1.Cells[i,j]:= Edt2.Text[i+1];
  end;
Цикл j идет от 2 потому что, первые две строчки заняты(так должно быть).
Размерность таблицы 7х7
nulyjarden вне форума Ответить с цитированием
Старый 01.04.2011, 22:36   #2
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

скажи, как должно быть, а то ничего не понял
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 01.04.2011, 22:40   #3
nulyjarden
Пользователь
 
Регистрация: 03.04.2010
Сообщений: 26
По умолчанию

ну допустим в edit есть слово "ЛУНАТИК" нужно что б оно записалось в SG вот так

л и
у к
н
а
т

То есть дано 5 строчек, если слово не помещается в первом столбце то, продолжало заносится во 2 столбец.Свободные ячейки будут пустыми.
nulyjarden вне форума Ответить с цитированием
Старый 01.04.2011, 22:43   #4
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

неправильно цикл организовал
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 01.04.2011, 22:51   #5
nulyjarden
Пользователь
 
Регистрация: 03.04.2010
Сообщений: 26
По умолчанию

Согласен, нужно сделать что бы выводился не i элемент строки, а что бы этот цикл продолжался, а начинался заново при переходе на новый столбец
nulyjarden вне форума Ответить с цитированием
Старый 01.04.2011, 23:03   #6
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

щас поздно, если только завтра напишу, если не забуду)
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 01.04.2011, 23:05   #7
nulyjarden
Пользователь
 
Регистрация: 03.04.2010
Сообщений: 26
По умолчанию

Ну если напишешь, то заранее спасибо)А я пока сам посижу, уже чуток подправил.
nulyjarden вне форума Ответить с цитированием
Старый 01.04.2011, 23:21   #8
Сtrl
C++
Форумчанин
 
Аватар для Сtrl
 
Регистрация: 27.03.2011
Сообщений: 803
По умолчанию

Код:
procedure TForm1.Edit1Change(Sender: TObject);
var
  CurrentPos: TPoint;
  I: integer;
begin
  CurrentPos.X := 0;
  CurrentPos.Y := 0;
  for I := 1 to length(Edit1.Text) do
  begin
    if CurrentPos.Y > (StringGrid1.ColCount - 1) then
    begin
      inc(CurrentPos.X);
      CurrentPos.Y := 0;
    end;
    StringGrid1.Cells[CurrentPos.X, CurrentPos.Y] := Edit1.Text[I];
    inc(CurrentPos.Y);
  end;
end;
Ищете информацию по C++?
cplusplus.com

Последний раз редактировалось Сtrl; 01.04.2011 в 23:24. Причина: Исправил кривой алгоритм.
Сtrl вне форума Ответить с цитированием
Старый 01.04.2011, 23:25   #9
nulyjarden
Пользователь
 
Регистрация: 03.04.2010
Сообщений: 26
По умолчанию

Сtrl спасибо огромное! Я вообще в другом направлении думал))Буду твой код переваривать.
nulyjarden вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
stringgrid+колесо мыши=>stringgrid.onclick aalleexxaa Общие вопросы Delphi 5 16.02.2011 16:58
StringGrid SsdD Помощь студентам 2 03.05.2010 23:42
stringgrid Johny91 Помощь студентам 3 26.12.2009 21:01
Stringgrid Китти Помощь студентам 4 22.12.2009 21:37
StringGrid Dimon88 Компоненты Delphi 15 14.02.2008 11:44