Avatar billede sense Nybegynder
08. november 2000 - 18:01 Der er 19 kommentarer og
2 løsninger

MEGET Simpelt lille program!

Hej! Jeg er en Turbo Pascal programmør der har fået 24 timer til at lære delphi 4!
Jeg skal i det store hele bare lige have en ide om hvordan det fungerer (Da det jo er objekt-orienteret)... Det jeg mangler er bare et program der indeholder følgende:

skal kunne:

indlæse nogle indtastede cifre, lægge dem sammen og skrive summen på skærmen!

For at gøre det lettere at forstå hvad jeg mener (Det er måske FOR let :), har jeg skrevet et lignende prog (på under 60sek :)i pascal kode:
*********************************************

Program FuckDet;

Uses Dos, Crt;

Var
    Tal1 : integer;   
    Tal2 : integer;

BEGIN
CLRSCR;
Write(\'Indtast et ligegyldigt tal \');
Read(Tal1);
WriteLn;
Write(\'Indtast endnu et ligegyldigt tal \');
Read(Tal2);
WriteLn;
Write(Tal1+Tal2);
END.

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

Det er såmænd alt hvad jeg skal bruge! Man lærer jo bedst ved at se på noet og lære af det!
Avatar billede borrisholt Novice
08. november 2000 - 18:08 #1
placer 2 edit felter på en form. og en knap. Tryk to gange på selve formem for at tilføje et onCreate event. Tryk F12 for at komme tilbage til din form. Klik to gange på knappen for at tilføje en onClick event til din knap og skriv så det følgende :

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : Integer;
begin
  x:= StrToInt(Edit1.Text);
  y:= StrToInt(Edit2.Text);
  ShowMessage(IntToStr(x+y));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;


Jens B
Avatar billede rfogh Nybegynder
08. november 2000 - 18:12 #2
Her bruges:
Label (navn: Lbl)
Button (navn: button)
Edit (navn: Edit1)
Edit (navn: Edit2)
Edit (navn: Edit3)

procedure TForm1.buttonClick(Sender: TObject);
var tal1, tal2, tal3 : Integer;
begin
  tal1 := StrToInt(Edit1.Text);
  tal2 := StrToInt(Edit2.Text);
  tal3 := tal1 + tal2;
  Lbl.Caption := IntToStr(tal3);
end;
Avatar billede rfogh Nybegynder
08. november 2000 - 18:15 #3
Hov... Edit3 bruges ikke :o)

Kortere version:

procedure TForm1.buttonClick(Sender: TObject);
begin
  Lbl.Caption := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
Avatar billede sense Nybegynder
08. november 2000 - 19:59 #4
Hehe... Nu musforstod i mig alligevel :))

Jeg har ikk noen probs med at få et prog til at lægge 2 tal sammen (Da det jo er pascal sprog i delphi)... Jeg skulle bruge et eksempel på et LET SIMPELT program i delphi! (Gerne som en projektfil (med alle tilhørende units))...

Jeg skal bare bruge det til at se hvordan man opbygger programmer i delphi :) As u know... Selvgjort er velgjort :) På forhånd tak!
Avatar billede borrisholt Novice
08. november 2000 - 20:02 #5
Jammen start Delphi op, og gør som jeg beskriver ...

Jens B
Avatar billede rfogh Nybegynder
08. november 2000 - 20:04 #6
Avatar billede rfogh Nybegynder
08. november 2000 - 20:05 #7
Like that?
Avatar billede rfogh Nybegynder
08. november 2000 - 20:05 #8
BTW: Det er til Delphi5 ;o)
Avatar billede sense Nybegynder
08. november 2000 - 20:26 #9
rfogh! Det er ellz kanon, MEN... lille mig har kun delphi4... Den gir fejl i streamen når jeg loader den... Så hvis du lige laver den i delphi4, så er der 100 pts hjemme :) (sweettalking :) På forhånd tak!
Avatar billede rfogh Nybegynder
08. november 2000 - 20:29 #10
Jeg har ikke Delphi4, men kan du ikke bare importere formen? (unit1)
Avatar billede borrisholt Novice
08. november 2000 - 20:30 #11
Jeg har også Delphi 5 men jeg kan gode konvetere ....

Skal vi dele ?

Jens B
Avatar billede sense Nybegynder
08. november 2000 - 20:32 #12
Hehe det er sq rittig socialt det her ;)))
Avatar billede rfogh Nybegynder
08. november 2000 - 20:33 #13
Fint med mig :o)
Avatar billede borrisholt Novice
08. november 2000 - 20:37 #14
Du tager din form og højre klikker på den. Nede for neden står der \"Text DFM\" den afklikker du ... Så er du i luften til Delphi 4 :-)

Hvid du lukker din DFM fil op i notepad kan du jo selv se hvad den gør ...

Jens B
Avatar billede sense Nybegynder
08. november 2000 - 20:46 #15
Hvar det til mig? Sorry... Ikk for at lyde nedladende... Jeg skal bare bruge et lille prog der er skrevet fra bunden (på under 5 min), der ikk gør andet end lige at vise mig hvordan jeg skriver progs, indlæser nogle tal som en bruger har tastet ind og fx lægger dem sammen og udskriver dem på skærmen! That\'s all! Plz don\'t hate me :) Jeg er grafiker, og så har jeg programmeret Turbo Pascal i et par år... Så får man lige at vide omme i skolen at man lige skal programmere et projekt i delphi og det skal afleveres fredag...hmmm har sq hele progget kodet i turbo pascal, men aner ikk hvordan delphi progs er bygget op... derfor skal jeg bruge et lille eksempel :) -SenSe / Magic Dreams
Avatar billede borrisholt Novice
08. november 2000 - 20:49 #16
no no det var til rfogh ....

Ellers så start et nyt Delphi projekt op ....  Placer 3 Edit felter på din form og en knap ... tryk to gange på knappen ...

procedure TForm1.Button1Click(Sender: TObject);

skal så implemteres således :

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;

Så trykker du sq bare ctrl+f9 så er du i luften ..
Avatar billede sense Nybegynder
08. november 2000 - 20:55 #17
Ok, jeg fatter minus...er måske bare langsom... Jeg har ALDRIG leget med dephi før så det du skriver virker bekendt (Fra pascal) men... Hvad skal implementeres hvor? Kan du ikk lavet et delphi4 projekt med et prog der gør det der? That\'s all?!? 200pts then... -SenSe (www.sense-less.org)
Avatar billede borrisholt Novice
08. november 2000 - 20:57 #18
og en e-mail ?

Jens B
Avatar billede sense Nybegynder
08. november 2000 - 21:00 #19
sense@sense-less.org :))) eller sense@thevortex.com :) På forhånd tak!
Avatar billede sense Nybegynder
08. november 2000 - 21:13 #20
Ok...thx! Utroligt, at så lidt kan hjælpe så meget! Well... Jeg har et prog at oversætte... cya og tark for jeres hjælp! 200pts til borrisholt og 100 til rfogh... Lett!
-SenSe / Magic Dreams [www.sense-less.org]
Avatar billede rfogh Nybegynder
08. november 2000 - 22:01 #21
Thx :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester