![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Вообщем занималась я PHP на протяжении лет так 4-5, и не вижу трудности в создании практически любого кода. ну вот пришло время повышать свои навыки и переходить на новый уровень DELPHI.
Пишу калькулятор для одной фирмы! мною были написаны на php c ajax и exel с vb(совсем простенько) такие же калькуляторы. теперь к вопросам. представим себе есть таблица знач1|10|12|16|22|55 таких строк не больше 20. соответственно забивать в sql смыслы нету. далее есть listbox где должны выводиться только знач* т.е. выводиться должно всё что начинается с первого символа до знака |, далее переход на новую строку и.т.д. я вижу идею хранить такую маленькую базу либо в тхт или ехел, или посоветуйте где её хранить, с тем условием что база будет изредка обновляться. далее есть вот такой код. Код:
var a1, a2, a3, ss :intriger; begin a1:= StrToInt(edt1.Text); ss:= ???? end; если a1 < 5 то берём первое значение 10 из быза. если 5 > a1 < 10 то берём значение 12 из базы. и т. д. |
#2
|
|||
|
|||
![]() Где то примерно так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Par: TStringList; s:string; i,k:integer; begin Par := TStringList.Create; Par.Clear; s:='1|10|12|16|22|55'; i:=0; ExtractStrings(['|'], [' '], PChar(S), Par); i:=((strtoint(edit1.text)) div 5); k:=((strtoint(edit1.text)) mod 5); if (k>0) then inc(i); ListBox1.Items.Add(Par.Strings[i]); Par.Free; end; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |