Jump to content

youjnhuhn2

Active Members
 View Profile  See their activity

  • Posts

    83

  • Joined

  • Last visited

 Content Type 

Posts posted by youjnhuhn2

  1. Ajutor Delphi7

    in Off-topic

    Posted

    pana acum am facut asta si aici sunt mort n-am niciun dumnezeu

    	

        unit Unit1;

        interface

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

        type
          TForm1 = class(TForm)
            MainMenu1: TMainMenu;
            Fisier1: TMenuItem;
            Deschidere1: TMenuItem;
            Parasireaplicatie1: TMenuItem;
            Vizualizare1: TMenuItem;
            Vizualizarevector1: TMenuItem;
            Calcul1: TMenuItem;
            Calculeaza1: TMenuItem;

            procedure Deschidere1Click(Sender: TObject);
            procedure Parasireaplicatie1Click(Sender: TObject);
          private
            { Private declarations }
          public
            { Public declarations }
          end;

        var
          Form1: TForm1;

        implementation

        {$R *.dfm}

        procedure TForm1.Deschidere1Click(Sender: TObject);
        var
          openDialog : TOpenDialog;
        begin

          openDialog := TOpenDialog.Create(self);

          openDialog.InitialDir := GetCurrentDir;

          openDialog.Options := [ofFileMustExist];

          openDialog.Filter :=
            'Text Files|*.txt|' ;

          openDialog.FilterIndex := 2;

         if openDialog.Execute
          then ShowMessage('File : '+openDialog.FileName)
          else ShowMessage('Deschiderea fisierului e fost anulata');


          openDialog.Free;
        end;



        procedure TForm1.Parasireaplicatie1Click(Sender: TObject);

        var
          buttonSelected : Integer;
        begin

          buttonSelected := MessageDlg('Sigur doriti sa parasiti aplicatia?',mtCustom,
                                      [mbYes,mbNo], 0);


          if buttonSelected = mrYes    then Application.Terminate;


        end;

        end.

  2. Ajutor Delphi7

    in Off-topic

    Posted · Edited by youjnhuhn2

    Am un proiect de facut in Delphi7 care imi cere urmatorul lucru:

    sa afisez elementul maxim/minim al unui vector ce-l citesc dintr-un fisier .txt

    problema e ca nu stiu cum sa urc vectorul din fisier intr-o variabila si sa-l parcurg sa gasesc maxim si minim.

    vectorul e de genul:

    [VECTOR]

    1

    10

    1.2

    -22

    31

    99.1

    4.12

    -6.72

    -6.44

    4.13

    http://postimg.org/image/cmmqgstkl/

  6. Intrebare factura Electrica S.A

    in Off-topic

    Posted

    certificatele verzi atesta faptul ca energia consumata e de natura regenerabila. Ce inseamna asta? Energia este de natura eoliana, solara, aerotermala, geotermala, hidrotermala, hidraulica (in centrale cu putere de cel mult 10MW), biomasa, gaz de fermentare a deseurilor si a namolurilor din instalatii de epurare a apelor uzate si biogaz.

  11. Wifi cracking

    in Programe hacking

    Posted

    dupa ce l-am pus la proba cu un fisier text in care am introdus 9 parole gresite si parola buna de la wireless de ce programu nu a reusit sa gaseasca parola buna ci din contra dupa ce a terminat de probat parolele incearca sa se conecteze la internet prin dial-up

  14. ViVaSms

    in Cosul de gunoi

    Posted

    nu agita asa mult ca nu exista nicio plata pana acum tot ce vezi pe net e fake am primit mail acum 2 saptamani de la ei si au spus ca programul de plata si sms-uri va incepe undeva la sfarsitul lui septembrie/inceputul lui octombie a.c.

  23. sal'tare

    in Bine ai venit

    Posted

    sal'tare rst plictisindu-ma am zis sa ma prezint si eu

    Nume: boris

    Varsta: nemuritor

    Ocupatie: mistocar? doftor in timpu' liber

    Localitate: timiswoawa

    Hobby: pornos hardcore

    Ce caut pe rst ?! Sunt doar o fantoma care bantuie pe forum

    sper sa nu-mi umpleti frigideru' cu carne si multe succese hacerilor:)

×
×
  • Create New...