Array index aus @ArrayElement bestimmen

[mentaltec]

sorry, ich steh grad auf'm Schlauch

gabs bei Delphi die Möglichkeit den Index eines Elements aus dessen Adresse zu ermitteln (dyn. Array)

so C-like :: idx := pItem - @Items[0]; ??

[mentaltec]

jaja, Selbstantwort

nicht schön, aber geht ::

idx := (PANSIChar(pItem) - PANSIChar(@Items[0])) div sizeof(TItem);

[Volker Z.]

Hallo,

Zitat:

nicht schön, aber geht ::

Schönheit liegt immer im Auge des Betrachters.

idx := (Integer (pItem) - Integer (@Items[0])) div SizeOf (TItem);
geht auch

Gruß

[Furtbichler]

Zitat von mentaltec:

so C-like :: idx := pItem - @Items[0]; ??

Stimmt doch nur für Byte-Arrays, oder? Für alle anderen Arrays musst Du doch auch in C so rechnen, wie in Delphi.

[mentaltec]

Zitat von Volker Z.:

idx := (Integer (pItem) - Integer (@Items[0])) div SizeOf (TItem);

ok, und was, wenn sizeof(pointer) <> sizeof(integer) ?

Gruss zurück

[mentaltec]

nö, ne "ordentliche" Programmiersprache kann das

mit (pItem + 2)-> kann man dann z.B. auf das übernächste Element zugreifen
oder was in Schleifen gern gemacht wird :
(pItem++)-> oder auch (++pItem)->

schönes WE

[Furtbichler]

Zitat von mentaltec:

nö, ne "ordentliche" Programmiersprache kann das

Falsch. Ein ordentlicher Makroassembler (aka 'C') kann das.

Eine ordentliche Programmiersprache kommt ohne Pointer aus. In 'C' hat man aber keine andere Wahl, als mit Pointern zu arbeiten, und dann gewöhnt man sich eben dran.

Ein Koch, der nur mit Tütengewürzen arbeitet, rafft eben einfach nicht, das es besser geht.

Hat was mit dem sprichwörtlichen Tellerrand zu tun.

Ach, und ganz so blöd ist Delphi nun auch wieder nicht: inc(pItem) bewegt pItem zum nächsten Element.

So mit das Einzige, was Du mit Delphi ggü C gottseidank nicht hinbekommst, ist, ein ganzes Programm in einer Zeile unterzubringen.

[DeddyH]

Zitat von Furtbichler:

So mit das Einzige, was Du mit Delphi ggü C gottseidank nicht hinbekommst, ist, ein ganzes Programm in einer Zeile unterzubringen.

program OneLine; {$APPTYPE CONSOLE} begin writeln('Hallo Welt'); readln; end.

[Furtbichler]

Zitat von DeddyH:

Zitat von Furtbichler:

So mit das Einzige, was Du mit Delphi ggü C gottseidank nicht hinbekommst, ist, ein ganzes Programm in einer Zeile unterzubringen.

program OneLine; {$APPTYPE CONSOLE} begin writeln('Hallo Welt'); readln; end.

Spielverderber. Ich meinte doch ohne Semikolon.

[p80286]

Kannst Du haben:
{$APPTYPE CONSOLE} begin writeln('Hello World') end. Gruß
K-H