enum-Typ und array

[haentschman]

Hallöle...:P

Zitat:

SQL-Abfragen

...das will ich sehen. :shock: ...mit 300 Statements incl. kompletter Scripte. Imho ist ein Enum/Array denkbar ungeeignet zum "Speichern" von SQL.

Wenn du die SQL extern lagern willst schau das das Tutorial an. :thumb: http://www.delphipraxis.net/49505-sq...einbinden.html
Vom mir aus könntest du auch den Ressorcenname des SQL im Enum/Array hinterlegen. Die eigentlichen Statements liegen extern in der Ressource.

[p80286]

Wie kommst Du auf 300?
:shock:

Gruß
K-H

[haentschman]

:P Scherz...
Aber bei einem Statement wird es nicht bleiben. :wink: Je komplizierter die Statements werden, umso unübersichtlicher wird der QT. :? Ab wann entscheidest du dich dann für eine andere Lösung weil die Aktuelle nicht mehr reicht? Warum sich nicht gleich für eine Lösung entscheiden die sowohl mit einem Statement als auch mit 300 (:wink:) klar kommt? Der einmalige zusätzliche Aufwand ist in max. 2 Stunden erledigt und hat ca. 20 Zeilen. :wink:

Delphi-Quellcode:

function TDatabase.GetSQLByName(SQLName: string): string;
var
  SQLStream: TResourceStream;
  SQLStrings: TStringList;
begin
  Result := '';
  SQLStrings := TStringList.Create;
  try
    SQLStream := TResourceStream.Create(HInstance, SQLName, PWideChar(Ord(DatabaseTyp)));
    try
      try
        SQLStrings.LoadFromStream(SQLStream);
        Result := SQLStrings.Text;
      except
        Result := '';
      end;
    finally
      SQLStream.Free;
    end;
  finally
    SQLStrings.Free;
  end;
end;

Name rein...Statement raus. :thumb:

[himitsu]

Ach ja, dann gibt es auch noch IntToIdent und IdentToInt,
was z.B. für die Umwandulng von TColor <-> Integer verwendet wird, also in ColorToString und StringToColor,
oder als IdentToCursor.

Falls sich schon mal jemand gefragt hat, wie die Farbnamen und Cursornamen in den OI und die DFM kommen.

Delphi-Quellcode:

if IdentToInt(VonString, AlsInteger, DasMapping) then
  AlsEnum := TDeinEnum(AlsInteger)  // geht auch direkt, wenn der Enum 4 Byte groß ist, also genug Werte enthält (ab 16.777.215) oder siehe {$MINENUMSIZE 4}
else
  AlsEnum := ...;  // oder eine Exception


if not IntToIdent(Ord(VonEnum), AlsString, DasMapping) then
  AlsString := 'nö';  // oder eine Exception

[freimatz]

Zitat:

Zitat von himitsu (Beitrag 1370896)

Und warum nicht Delphi das in einen String umwandeln lassen?
GetEnumName / GetEnumValue (TypInfo)

Weil das extrem gefährlich ist. Wenn man den String z.B. in eine Configurationsdatei schreibt und wieder einliest
und dazu noch den Aufzählungstyp umbenannt ist die Software nicht mehr kompatibel.