VPF::Помогите подправить код - Форум программистов

RN3QGA

Дата 18.2.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет

Здравствуйте.
Импортирую *.xls файл в StringGrid и использую следующий код для выравнивания колонок

Код



procedure AutoSizeGridColumn(Grid : TStringGrid; 
                              column : integer); 
var 
  i : integer; 
  temp : integer; 
  max : integer; 
begin 
  max := 0; 
  for i := 0 to (Grid.RowCount - 1) do begin 
    temp := Grid.Canvas.TextWidth(grid.cells[column, i]); 
    if temp > max then max := temp; 
  end; 
  Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  AutoSizeGridColumn(StringGrid1, 1); 
end;

взято из DRKB

но почему то только первая колонка выравнивается по содержимому, а остальные нет.
Подскажите как подправить ?

Guedda

Дата 18.2.2006, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Просто ты в процедуе только первую колонку редактируешь, а вот так правильней:

Код


procedure TForm1.Button1Click(Sender : TObject);
var
  i : Integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
    AutoSizeGridColumn(StringGrid1, i);
end;

--------------------

Ll 2

RN3QGA

Дата 18.2.2006, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет

Да
Guedda, спасибо сам уже дошел, я чегой то сам зациклился капитально.
Спасибо.

orxidey

Дата 5.12.2010, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Борец с ленью

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет

Уважаемые Умы! Я начинающий программист. smile

Плиз, посмотрите, что у меня в коде за ошибка. Я пока что экспериментирую.
Здесь, используя условный цикл в несколько условий, осуществляю вроде гадалки - человек наугад вводит одну из необходимых букв и ему высвечивается фраза.
Если ошибки наиглупейшие, просьба простить... Только начала... smile

Присоединённый файл ( Кол-во скачиваний: 14 )

1.jpg.jpg 238,38 Kb

Данкинг

Дата 5.12.2010, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Во-первых, создай новую тему, и в разделе по Паскалю. Во-вторых, какая ошибка-то?

Это сообщение отредактировал(а) Данкинг - 5.12.2010, 11:59

--------------------

There's nothing left but silent epitaphs.

orxidey

Дата 5.12.2010, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Борец с ленью

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет

При занесении уже в программу одного из вариантов не высвечивается итог, а сразу прощание. smile

Добавлено через 4 минуты
В общем логическая ошибка, синтаксис не храмает.

orxidey

Дата 5.12.2010, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Борец с ленью

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет

Усе спасибо, разобралась.. Напутала с переменными... smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »