forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   FormAddString с новой строки (http://forum.boolean.name/showthread.php?t=4632)

VM 03.10.2007 13:14

FormAddString с новой строки
 
Выводим данные в цикле
Код:

repeat
  .....
  i := FormAddString(sValue);
until некое условие;

Как сделать, чтобы очередная порция данных выводилась с новой строки?

Frank 03.10.2007 13:37

Re: FormAddString с новой строки
 
Код:

repeat
  .....
  i := FormAddString(sValue+chr(10));
until некое условие;


ARV 03.10.2007 13:46

Re: FormAddString с новой строки
 
После каждого ForAddString вставлять FormAddSpace
Однако, "пробел" этот не на всех моделях телефонов поддерживается (замечено на Самсунге).

ARV 03.10.2007 13:47

Re: FormAddString с новой строки
 
chr(10) не поможет! ;)

Frank 03.10.2007 13:58

Re: FormAddString с новой строки
 
Цитата:

Сообщение от ARV
chr(10) не поможет! ;)

Неужели?! :) У меня все отлично работает, пример:
Код:

program Proba;
var        x: integer;
       
begin
        showForm;

        x:=FormAddString('1'+chr(10));
        x:=FormAddString('2'+chr(10));
        x:=FormAddString('3'+chr(10));
       
               
        delay(150000);
end.


Bruteo 03.10.2007 14:07

Re: FormAddString с новой строки
 
Цитата:

Сообщение от Frank
У меня все отлично работает

+1

VM 03.10.2007 14:14

Re: FormAddString с новой строки
 
Frank
Спасибо, на эмуле всё работает. На мобиле попробую позже.
Еще вопрос.
Если вывод данных с помощью DrawText, как тогда прокручивать результирующий список.

Frank 03.10.2007 14:40

Re: FormAddString с новой строки
 
хм... тут посложнее... придется написать процедуру, которая будет перерисовывать весь твой текст в нужных тебе позициях на экране...

ARV 03.10.2007 14:52

Re: FormAddString с новой строки
 
оба способа имеют ограничения, как выяснилось - даже не на всех эмуляторах одинаково работают.


Часовой пояс GMT +4, время: 18:11.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot