Implizite String-Umwandlung von 'ShortString' zu 'String'

[Cubysoft]

Hey,

ich habe ein kleines Problem (geht nur um eine Warnung, möchte aber sicher gehn, wie ich diese wegbekomme und auch, was sie wirklich bedeutet)

Delphi-Quellcode:

type
TTest=record
 id: String[6];
end;

function MachWasMitID(id:String);
begin
   //iwas mit der ID machen
end;

Ich habe einen String mit fester Länge (String[6]) gewählt, weil dieser in einem Record enthalten ist, welches in eine typisierte Datei gespeichert werden soll. Da ich aber schon etliche Funktionen habe, die im Parameter einen String haben und nicht einen ShortString, habe ich beim Umstellen einige dieser Warnungen.

Meine Frage ist nun: Wie bekomme ich diese weg? Und hat das irgendwelche Folgen?

Danke!

[uligerhardt]

Dein string[6] kann (im Gegensatz zum "einfachen" string ) nur ANSI-Zeichen aufnehmen, keine Unicode-Zeichen. Wenn das kein Problem für dich ist, kannst du die Warnung einfach wegcasten.
MachWasMitID(string(test.ID)); sollte dann reichen.

[Bjoerk]

Dein String[6] ist immer ein Ansistring.

[p80286]

Zitat von uligerhardt:

Dein string[6] kann (im Gegensatz zum "einfachen" string ) nur ANSI-Zeichen aufnehmen, keine Unicode-Zeichen. Wenn das kein Problem für dich ist, kannst du die Warnung einfach wegcasten.
MachWasMitID(string(test.ID)); sollte dann reichen.

wenn er keine wilden Tricks auf Lager hat wie z.B. mystring[0]:=#0 ; oder for i:=1 to Byte(Mystring[0]) do..... sollte es klappen.

Ich hab mir angewöhnt, string nur noch da zu verwenden, wo es egal ist ob ANSI, UTF8, Wide oder was auch immer. Alle Anderen Strings sind explizit Typisiert.


Gruß
K-H

[Uwe Raabe]

Mit den erweiterten Möglichkeiten von Records kann man das ganz elegant wegdeklarieren, so daß die unsauberen Casts nur an einer Stelle vorkommen:

Delphi-Quellcode:

type
  TTest = record
  private
  type
    Str6 = String[6];
  var
    Fid: Str6;
    function GetId: string;
    procedure SetId(const Value: string);
  public
    property Id: string read GetId write SetId;
  end;

function TTest.GetId: string;
begin
  Result := string(FId);
end;

procedure TTest.SetId(const Value: string);
begin
  FId := Str6(Copy(Value, 1, 6));
end;