Refactoring: class object name

This seems to be trivial to me but I don’t know how to do it in Xojo.
I have this code in WebApp but I think it doesn’t matter if it was in DesktopApp.

Here is the code:

If mCurrentQuery.saved_query_id = 22 Then
  mRepObj = New rep_022
ElseIf mCurrentQuery.saved_query_id = 137 Then
  mRepObj = New rep_137
ElseIf mCurrentQuery.saved_query_id = 139 Then
  mRepObj = New rep_139
ElseIf mCurrentQuery.saved_query_id = 141 Then
  mRepObj = New rep_141
ElseIf mCurrentQuery.saved_query_id = 147 Then
  mRepObj = New rep_147
ElseIf mCurrentQuery.saved_query_id = 175 Then
  mRepObj = New rep_175
ElseIf mCurrentQuery.saved_query_id = 180 Then
  mRepObj = New rep_180
ElseIf mCurrentQuery.saved_query_id = 179 Then
  mRepObj = New rep_179
ElseIf mCurrentQuery.saved_query_id = 181 Then
  mRepObj = New rep_181
ElseIf mCurrentQuery.saved_query_id = 182 Then
  mRepObj = New rep_182
ElseIf mCurrentQuery.saved_query_id = 185 Then
  mRepObj = New rep_185
ElseIf mCurrentQuery.saved_query_id = 187 Then
  mRepObj = New rep_187
ElseIf mCurrentQuery.saved_query_id = 188 Then
  mRepObj = New rep_188
ElseIf mCurrentQuery.saved_query_id = 190 Then
  mRepObj = New rep_190
ElseIf mCurrentQuery.saved_query_id = 199 Then
  mRepObj = New rep_199
ElseIf mCurrentQuery.saved_query_id = 202 Then
  mRepObj = New rep_202
ElseIf mCurrentQuery.saved_query_id = 203 Then
  mRepObj = New rep_203
ElseIf mCurrentQuery.saved_query_id = 204 Then
  mRepObj = New rep_204
ElseIf mCurrentQuery.saved_query_id = 207 Then
  mRepObj = New rep_207
ElseIf mCurrentQuery.saved_query_id = 209 Then
  mRepObj = New rep_209
ElseIf mCurrentQuery.saved_query_id = 212 Then
  mRepObj = New rep_212
ElseIf mCurrentQuery.saved_query_id = 213 Then
  mRepObj = New rep_213
ElseIf mCurrentQuery.saved_query_id = 214 Then
  mRepObj = New rep_214
ElseIf mCurrentQuery.saved_query_id = 215 Then
  mRepObj = New rep_215
ElseIf mCurrentQuery.saved_query_id = 220 Then
  mRepObj = New rep_220
ElseIf mCurrentQuery.saved_query_id = 228 Then
  mRepObj = New rep_228
ElseIf mCurrentQuery.saved_query_id = 232 Then
  mRepObj = New rep_232
ElseIf mCurrentQuery.saved_query_id = 233 Then
  mRepObj = New rep_233
ElseIf mCurrentQuery.saved_query_id = 238 Then
  mRepObj = New rep_238
ElseIf mCurrentQuery.saved_query_id = 239 Then
  mRepObj = New rep_239
ElseIf mCurrentQuery.saved_query_id = 241 Then
  mRepObj = New rep_241
ElseIf mCurrentQuery.saved_query_id = 242 Then
  mRepObj = New rep_242
ElseIf mCurrentQuery.saved_query_id = 244 Then
  mRepObj = New rep_244
ElseIf mCurrentQuery.saved_query_id = 246 Then
  mRepObj = New rep_246
Else
  mRepObj = Nil
End If

Basically I want to use redirection instead of explicit name of the class object.
Can someone please help me?

12 posts - 4 participants

Read full topic