Integer + 1

[XPLOSIV]

Also ich will eine Variable immer um 1 erhöhen und dann anzeigen lassen.

Wie geht das ?

[Wal]

Inc(i);
Label1.Caption := IntToStr(i);

Wal

[lbccaleb]

Zitat:

Zitat von Wal

Inc(i);
Label1.Caption := IntToStr(i);

Wal

oder

Delphi-Quellcode:

i := i + 1; //das aber nicht ganz so schön die methode

[fLaSh11]

Aber höchstwahrscheinlich viel schneller!

[BUG]

Zitat:

Zitat von fLaSh11

Aber höchstwahrscheinlich viel schneller!

Echt?

Zitat:

Zitat von Delphi3-Hilfedatei

Inc generiert hochoptimierten Maschinencode und ist besonders für Schleifen geeignet.

MfG,
Bug

[Mao]

Ein guter Compiler sollte beides zum nahezu selben Maschinencode umwandeln.

[grenzgaenger]

Ein Blick in das Debuggfenster hilft da meist weiter.

Demoprojekt:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 i: integer;
begin
 i := 0;
 inc(i);
 i := i + 1;
 writeln(i);
 readln;
end.

relevante zeilen assemblercode

Code:

Project1.dpr.10: i := 0;
0040914D 33DB             xor ebx,ebx
Project1.dpr.11: inc(i);
0040914F 43               inc ebx
Project1.dpr.12: i := i + 1;
00409150 43               inc ebx
Project1.dpr.13: writeln(i);
00409151 A1F0A94000       mov eax,[$0040a9f0]

unter D2006 compiliert.

Denke der assemblercode sagt alles.

grüsse GG

PS: sah grad, dass du mit D3 arbeitest. da sollte es noch einen unterschied machen. übernimm doch mal das beispiel und quote das ASM resultat..

[1234588]

ich hab in irgendeinem buch mal gelesen, das

Code:

  ADD EAX,1

auch schneller als

Code:

  INC EAX

sein soll

[sakura]

Zitat:

Zitat von 1234588

ich hab in irgendeinem buch mal gelesen, das

Code:

  ADD EAX,1

auch schneller als

Code:

  INC EAX

sein soll

Ist es aber nie. ;-) Auf modernen Prozessoren benötigt INC immer nur einen Taktzyklus bei direktem Zugriff auf Register, max. 3 bei Variablen.

Bei ADD verhält es sich inzwischen übrigens identisch ;)

...:cat:...

[3_of_8]

Zitat:

max. 3 bei Variablen.

Sicher? Was ist wenn die Variable im Speicher liegt? Das müsste dann doch zumindest beim ersten mal einen Cache-Fehlzugriff verursachen und die Variable müsste aus dem Speicher angefordert werden, was schon mal gerne an die 100 Zyklen dauern kann.

[XPLOSIV]

Naja geht nich is auch egal :?

[Nuclear-Ping]

Was geht nich? Und warum?

[Laufi]

hallo!

sorry aber wenn du nicht mal hinbringst eine Variable hochzuzählen solltest du dich vielleicht besser landschaftsgärtner sein als zu programmieren! :pale: Du musst es ja nicht in Asm machen! :)

liebe Grüsse
Laufi

[Matze]

Hallo

Zitat:

Zitat von XPLOSIV

Naja geht nich is auch egal :?

Jetzt gib doch nicht gleich auf!

Zitat:

Zitat von XPLOSIV

Also ich will eine Variable immer um 1 erhöhen und dann anzeigen lassen.

Da du "immer" schreibst, vermute ich, meinst du das fortlaufend.

Das geht beispielsweise mit einem TTimer (aufs Formular ziehen und einen Doppelklick darauf machen). Die Geschwindigkeit lässt sich mit der Interval-Eigenschaft festlegen. Hier mal ein Beispiel mit globaler Variable:

Delphi-Quellcode:

var
  Form1: TForm1;
  i: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := IntToStr(i);
  Inc(i);
end;

