Was nervt euch so, während der Programmierung oder so allgemein

[himitsu]

Zitat von jaenicke:

Office fragt aber vorher, ...

Aber nur wenn es ordentlich beendet wird.

Leider mischt sich auch eine RDP-Verbindung in die Zwischenablage ein (wenn es aktiviert ist), was mir auf Arbeit schon einige Male den Zwischenspeicher gelöscht/überschrieben hat.
Du hast dir was kopiert, dann schwups auf's falsche [X] gekommen oder die Verbindung ist abgebrochen und weg war es.

[himitsu]

Zitat von D2010:

Delphi-Quellcode:

procedure BinToHex(var Buffer; Text: PWideChar; BufSize: Integer); overload; inline;
procedure BinToHex(var Buffer; Text: PAnsiChar; BufSize: Integer); overload; inline;

Wer ist eigentlich auf die saublöde Idee gekommen einen Leseparameter als VAR zu deklarieren?
Soein Schwachsinn nervt ja sowas von.

Schön, daß es zwar soeine Variante gibt, aber um meinen Const-Parameter umzuwandeln, muß ich nun doch die Pointer-BinToHex-Variante nutzen.

[implementation]

Weil Buffer typenlos ist -> In Fact ist var Buffer nichts anderes als const Buffer: Pointer .
Angenommen, Buffer wäre kein Var-Parameter, woher soll Delphi dann wissen, wieviel Speicher es übergeben soll?
Dazu bräuchte man dann wieder ne Menge Compiler-Magic.

[Namenloser]

Zitat von implementation:

Weil Buffer typenlos ist -> In Fact ist var Buffer nichts anderes als const Buffer: Pointer .
Angenommen, Buffer wäre kein Var-Parameter, woher soll Delphi dann wissen, wieviel Speicher es übergeben soll?
Dazu bräuchte man dann wieder ne Menge Compiler-Magic.

Wie du schon sagst, sind var und const technisch das gleiche. Der Unterschied ist: Du kannst einen var-Parameter an eine Subroutine mit const-Parameter übergeben, aber nicht einen const-Parameter an eine Subroutine mit var-Parameter.

Delphi-Quellcode:

procedure Bar(const Y: integer);
begin
  ...
end;

procedure Foo(var X: integer);
begin
  Bar(X);
end;

Geht.

Delphi-Quellcode:

procedure Bar(var Y: integer);
begin
  ...
end;

procedure Foo(const X: integer);
begin
  Bar(X);
end;

Geht NICHT.

[himitsu]

@implementation: So weit ist es ja alles klar, aber
das ist halt ein (ur)alter nerviger Bug, denn eigentlich müßte es so aussehn:

Delphi-Quellcode:

procedure BinToHex(const Buffer; Text: PWideChar; BufSize: Integer); overload; inline;
procedure BinToHex(const Buffer; Text: PAnsiChar; BufSize: Integer); overload; inline;

Hier wird ja eigentlich der Inhalt von "Text" verändert und nicht der von Buffer.

Und die Größe für Buffer und Text kommt eben über BufSize rein.

[Stevie]

Also in XE ist sie 6fach überladen, 2 davon sehen so aus:

Delphi-Quellcode:

procedure BinToHex(Buffer: Pointer; Text: PWideChar; BufSize: Integer); overload; inline;
procedure BinToHex(Buffer: Pointer; Text: PAnsiChar; BufSize: Integer); overload; inline;

Was spricht also dagegen, deinen const Parameter dort als Buffer hineinzugeben?

[himitsu]

Ein zusätzliches und eigentlich unnötiges @ ?

[implementation]

Zitat von NamenLozer:

Wie du schon sagst, sind var und const technisch das gleiche.

Nein, es geht mir nicht um var=const, sondern um var=Pointer.

Wie soll ich denn bitte const Buffer von einem unbestimmten Typen deklarieren, dessen Größe ich nicht kenne.
Bei Var geht das theoretisch, eben weil es nur ein Pointer ist.

Const übergibt den Wert (was hier ja gewünscht ist), aber das geht nur mit fester Größe.
Kein Typ heißt aber -> variable Größe.

Heißt: Eine Deklaration mit Const ist hier gar nicht möglich!

Zitat von himitsu:

Und die Größe für Buffer und Text kommt eben über BufSize rein.

Zur Laufzeit. Aber bei Const muss die Größe schon zur Kompilierungszeit bekannt sein, eben weil es kein Pointer ist.

Zitat von himitsu:

Ein zusätzliches und eigentlich unnötiges @ ?

Das ist aber reine Kosmetik, denn es kommt bei der Prozedur ja genauso an. Und das ist es ja, weshalb Const an der Stelle nicht geht.

[himitsu]

Nein, CONST übergibt, bei Typen über 64 Bit und bei dieser typlosen Variante (genauso wie VAR) eine Referenz.

Delphi-Quellcode:

procedure Test(const Buffer; X: Boolean = False);
type
  TArr = array[0..9] of Char;
begin
  if X then
    ShowMessage('$' + IntToHex(NativeInt(@Buffer), 8) + '  "' + TArr(Buffer)[5] + '"')
  else
    ShowMessage('$' + IntToHex(NativeInt(@Buffer), 8));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  B: array[0..0] of Byte;
  S: String;
begin
  ShowMessage('$' + IntToHex(NativeInt(@B), 8));
  Test(B);

  S := '123456789';
  ShowMessage('$' + IntToHex(NativeInt(@S[3]), 8));
  Test(S[3], True);

Und es ist nicht einfach nur Kosmetik/Schönheit, sondern auch Symetrie ... ich übergebe eine Zeile weiter vorne diese Variable auch als CONST (Stream.WriteBuffer, wo dieses übrigens funktioniert) und würde es hier gerne genauso aufrufen = einheitlicher Code

[implementation]

Zitat von himitsu:

Nein, CONST übergibt, bei Typen über 64 Bit und bei dieser typlosen Variante (genauso wie VAR) eine Referenz.

So weit war ich noch nicht aufgeklärt, danke!