AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem mit procedure

Ein Thema von WhatAmI · begonnen am 5. Sep 2004 · letzter Beitrag vom 5. Sep 2004
Antwort Antwort
WhatAmI

Registriert seit: 29. Aug 2004
Ort: lamadelaine
16 Beiträge
 
#1

Problem mit procedure

  Alt 5. Sep 2004, 14:27
Delphi-Quellcode:
procedure quadrantx(x:integer);
begin
 if form1.pbMain.width div 2 > x then
   x:=x
     else
       if form1.pbMain.width div 2 < x then
         x:=-x;
end;

procedure quadranty(y:integer);
begin
 if form1.pbMain.height div 2 > y then
   y:=y
     else
       if form1.pbMain.height div 2 < y then
         y:=-y;
end;
wenn ich die nachher aufrufe bekomme ich immer ne fehlermeldung!

der aufruf lautet:
Delphi-Quellcode:
sg2.cells[0,sg1.RowCount-1]:=inttostr(quadrantx(x));
sg2.cells[1,sg1.RowCount-1]:=inttostr(quadranty(y));
was hab ich bloss falschgemacht!

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat
Johannes Maier

Registriert seit: 3. Sep 2004
25 Beiträge
 
Delphi 7 Professional
 
#2

Re: Problem mit procedure

  Alt 5. Sep 2004, 14:30
Wie lautet denn der Fehler?
Btw: hier gibts nicht umsonst Delphi-Tags

MfG
Johannes Maier
  Mit Zitat antworten Zitat
scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#3

Re: Problem mit procedure

  Alt 5. Sep 2004, 14:41
Wenn du das Ergebnis nur ind das Grid eintragen willst, dann würde ich nicht mit procedure sondern mit function arbeiten:
Delphi-Quellcode:
function quadrantx(x:integer) : integer;
begin
  if form1.pbMain.width div 2 > x then
    x := x
  else
  if form1.pbMain.width div 2 < x then
    x := -x;
  result := x;
end;

function quadranty(y:integer) : integer;
begin
  if form1.pbMain.height div 2 > y then
    y := y
  else
  if form1.pbMain.height div 2 < y then
    y := -y;
  result := y;
end;
Wenn des Ergebnis aber auch in der variable x bzw. y gespeichert werden soll, dann musst du vor den Parameter noch ein var setzen:
function quadrantx(var x:integer) : integer;
  Mit Zitat antworten Zitat
WhatAmI

Registriert seit: 29. Aug 2004
Ort: lamadelaine
16 Beiträge
 
#4

Re: Problem mit procedure

  Alt 5. Sep 2004, 15:15
was bezweckt das wenn man seine parameter in einer funktion oder prozedure mit var schreibt?
  Mit Zitat antworten Zitat
Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Problem mit procedure

  Alt 5. Sep 2004, 15:26
hi,

Delphi-Quellcode:
procedure add(a, b: integer; var x: integer);
begin
  x := a+b;
end;
dann weißt du der beim aufruf angegebenen variablen einen wert zu. dies funktioniert also ähnlich, wie eine funktion, außer, dass eben kein wert an die variable result gegeben wird, sondern an einen mit var deklarierten parameter.

Aenogym
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat
WhatAmI

Registriert seit: 29. Aug 2004
Ort: lamadelaine
16 Beiträge
 
#6

Re: Problem mit procedure

  Alt 5. Sep 2004, 15:56
danke für diese Information! problem ist gelöst!


vielendank
p.s bin noch nichtlang am programmierenü
  Mit Zitat antworten Zitat
5. Sep 2004, 15:56
Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Hat ja etwas mit Delphi zu tun.
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf