Scherz...
Aber bei einem Statement wird es nicht bleiben.
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 (
) klar kommt? Der
einmalige zusätzliche Aufwand ist in max. 2 Stunden erledigt und hat ca. 20 Zeilen.
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.
