Несколько вопросов

[Зубоскалик]

1. Можно ли анализи ровать написанное в Edit-строке по типу
"Если есть такой текст, то...", то есть проверять не весь текст,
а именно наличие слова в нем?

2. Можно в Delphi7 работать в php?

3. Как изменить стандартную иконку .exe'шника? Не ярлыка, а
именно файла.

4. Не является ли попытка продать программу, написанную на дельфи
нарушением каких-либо авторских прав? А то одноклассники просят
прогу для решения уравнений по алгебре, а даром отдавать не хочется,
все-таки, сам написал .

5. И можно ли настраивать прогу для того, чтобы она скрывала свое
окно(то есть работала в фоновом режиме), разворачивалась на весь
экран или скрывала себя в списке процессов?

6. Какие переменные надо юзать для калькулятора? А то integer нельзя
делить, а single глючит, при расчете крупных дробей(В программке из
пункта 4). А то глючную программу продавать, да и просто отдавать -
себе дороже .

7. Можно ли создать инсталлятор для проги? С указанием пути, вводом
серийного номера(см. пункт 4) и распаковкой? Именно в Delphi7

[SERG1980]

1. Можно использовать ф-ию Pos
Pos(Substr, S: string): Byte - обнаруживает первое появление подстроки Substr в строке S. Возвращает номер той позиции, где находится первый символ подстроки Substr. Если в S подстроки Substr не найдено, результат равен 0.
3. В главном меню делфи вибираем Project->Options->Application или программно
5. можно обсуждалось много раз на форуме
6. Почему integer делить нельзя. Можно только результам уже будет не integer а real
7. Исталяторов куча, я например пользуюсь InnoSetup

[puporev]

6. Какие переменные надо юзать для калькулятора?

Тип переменных(не переменные) обычно используют extended.

[Зубоскалик]

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

6. Почему integer делить нельзя. Можно только результам уже будет не integer а real

Но у меня при операторе intergerA/integerB писал ошибку.

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

5. можно обсуждалось много раз на форуме

Где именно?

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

7. Исталяторов куча, я например пользуюсь InnoSetup

Я имел ввиду, как сделать инсталлятор С ПОМОЩЬЮ Delphi7 , а не сторонних прог.

[puporev]

Но у меня при операторе intergerA/integerB писал ошибку.

a,b,c:integer;
d:extended (real и т.д.);
d:=a/b; Ошибки не будет
c:=a/b; ошибка

[Зубоскалик]

Спасибо. А как помещать expended и real в строку. по аналогии с InttoStr,
чтонить вроде exptoStr, realtostr?

[SERG1980]

formatfloat('0.00',myreal); сколько нулей после точки столько знаков после запятой
на счёт деления почитайте ниже прикреплённый файл. Да и если прикинуть 2/3 то результат ни как не integer;

[FaTaL]

Сообщение от Зубоскалик

Я имел ввиду, как сделать инсталлятор С ПОМОЩЬЮ Delphi7 , а не сторонних прог.

Я обычно пишу инсталлятор через ресурсы. Помещаю в ехе всё файло, а потом просто его распаковываю и всё по указанному пути.

[Зубоскалик]

Спасибо, люди! Но у меня еще вопросы:
1. Как позволять юзеру вписывать в строку Edit
только определенные символы?(Например только
цифры или только буквы?)
2. Как ограничить максимальное кол-во вписываемых
символов и как ограничить величину переменной
(Single и Extended)?

Сорри за вопросы, я просто нуп

[puporev]

1. Пример контроля правильного ввода чисел. Замени StringGrid1KeyPress на Edit1KeyPress

// Функция обеспечивает ввод в ячейку только допустимых символов
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var n,row:integer;c:char;
2. а)Свойство MaxLength
    б) см. пост №7, или FloatTostrF(a,ffFixed,5,2);
begin
n:=strtoint(edit1.text);
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
           #13:      // клавиша <Enter>
                if StringGrid1.RowCount <=n-1 then
                  begin
                     StringGrid1.RowCount := StringGrid1.RowCount + 1;
                     keybd_event(40, 0, 0, 0);
                  end;
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(StringGrid1.Cells[StringGrid1.Col,0]) <> 0
                      then Key := Chr(0);

        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

2. а) свойство MaxLength.
б) см. пост №7, или FloatToStrF(a,ffFixed,5,2)