Klappt das immer noch nicht, dann schreibe bitte genau, was nicht geht und auch wie dein bisheriger Code dazu aussieht.

Grüße

Edit: Huch, ich habe mich zitiert, anstelle den Beitrag zu editieren.

[DeddyH]

Timer nicht Enabled?

[Matze]

Zitat:

Zitat von DeddyH

Timer nicht Enabled?

Ich vermute, er hat bisher gar keinen Timer genutzt, daher mein Beitrag.

[DeddyH]

Sry, ich dachte, ich hätte schon eher im Thread etwas von Timer gelesen :oops: . Ich werd eben auch nicht jünger :mrgreen:

[XPLOSIV]

Nein, ich will sie an einer bestimmten Stelle +1 machen.

[DeddyH]

Und was klappt da nicht? Zeig doch mal Deinen bisherigen Code.

[edit] @Matze: Äätsch, schneller :tongue: :duck: [/edit]

[Matze]

Zitat:

Zitat von Matze

Klappt das immer noch nicht, dann schreibe bitte genau, was nicht geht und auch wie dein bisheriger Code dazu aussieht.

Mach das bitte mal, sonst kann man hier nur raten.

Edit: Der alte Kerl ist schneller als ich dachte. :mrgreen:

[grenzgaenger]

tja, dann hier mal ein projekt, das einen integer hochzählt und immer an der selben stelle ausgibt.

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}
var
  i: integer;
begin
  for i := 0 to 100000 do
    write(i:6,#13);
end.

[DeddyH]

Ich glaube allerdings nicht, dass es hier um eine Schleife geht.

[grenzgaenger]

Zitat:

Zitat von DeddyH

Ich glaube allerdings nicht, dass es hier um eine Schleife geht.

hallo deddy, weiss man dass? hier ist die anforderung:

Zitat:

Zitat von XPLOSIV

Also ich will eine Variable immer um 1 erhöhen und dann anzeigen lassen.

Wie geht das ?

und nachdem die lösung gepostet wurde, kam dies:

Zitat:

Zitat von XPLOSIV

Naja geht nich is auch egal :?

denke XPLOSIV sollte erst mal klären, was er denn möcht und wo sein problem liegt. hab meine kristallkugel leider in der firma gelassen.

grüsse
GG

[DeddyH]

Zitat:

Zitat von grenzgaenger

denke XPLOSIV sollte erst mal klären, was er denn möcht und wo sein problem liegt.

Das ist ja unsere Rede :cheers:

[Nuclear-Ping]

Cool, Problemraten, ich mach mit. :mrgreen:

Zitat:

Zitat von XPLOSIV

Also ich will eine Variable immer um 1 erhöhen und dann anzeigen lassen.

Wie geht das ?

Zitat:

Zitat von Wal

Inc(i);
Label1.Caption := IntToStr(i);

Zitat:

Zitat von XPLOSIV

Naja geht nich is auch egal :?

Zitat:

Zitat von Delphi Compiler

[Fataler Fehler] Undefinierter Bezeichner: i
[Fataler Fehler] Undefinierter Bezeichner: Label1

... Meine Vermutung.

[XPLOSIV]

Lol ne, das nich der Fehler ^^
Will einen Integer einfach + 1 machen.
D.h einen code der die var i +1 macht.
Wenns immernoch zu ungenau is dann lassen wirs einfach ;)

[Nuclear-Ping]

Ja und? Auf Seite 1 hast du mindestens drei Möglichkeiten gezeigt bekommen, sowas zu realisieren.

Wenn du gerade so mit Informationen um dich wirfst, was willst du da für Antworten erwarten? "Geht nicht" ist keine Problembeschreibung. *kopfschüttel*

[Matze]

Zeige endlich deinen Code und schreibe, was nicht geht bzw. welche Fehler kommen. Wie oft soll man das denn noch sagen?

Wir wissen, dass du eine Variable inkrementieren möchtest und haben auch gezeigt, wie es geht. Nun ist es deine Aufgabe genau zu beschreiben was du möchtest und was nicht funktioniert.