Вот пара функций, как напишу еще обязательно сюда пришлю.
1. Функция заменяющая в строке Str символы Chr1 на симвлолы Chr2 Код:
Function Repl(Str:String;Chr1,Chr2:Char):String; Код:
Function CreateCharStr(Chr:Char;Num:integer):String; |
Вот две функции возвращающие знак числа:
Код:
Function ISgn(Val:Integer):Integer; Код:
Function RSgn(Val:Real):Real; |
Ну вроде написал функции преобразования типа Real в тип String и обратно :).
Правда работают немного не точно :( даж не знаю почему... если найдете ошибку, то исправьте пожалуйста. 1. Эта для того чтобы была :) Код:
Function IntToReal(Val:Integer):Real; Код:
Function XStepY(X:Real;Y:Integer):Real; Код:
Function XStepY(X:Real;Y:Integer):Real; Код:
Function RealToString(Val:Real):String; Код:
Function String2Real(Val:String):Real; |
Положительный X в любой степени :)
Код:
Function RXStepY(X:Real;Y:Real):Real; |
видать не получится сделать строку в вещественное число, и все из-за неточности вычислений паскаля...
вот накидал тут прогу: Код:
program fff; :) |
Цитата:
А вот эта строчка меня заинтересовала... Код:
drawText('Target: '+S2R(str), 0, 20); А я старался :lol: |
И еще, когда я делал свою фунцию, то столкнулся с проблемой: если передать в функцию целое число, то все вычисления будут неверными... надо бы в твоей такую проверку сделать... и еще надо сделать проверку на отрицательные числа... т.к. паскаль в функции StringToInteger(GetChar(sval,p-i-1))*ind при первом минусе вернет 0...
вот пока такие рассуждения :) |
Короче выход такой... надо (мне по крайней мере) достать Java SDK и писать расширение на чистой яве и подключать к паскалю как модуль... другого выхода я пока не вижу... может на яве будет правильно работать...
PS: скачать с нета 50 метров думаю крутовато будет... хотя посмотрим... |
да, решение видишь правильное, но только к 50 метрам SDK тебе еще надо будет среду программирования гденить скачать... :)
|
Ну редактор есть в VS.Net 2003, а компилить буду через коммандную строку... как это описано в справке по мидлетпаскалю...
|
если будешь писать либы, то цены тебе не будет! :rolleyes:
|
Цитата:
|
Цитата:
ЗЫ флуд вообщето в FAQ мастдай... я потом все это почищу... :) |
Стирай стирай, потом в аське поболтаем ;)
|
Цитата:
Дадите?) |
Часовой пояс GMT +4, время: 17:01. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot