Copy(S, 1) macht was? Wo ist der 3 Parameter?

[Rolf Frei]

Habe in Data.DB.pas im folgenden Code ein Copy() gefunden, das ich so nicht kenne:

Delphi-Quellcode:

procedure TField.SetEditText(const Value: string);
begin
  if Assigned(FOnSetText) then
  begin
    var S: string := Copy(Value, 1);
    FOnSetText(Self, S);
  end
  else
    SetText(Value);
end;

Diese Zeile mit dem Copy ist in D11 dazugekommen und unterscheidet sich von D10.3. Mich hat nun gewundert was dieser Copy Befehle da genau macht, da ich den nur mit 3 Prametern kenne. Ein Blick in die System Unit hat auch nicht geholfen, da dort der Befehl auch 3 Parameter hat und keiner davon eine Default zu sein scheint. Jemand eine Idee was da wirklich gemacht wird und wieso man den betroffen Code so angeändert hat? Früher wurde da FOnSetText(Self, Value) aufgerufen und hier sieht es aus, als würde nur das 1. Zeichen als Feldtext übergeben?!

[jaenicke]

Dabei wird einfach nur bis zum Ende des Strings kopiert. Das ist also wie:
Copy(Value, 1, MaxInt);

Das kannst du ja auch einfach selbst testen:

Delphi-Quellcode:

  var a := 'Testen';
  ShowMessage(Copy(a, 2));

[himitsu]

Zitat:

var S: string := Copy(Value, 1);

Falls es hier kein {$ZeroStrings ON} ist (also ab zweitem Zeichen, nicht ab dem Ersten, Welches 0 wäre),
dann entspricht es eigentlich einem UniqueString.
var S: string := UniqueString(Value);
(falls doch, dann MaxInt ... siehe jaenicke)

k.A. warum man das dann nicht direkt verwendet hat
und wozu das hier überhaupt gemacht wird.



Bei dynamischen Arrays kann man hier auch den zweiten Parameter weglassen, um das "Gleiche" zu erreichen ... k.A. warum hier die Version für Strings nicht "identisch" reagiert.
A := Copy(B);

[Uwe Raabe]

Zitat von himitsu:

dann entspricht es eigentlich einem UniqueString.
var S: string := UniqueString(Value);

Ähem, UniqueString ist eine procedure und keine function .

[himitsu]

ups

Delphi-Quellcode:

var S: string := Value;
UniqueString(S);

oder

Delphi-Quellcode:

procedure TField.SetEditText({const} Value: string);
begin
  if Assigned(FOnSetText) then
  begin
    UniqueString(Value);
    FOnSetText(Self, Value);
  end
  else
    SetText(Value);
end;

[Uwe Raabe]

Da sowohl SetEditText als auch FOnSetText einen const string erwarten, erschließt sich mir der Sinn dieses Kopierens noch nicht. Das wäre vielleicht einen Kommentar wert gewesen.

[QuickAndDirty]

Zitat von Uwe Raabe:

Da sowohl SetEditText als auch FOnSetText einen const string erwarten, erschließt sich mir der Sinn dieses Kopierens noch nicht. Das wäre vielleicht einen Kommentar wert gewesen.

Ich denke auch wenn man eine String kopie braucht kann man die doch innerhalb des ereignisses erstellen.

Vielleicht ist der Code Hilfscode zum Debuggen, den man vergessen hat zu entfernen.

[Dennis07]

Zitat von himitsu:

Bei dynamischen Arrays kann man hier auch den zweiten Parameter weglassen, um das "Gleiche" zu erreichen ... k.A. warum hier die Version für Strings nicht "identisch" reagiert.
A := Copy(B);

Joa, oder halt einfach A.SubString(0) anstelle von Copy(A, 1) verwenden. Damit hast du eh immer einen Zero-Offset.
Aber noch einfacher wäre es natürlich mit String.Copy(A): Kein Rumgefussle mehr mit UniquString und irgendwelchen temporären Variablen...