TextOut

[xzDelphi]

Господа программисты! При создании компонента для курсового столкнулся с такой незадачей: нужно вывести значение переменной класса TStringList с помощью TextOut или, если возможно, как-нибудь по-другому, но непосредственно в самом компоненте без использования всяких Label, Edit и т.п.
Если кто может помочь,напишите пожалуйста!
PS: Преподаватель говорит вывод в TextOut можно оргранизовать циклом, но я не могу разобраться как...

[alll_23]

.....................
Script:TStringList
............
for i:=0 to Pred(Script.Count) do
begin
//Действия TextOut:= или что там
end;

[xzDelphi]

Думаю немного не так...формат TextOut (X,Y,'text');
Где X,Y - координаты...
Дело в том, что 'text' выводит исключительно строку, а мне надо несколько, от сюда и цикл...

[Stilet]

формат TextOut (X,Y,'text');

Немножко разочарую: Это формат метода в классе TCanvas, если у тебя его нет то придется рулить АПИшным TextOut.
Посему и спрашиваю - компонент твой визуальный?

[xzDelphi]

Честно говоря я в делфи ОЧЕНЬ плохо разбираюсь (см. ник), так что визуальный или нет я не знаю...
В общих чертах компонент должен брать погоду с интернет ресурса и выдавать ее в делфи, при этом он должен быть основан на родительском классе TPanel...
В общем я зделал уже все, кроме собственно вывода, у меня есть переменная TStringList, в которой хранятся данные с сайта о погоде и мне надо их вывести...препод сказал TextOut...вот в принципе и все...

[zetrix]

Дело в том, что 'text' выводит исключительно строку, а мне надо несколько, от сюда и цикл...

Вам же уже ответили:

.....................
Script:TStringList
............
for i:=0 to Pred(Script.Count) do
begin
//Действия TextOut:= или что там
end;

Конечно не всё написали, но дали идею.

Script:TStringList
....
for i:=0 to Pred(Script.Count) do
begin
Canvas.TextOut(10,10*i,Script.Strings[i]);
end;

Канву только свою используйте.(от компонента)

[Stilet]

А-а-а все... Теперь понял - Если свойство Canvas недоступно, можно достучаться до него созданием потомка и переносом этого свойства в раздел Public. Действительно неправ.

[xzDelphi]

Спсибо за коды, только поясните на счёт вот этого

Сообщение от zetrix

Script.Strings[i]

Его так и писать или это что-то другое значит?
И еще хорошо бы объяснить что за переменная Pred...

[Stilet]

Script.Strings[i]

Это выборка из списка i-той строки. тоже самое что Script[i]

что за переменная Pred...

Эт не переменная а функа возвращающаяя предыдущее значение в данном случае Script.Count-1.

[xzDelphi]

Вроди бы ясно, мне остается только подставить свою переменную вместо i, как я понимаю...
ВСЕМ СПАСИБО!