|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.09.2007, 00:08 | #1 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
в одной ячейке надписи были в 2-х или 3-х рядках и текст отображался целиком а не прятался за границами
Как мне сделать так чтобы в одной ячейке надписи были в 2-х или 3-х рядках и текст отображался целиком а не прятался за границами ячейки. спасибо.
|
20.09.2007, 00:48 | #2 |
Форумчанин
Регистрация: 28.06.2007
Сообщений: 123
|
В лейбл вроде нельзя,можно в TMemo.
|
20.09.2007, 01:07 | #3 |
Форумчанин
Регистрация: 28.06.2007
Сообщений: 123
|
Вот пока делал свою прогу получилось у меня что в лейбл можно строчки делать)))
while not eof(f) do ///Пока не конец файла begin read(f,c); ///Читаем из файла ф символ в переменную типа char g:=g+c; ///Добавляем наш символ в переменную g типа string End; Label1.Caption:=(g); ///Ну и выводим в лейбл что получается Код не проверял,должен работать. |
20.09.2007, 07:52 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Пробуем так: #13#10
Life is too short, play more...
Как правильно задавать вопросы |
20.09.2007, 07:55 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
В лейбл можно все, например :
[I]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Memo1: TMemo; procedure Memo1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Memo1Change(Sender: TObject); var i:integer; begin // А вот так мы в лабель выводим несколько строк в цикле // вообще если иметь тело с потомками TStrings, то мона в лабель // выводить одной командой просто: // label.caption:=memo.lines.text // но поскольку тебе нужен скорее всего цикл то смотри сюда: //********* FOR ****************** Label1.Caption:=''; for i :=0 to Memo1.Lines.Count-1 do begin Label1.Caption:=Label1.Caption+#10# 13+Memo1.Lines; end; //******* END FOR ****************{} end; procedure TForm1.FormCreate(Sender: TObject); begin // а это чтоб слова не переносились, и не рвались Label1.AutoSize:=true; end; end. Вот так!
I'm learning to live...
|
20.09.2007, 09:01 | #6 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
я извиняюсь мне нада в ячейку в StringGrid
|
20.09.2007, 09:10 | #7 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы |
20.09.2007, 20:33 | #8 |
Пользователь
Регистрация: 18.09.2007
Сообщений: 11
|
Спасибо но просьба. Как мне сделать так штоби при вводе массива:
procedure TForm1.Button4Click(Sender: TObject); var i,j,ii:integer; begin f1:=TStringList.create(); f1.LoadFromFile('\\172.50.47.23\x\V asa.ksp'); ii:=0; for i:=0 to 5 do for j:=2 to 5 do begin Form2.StringGrid1.Cells[i,j]:=f1.Strings[ii]; inc(ii); end; Form2.Show; end; Все значения сами переносились по словам и когда вводить текст тоже чтобы само переносилось по словам Спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скопировать по одной ячейке из нескольких файлов в один | Nimo | Microsoft Office Excel | 2 | 09.08.2008 09:25 |
В одной ячейке текст и число | Shavminator | Microsoft Office Excel | 11 | 27.12.2007 14:32 |
два числа в одной ячейке | zetrix | Microsoft Office Excel | 1 | 23.12.2007 23:24 |
Нужно разбить те числа которые в одной ячейке по разным ячейчам в столбец | Alexander_Gr | Microsoft Office Excel | 8 | 20.11.2007 08:02 |
суммирование вводимых чисел в одной ячейке | Albert | Microsoft Office Excel | 8 | 07.01.2007 23:47 |