About Delphi ....pls HELP ...!

[CeanyB 0]

Cunosc Pascal destul de bine, [ in sensul ca l-am studiat la liceu vreo 3 ani ] ...stiu si ceva Visual Fox ...din aceleasi considerente [ 1 an la liceu + 1 an la faculta ]...acum sunt la inginerie....dar as vrea sa invat putin Delphi.......nu chestii complicate, nicidecum realizarea de aplicatii pt web.....pt servere, sau retea...etc....ci doar sa reusesc sa fac programele simple....individuale [asta ma intereseaza momentan]...si ....ca o etapa urmatoare...sa reusesc sa lucrez cu baze de date in Delphi....

 

PLS daca poate cineva sa ma ajute cu documentatie solida, "sanatoasa" .....in ce priveste sintaxa......

cu help-ul programului nu ma prea descurc....tocmai din cauza ca nu stiu ce sa caut, si cum sa unesc informatiile intre ele.........am fost obisnuit sa invat dupa manuale ....

 

deasemenea cred ca m-ar ajuta foarte mult coduri concrete de programele.....din care sa mai pot invata sintaxa si poate chiar diferite proceduri....

 

Mersi anticipat. !!!!

[radu84 0]

1) se ia un calculator cu delphi si deschiderea RAD-ului

2) asta ai citit - http://www.roportal.ro/discutii/ftopic25489.html ??

3) da 2-3 exemple de ceea ce vrei sa faci

 

ma inclin,

[CeanyB 0]

sal....si ms de raspuns...

m-am cam uitat pe pagini...si inka de la "prima" vedere am gasit vreo 3-4 care....prezinta ceva ce ma ajuta putin.....

 

 

http://www.delphibasics.co.uk/Article.asp?Name=FirstPgm

http://www.festra.com/eng/download.htm !!!!!!!!!

http://www.efg2.com/Lab/Library/Delphi/Dat....html#Functions !!!!

http://www.swissdelphicenter.ch/torry/showcode.php?id=55

 

dar totusi ca sa imi pot indeplini dorinta cred ca trebuie sa -mi cumpar un manual k lumea...preferabil in romana

nu ca nu as sti engleza....dar pentru usurinta si pt siguranta ca voi intelege totul asa cum trebuie...

 

ce vreau sa fac ? pai pt inceput tot felul de programele "care nu fac nimik si totusi fac multe" ...adik cu scop pur didactic, educativ...vreau sa invat sa lucrez cu stringuri, tipul "date", fisiere...siruri,etc......poate si liste.....iar ca scop suprem....baze de date,,,,

 

deocamdata am facut un programel cu scop didactic....din ala care "nu face nimik" ....dar nu am reusit o chestie " de gradinitza" : nu am gasit in tot helpul...o functie de delay.....

am vrut ca pentru iesirea din form sa fac ceva gen: apas pe un buton care inchide formularul...[cu close]...dar inainte sa se intample [close], sa "apara" un label...in care sa se decrementeze o cifra.....[pentru : mai sunt 3 secunde pana se inchide pagina .....etc...mai sunt 1 secunde pana se inchide pagina]

 

numai bine....si ms pt pagini

PS : as vrea dupa "lupte seculare" sa pot realiza un programel de contabilitate...sau un joculetz gen "roata norocului"....eu mai sper....sa reusesc....dar ramane de vazut :roll:

[radu84 0]

1) toata documentatia, forumurile profesioniste si asa mai departe sunt in engleza, iar cele mai bune rezolvari sunt in rusa, tari a naibii rusii astia da se tin cu dintii de rusa :bataita:

2) sleep e comanda de care ai nevoie

3) chestia cu labelul faci in felul urmator:

 

apesi butonul

faci un sleep de 3 sec

close

 

baga mare, si daca reusesti vedem ce ai facut, si punem undeva pe aici codu

 

spor la treaba

[CeanyB 0]

sal...am gasit pana la urma comanda sleep, azi noapte, studiind una din paginile pe care mi le-ai recomandat [deci sunt bune :P ] am reusit partial....pt ca sleepul interzie desigur comanda [close] dar labelul nu vrea nici cu pistolul la tampla sa mi se afiseze.....pentru inceput am vrut ceva simplu, fara decrementarea de care ziceam ieri, doar un mesaj simplu in label "peste cateva secunde se inchide fereastra...." am pus labelul in form, am setat visible:=false pentru inceput..am bagat captionul adecvat....iar in fereastra de cod a butonului respectiv, ala de care e vorba ca inchide formul ....am inceput:

 

form1.label1.visible:=true;

