Казахстанские технические форумы

Программное обеспечение => Языки программирования => Тема начата: b2 от 17 Апрель 2006, 00:12:06

Название: Ищу людей которым нравится Delphi
Отправлено: b2 от 17 Апрель 2006, 00:12:06
Ищу людей которым нравится паскаль, людей которые пишут или учатся писать на паскале, в том числе и в дельфи.
Собственно все.
Если что пишите сюда
b2@topmail.kz
буду рад пообщаться с единомышленниками.
Название: Re: Ищу людей которым нравится Delphi
Отправлено: @le][ от 06 Июнь 2006, 10:41:12
Я и не поклонник Delphi ,но на нем тоже делают выкрутасы...............
Название: Re: Ищу людей которым нравится Delphi
Отправлено: malirdo от 15 Июль 2006, 22:16:59
Мне очень нравится делфи .. ,он очень подходит для начинающих ,когда на нем делал даже вирусы...
Название: Re: Ищу людей которым нравится Delphi
Отправлено: ClasSiC от 24 Ноябрь 2006, 09:37:38
Помогите пожалуйста с квадратным уравнением на DELPHI!/
Выложите пожалуйста исходник: ax2(квадрат)+bx+c=0 ???
Название: Re: Ищу людей которым нравится Delphi
Отправлено: ClasSiC от 25 Ноябрь 2006, 23:59:13
Помогите пожалуйста с квадратным уравнением на DELPHI!/
Выложите пожалуйста исходник: ax2(квадрат)+bx+c=0 ???


Всем СПС!.Я его сделал!.Вот Код Кому будет интересно!!!
unit SqRoot_;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

// решает квадратное уравнение
procedure SqRoot( a,b,c : real; var x1, x2 : real; var ok : boolean);
    { a,b,c - коэффициенты уравнения
      x1,x2 - корни уравнения
      ok = True  - решение есть
      ok = False - решения нет }
    var
        d : real; // дискриминант
    begin
        d:= Sqr( b ) - 4*a*c;
        if d < 0
             then
               ok := False  // уравнение не имеет решения
        else
            begin
                ok := True;
                x1 := (-b + Sqrt(d)) / (2*a);
                x2 := ( b + Sqrt(d)) / (2*a);
            end;
    end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   k1,k2: real;  // корни уравнения
   rez: boolean; // True - решение есть, False - решения нет
   mes: string;  // сообщение
begin
   SqRoot(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text),
                     StrToFloat(Edit3.Text), k1,k2,rez);
   if rez then
       mes := 'Корни уравнения' + #13 +
                 'x1='+FloatToStrF(k1,ffGeneral,4,2)+#13+
                 'x2='+FloatToStrF(k2,ffGeneral,4,2)+#13
   else
       mes := 'Уравнение не имеет решения';

   label5.Caption := mes;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
          winhelp(Form1.Handle,'sqroot.hlp',HELP_CONTEXT,1);
end;

end.

Пользуйтесь на здоровье!!!
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Axel от 31 Январь 2007, 21:35:49
Мне тоже нравится Delphi, но заодно я хотел бы задать вопрос бывалым - как с помощью кода узнать общий объём видеопамяти на компьютере, а? Ну ОЧЕНЬ нужно!  ???
Название: Re: Ищу людей которым нравится Delphi
Отправлено: informatik от 30 Январь 2008, 14:02:45
Приветствую! Дельфи хорошая программа, но я ее не обожаю... Так программирую...
-------------------------------------------------------------------------------------------------
Pascal- Rulez!!!!!!!!!!!!!
 (;?)
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Fox_KZ™ от 05 Февраль 2008, 02:57:13
Мне тоже нравится Delphi, но заодно я хотел бы задать вопрос бывалым - как с помощью кода узнать общий объём видеопамяти на компьютере, а? Ну ОЧЕНЬ нужно!  ???
У тебя какая версия делфи???
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Smith от 05 Февраль 2008, 11:53:06
Мужики! На Python пишите, а то бывает нужна какая-либо прога на линух, а её нету...

PS: сорри за оффтоп, сразу не прочёл название топика...
Название: Re: Ищу людей которым нравится Delphi
Отправлено: informatik от 05 Февраль 2008, 13:28:47
Мужики! На Python пишите, а то бывает нужна какая-либо прога на линух, а её нету...

PS: сорри за оффтоп, сразу не прочёл название топика...
Дельфи для Linux 2007= Kylix;
Питон? С++ и точка...
Название: Re: Ищу людей которым нравится Delphi
Отправлено: kms от 05 Февраль 2008, 14:21:46
Дельфи для Linux 2007= Kylix;
Kylix, Kylix  (13/) ааа, это тот. Не ужели кто про него помнит :) Даром не нужен.
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Smith от 05 Февраль 2008, 14:51:04
что то и вправду informatik устаревшие языки предлагает: паскаль, kylix...

Питон? С++ и точка...
А на счёт c++. это да... согласен..
Название: Re: Ищу людей которым нравится Delphi
Отправлено: kms от 05 Февраль 2008, 18:46:23
Питон? С++ и точка...
Вот блин, а мужики то не знают (http://python.com.ua/forum/) :)
Название: Re: Ищу людей которым нравится Delphi
Отправлено: informatik от 06 Февраль 2008, 12:52:59
Дельфи для Linux 2007= Kylix;
Kylix, Kylix  (13/) ааа, это тот. Не ужели кто про него помнит :) Даром не нужен.

А может и дельфи не нужна:-)
Название: Re: Ищу людей которым нравится Delphi
Отправлено: kms от 06 Февраль 2008, 13:40:00
А может и дельфи не нужна:-)
Ну ты же сам говоришь - "С++ и точка"  (,.)
А если серьезно, Kylix давно уже не обновляется и не поддерживается Borland'ом (кстати Kylix совсем не борландовская разработка а создана вроде кем то из "наших"), да и насколько я слышал реализовано там все через wine, лучше уж теже виндовские проги запускать через wine, по крайней мере он то уж чуть ли не каждую неделю обновляется.
Название: Re: Ищу людей которым нравится Delphi
Отправлено: ermek82 от 14 Март 2008, 08:20:50
Фак по делфи
Большой фак (delphi-bigfaq.rar)
http://depositfiles.com/files/4108140
Большой фак (delphi-faq-1.0.rar)
http://depositfiles.com/files/4108150
WIN API (WIN API.rar)
http://depositfiles.com/files/4108153
Название: Re: Ищу людей которым нравится Delphi
Отправлено: informatik от 31 Март 2008, 13:51:19
Приветствую!
Прям как в рекламе(перефразировано)... "Не любишь Дельфи? Ты просто не умеешь в ней программировать"


Цитировать
Замечание пользователю informatik. No offtop please!!!
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Петр Гердт от 15 Ноябрь 2010, 22:39:23
 Здрасте всем! Слышал что на Delphi можно писать драйвера. Подскажите, где про это можно почитать по подробнее. Кстати есть интересная ссылка: www.delphiworld.narod.ru .Там очень много исходников.
Название: Re: Ищу людей которым нравится Delphi
Отправлено: lix от 25 Декабрь 2015, 12:30:54
Приглашаю всех на тематический форум программистов Казахстана http://lix.kz
Название: Re: Ищу людей которым нравится Delphi
Отправлено: Aigyul от 09 Январь 2016, 22:41:42
Слышал что на Delphi можно писать драйвера. Подскажите, где про это можно почитать по подробнее.
Мне кажется, его уже никто не использует в прикладных целях... Так для баловства, может только.