Работа со StringTable

Форумы Помощь по пакетуРабота со StringTable ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 378

Рейтинг: 61

#1: 2010-10-02 16:42:32 ЛС | профиль | цитата

Всем здравствуйте. Подскажите, возможно ли осуществить ввод строк в начало списка в StringTable, как это возможно в ListBox?

карма: 0

HiAsmVideo

Ответов: 2293

Рейтинг: 678

#2: 2010-10-02 16:58:57 ЛС | профиль | цитата

Можно так: code_20876.txt

карма: 11

файлы: 1

code_20876.txt [803B] [181]

Голосовали:

kacmem

Ответов: 378

Рейтинг: 61

#3: 2010-10-02 17:58:58 ЛС | профиль | цитата

Спасибо большое, сам бы не додумался

------------ Дoбавленo в 17.58:
sla8a, подскажи пожалуйста, как сделать в этой же схеме, чтоб строки больше 7 не добавлялись.


Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,301,273)
{
 Width=346
 Height=258
}
Add(StringTable,5059867,553,406)
{
 Left=75
 Top=30
 Width=255
 Height=175
 Columns=#1:1|1:2|
 Point(doInsert)
 link(Str,6628367:FString,[])
}
Add(Button,5010680,399,434)
{
 Left=15
 Top=30
 link(onClick,16393605:doEvent1,[])
}
Add(FormatStr,6628367,553,357)
{
 DataCount=1
 Mask="Строка;%1"
 Point(FString)
}
Add(Hub,16393605,455,434)
{
 link(onEvent1,12453036:doOperation,[(490,440)(490,209)])
 link(onEvent2,10921906:doData,[])
}
Add(Math,12453036,511,203)
{
 Op2=1
 link(onResult,16094269:doValue,[])
 link(Op1,12453036:Result,[(517,191)(505,191)(505,247)(517,247)])
}
Add(DoData,10921906,504,441)
{
 Data=Integer(0)
 link(onEventData,5059867:doInsert,[])
}
Add(If_else,2631654,560,252)
{
 Type=1
 Op2=Integer(8)
 link(onTrue,6628367:doString,[(604,258)(604,310)(541,310)(541,363)])
 link(Op1,16094269:Value,[])
}
Add(Memory,16094269,560,203)
{
 link(onData,2631654:doCompare,[(604,209)(604,233)(548,233)(548,258)])
}

карма: 0

HiAsmVideo

Ответов: 3349

Рейтинг: 233

#4: 2010-10-02 18:06:22 ЛС | профиль | цитата

code_20879.txt

карма: 1

файлы: 1

code_20879.txt [564B] [132]

Ответов: 378

Рейтинг: 61

#5: 2010-10-02 18:16:50 ЛС | профиль | цитата

Ivann, я имел ввиду не 7 строк, а, допустим, если значение > 7, то оно не добавляется.

карма: 0

HiAsmVideo

Ответов: 2293

Рейтинг: 678

#6: 2010-10-02 18:22:27 ЛС | профиль | цитата


Add(MainForm,10967013,343,231)
{
 Width=346
 Height=258
}
Add(StringTable,5059867,567,294)
{
 Left=75
 Top=30
 Width=255
 Height=175
 Columns=#1:1|1:2|
 Point(doInsert)
 link(Str,6628367:FString,[])
}
Add(Button,5010680,413,238)
{
 Left=15
 Top=30
 Caption="Add"
 link(onClick,12453036:doOperation,[])
}
Add(FormatStr,6628367,567,238)
{
 DataCount=1
 Mask="Строка;%1"
 Point(FString)
 link(onFString,10921906:doData,[(611,244)(611,290)(506,290)(506,335)])
}
Add(Math,12453036,476,238)
{
 Op2=0.78
 Point(doClear)
 link(onResult,2631654:doCompare,[])
 link(Op1,12453036:Result,[(482,226)(470,226)(470,282)(482,282)])
}
Add(DoData,10921906,518,329)
{
 Data=Integer(0)
 link(onEventData,5059867:doInsert,[])
}
Add(If_else,2631654,518,238)
{
 Type=1
 Op2=Integer(7)
 link(onTrue,6628367:doString,[])
}

карма: 11

Форумы Помощь по пакетуРабота со StringTable ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)