Avatar billede Marting Forsker
05. februar 2002 - 14:34 Der er 9 kommentarer og
1 løsning

Komponenten Tpanel er den ikke ligesom "Writeln" som i Pascal??

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

    Tal      : TEdit;  {eks. = 20}
    Tal2      : TEdit;  {eks. = 40}
    Vis_tal  : TPanel;
    Vis_Tal2  : TPanel;
    Vis_Tekst : TPanel;
   
procedure Tal2Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.Tal2Change(Sender: TObject);

BEGIN

Vis.Caption inttostr(Tal+Tal2);  {= 60}


Vis_tal.Caption    { Hvordan få jeg det indtast tal frem på skærmen}
                    { fra ---  Tal : TEdit; ---}


Vis_tal2.Caption  {  Hvordan få jeg det indtast tal frem på skærmen}
                    {  fra ---  Tal2 : TEdit; ---}

Vis_Tekst.Caption  { kan men skrive en tekst her}
                    { ligesom med Writeln ('Jeg gå en tur');}
END;


end.
Avatar billede martinlind Nybegynder
05. februar 2002 - 14:42 #1
Hvis du vil havde flere liner skal du nok kigge på en TMemo

MyMemo.Lines.Add('Hej du');
MyMemo.Lines.Add('Hest !');
MyMemo.Lines.Add('Hest igen');

/Martin
Avatar billede Marting Forsker
05. februar 2002 - 14:58 #2
Hej Martin!

jeg ville bare vide hvad men skal skrive efter

Vis_Tekst.Caption { hvis men ville se en tal Streng}
                  { eller hvis men ville se en Text Streng}

ligesom i gamle dage

hvor men skrev :
  Print A$
  Print A

Hilsen Martin
Avatar billede morten_s Nybegynder
05. februar 2002 - 15:05 #3
Har du tallet liggende i en TEdit box ?

Så gør du sådan her
Vis_tal2.Caption  := Edit1.Text;

hvis det er en integer værdi:

Vis_tal2.Caption  := IntToStr(47);
Avatar billede morten_s Nybegynder
05. februar 2002 - 15:08 #4
Det er en fejl at betragte et Panel komponent på linie med Writeln, du skal betragte et panel som et område hvorpå du sætter forskellige komponenter f.eks. Editboks, labels, memoboks osv.

Det som kommer en writeln nærmest er en memoboks hvortil du adder linier, se Martinlinds eks ovenover
Avatar billede Marting Forsker
05. februar 2002 - 15:57 #5
Hej morten_s!!

OK Vis_tal2.Caption  := Edit1.Text;


jo jeg har tallet liggende i en TEdit box
det er måske en godt??
------------------------------

    Tal      : TEdit;  {=60}
    Tal2      : TEdit;  {=20}
    Vis_tal  : TPanel;

----------------------------


Vis_tal.Caption  := Tal.Text+'+'+Tal2.Text+'=';

hvordan kan jeg få 'tal' og 'tal2' til en værdi??

inttostr(Tal+Tal2) {dur ikke}

så det komme til at se sådan ud!!!

60+20=80

Du kan lige få min E-m MBG@get2net.dk

Hilsen Martin
Avatar billede stoney Nybegynder
05. februar 2002 - 16:01 #6
Vis_tal.Caption  := inttostr(strtoint(Tal.Text) + strtoint(Tal2.Text));

Stoney
Avatar billede morten_s Nybegynder
05. februar 2002 - 16:11 #7
Jeg har sendt et lille eksempel til dig
Avatar billede Marting Forsker
05. februar 2002 - 16:12 #8
ok så køre den!!!

tak for hjælp!!!!!
Avatar billede stoney Nybegynder
05. februar 2002 - 16:13 #9
morten_s>>

Skal vi ikke dele disse points ?

Stoney
Avatar billede morten_s Nybegynder
05. februar 2002 - 16:17 #10
gerne for min skyld, har lige knoklet et eksempel sammen til manden
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