sleep(3000);

close;

 

faza cu afisarea labelului nu imi merge din pacate si nu inteleg de ce....nu da nici o eroare....asa ca e si mai greu sa-mi dau seama ce are....

 

o sa postez maine probabil tot codul programelului........poate iti dai tu seama de problema...

[CeanyB 0]

mda....sa zic ca am reusit pana la urma cu labelul ala...si cu decrementarea....:))

am 2 intrebari [nelamuriri ] daca se poate....si apoi incerc sa nu te mai deranjez cu toate nimicurile...

1: ai putea sa -mi dai o indicatie despre cum se face un exe ?

2: am vrut sa fac la programel o chestie....si nu mi-a iesit, ca nu stiu exact cum sa declar procedura, ce variabile sa pun...etc...am un edit box ....in care scriu niste text....si vreau sa permita de exemplu numai scrierea de cifre....la caractere de alta natura sa scoata un [beep].....sau mesaj d eroare...

 

te rog uita te putin la procedura TForm1.Edit1KeyPress si la TForm1.Button7Click .....eu nu inteleg care e problema....

 

apropo...am gasit la biblioteca o carte de delphi 7...si mi se pare destul de buna...are multe exemple....

tocmai e la xerox.....asa ca in timpul liber am ce face....n-o sa ma mai plictisesc...:P

 

********************************************************************************

*************

 

unit Unit1;

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, ComCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button7: TButton;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var Form1: TForm1;

 

implementation

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color := clGreen;

Form1.Label1.Visible :=false;

Form1.Label2.Visible :=true;

Form1.Label2.Caption :='Astazi este ' + DateToStr(date) + ' ...';

Form1.Label3.Visible :=false;

Form1.Edit1.Visible := false;

Form1.Label4.Visible :=false;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Color := clFuchsia;

Form1.Label1.Visible :=true;

Form1.Label2.Visible :=false;

Form1.Label3.Visible :=false;

Form1.Edit1.Visible := false;

Form1.Label4.Visible :=false;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Color := clLime;

Form1.Label1.Visible :=false;

Form1.Label2.Visible :=false;

Form1.Label3.Visible :=true;

Form1.Edit1.Visible := false;

Form1.Label4.Visible :=false;

Form1.Label3.Caption := 'Este ora : ' + TimeToStr(Time);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

Sleep(500);

Form1.Edit1.Visible := false;

Form1.Label4.Visible := false;

Form1.Label3.Visible := false;

Form1.Label2.Visible := false;

Form1.Label1.Visible := false;

Form1.Color :=clPurple;

Form1.Button5.Visible := true;

Form1.Button6.Visible := true;

Form1.Button1.Enabled := false;

Form1.Button2.Enabled := false;

Form1.Button3.Enabled := false;

Form1.Button4.Enabled := false;

Form1.Button7.Enabled := false;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

var i :integer;

begin

Form1.Label5.Visible := true;

Refresh;

for i:=6 downto 0 do

begin

Sleep(1000);

Form1.Label5.Caption := 'Aplicatia se inchide peste ' + IntToStr(i) + ' secunde...';

Refresh;

Form1.Caption :='Exit within ' + IntToStr(i) + ' seconds..';

end;

Close;

end;

 

procedure TForm1.Button6Click(Sender: TObject);

begin

Sleep(1000);

Form1.Button5.Visible := false;

Form1.Button6.Visible := false;

Form1.Button1.Enabled := true;

Form1.Button2.Enabled := true;

Form1.Button3.Enabled := true;

Form1.Button4.Enabled := true;

Form1.Button7.Enabled := true;

end;

 

procedure TForm1.Button7Click(Sender: TObject);

begin

Form1.Label3.Visible := false;

Form1.Label2.Visible := false;

Form1.Label1.Visible := false;

Form1.Color := clRed;

Form1.Label4.Visible := true;

Form1.Label4.Caption := ' Introduceti textul de verificat :' ;

Form1.Edit1.Visible := true;

Form1.Edit1.Text := '';

end;

 

{

procedure TForm1.Edit1KeyPress(Sender: TObject );

var Key: Char;

begin

if not (key in ['0'..'9']) then

begin

key := #0;

beep;

end;

else

Form1.Edit1.Text := Form1.Edit1.Text + key ;

end;

}

 

end.

[radu84 0]

my friend ai cateva probleme mari pe acolo:

 

1)unde sunt declaratiile de metode (acolo la type pt clickuri, etc)

2)procedura ta de editkeypress nu arata bine deloc. button7click pare ok, nu stiu ce ar trebui sa faca

 

asa ar trebui sa arate:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

....

end;

 

acum obesrvi ca e un parametru prin valoare key acolo. ti-a sclipit ideea?

 

3)delphi creeaza executabile nativ. nu ai de ce sa te ingrijorezi, F9 si ai un exe functional

[CeanyB 0]

aha...cu exe am inteles....credeam ca e ca la Visual Fox....executabilele mergeau doar daca aveai prog instalat...

 

in partea cealalta , am pus variabila unde trebuia....am pus si procedure Edit1KeyPress(Sender: TObject ; var Key:Char);

 

...acolo la type ......acum imi compileaza dar nu se intampla nimik...in fine...cu asta o las balta deocamdata.....acum am incercat sa fac altceva....si nici acolo ceva nu merge......reactualizare a timpului.....fara sa fiu nevoit sa mai dau click pe butonul de la care am initializat labelul in care e afisat timpul....

 

 

procedure TForm1.Button3Click(Sender: TObject);

var

Hour, Min, Sec : Word;

t, tt : TTime;

begin

 

Form1.Label3.Visible :=true;

t := Time;

if (Form1.Label3.Visible = true) then

begin

Form1.Label3.Caption := 'Este ora : ' + TimeToStr(t);

Sleep(1000);

DecodeTime(t, Hour, Min, Sec);

Sec := Sec + 1000;

tt := EncodeTime(Hour, Min, Sec);

Form1.Label3.Caption := 'Este ora : ' + TimeToStr(tt);

end;

Refresh;

end;

 

 

procedura e facuta de mine....deci presupun ca e total gresita....desi mi-am pus mari sperante ca ar merge asa....

 

m-am gandit ca daca ar exista ca la Fox

un event de initializare la labeluri...., ar merge cu un cod mai simplu .......

in Fox este asa ceva , daca nu ma insel....

 

 

si ...deasemenea....nu am prea inteles cum e cu random....

am vrut sa generez niste nr aleatoare intr-un edit box, la fiecare apasare de click al unui buton...si nu mi-a prea iesit....

 

pls help cu niste idei, pasi de urmat....etc...

[radu84 0]

la decodetime ai exemplu in help-ul delphi-ului, in loc de time sa folosesti now.

dupa cum m-am uitat codul tau pare ok, insa nu inteleg ce zici ca nu merge. la apasarea butonului 3 labelul ala ia valoarea timpului actual, mai ai acolo cod in plus la care nu ii vad rostul.

 

incearca sa gandesti ce se intampla. de exemplu ce ai tu acolo

 

label devine vizibil

daca label vizibil atunci :D (pai deja e vizibil nu??/)

afisez ora

astept o secunda

aflii ora,minut, secunda

incrementez secunda :P

transform totul in ttime :crazy:

afisez ora(gresita :crazy: )

 

nu stiu daca neaparat e nevoie de refresh-ul ala de la sfarsit.

 

aici ai un exemplu de random

 

procedure TForm1.Button1Click(Sender: TObject);

begin

randomize;

Label1.Caption:=inttostr(random(100));

end;

 

end.

 

function Random [ ( Range: Integer) ];

Description

Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.

 

spor la treaba, si posteaza pe aici ce ai facut

[CeanyB 0]

sal...randomul merge...ms...eu cum nu am prea inteles ce zicea in help...am facut procedura randomize separat, si in procedura click a butonului , ceva de genul : am luat o variabila locala, i :integer;.....si am zis label.caption:=random(i);

credeam ca randomize...de dinainte, ii va atribui valoare lui i.....:P

 

cat despre timp....probleme....deci am analizat [prostiile ce le-am facut] ....si am inteles ca am lucrat cam aiurea....

.....if ala..e o simpla conditie ca sa ma pot lega mai departe de urmatoarele comenzi pe care le-am folosit acolo...

labelul e visibil, deci se intampla atribuirile si comenzile alea....

cand se apasa alt buton, de exemplu generarea de numere....labelul asta devine invizibil, deci nu se mai afiseaza timpul.

 

cam aiurea, stiu, dar nici cum ai spus tu nu merge....

da, cand apas butonul labelul ia valoarea timpului .....si ramane afisat asa..nu se mai schimba timpul, pana nu apas iar butonul...[logic, pt ca comanda e scrisa intr-o procedura de button.click]...far' eu incercam ca timpul sa se schimbe in mod real....secunda cu secunda...fara sa mai dau nici un click...

 

doar sapt viit mai am timp sa ma arunc prin delphi....dar sper sa mi mai vina idei pana atunci...cu privire la actualizarea timpului...

have a nice day...