TStringList

[royun]

Здравствуйте. Есть код, отлично работает. Но как сделать его по компактнее, красивее?

var
SL: TStringList;
str: String;
iRow, i: integer;
begin
  SL:= TStringList.Create;
  for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
  begin
    if StringGrid2.Cells[1, iRow] <> '' then SL.Add(StringGrid2.Cells[1, iRow]);
  end;
  RemoveDuplicates(SL);
  ShowMessage(SL.Text + 'kol-vo - ' + IntToStr(SL.Count));
  if SL.Count = 1 then
  begin
    str:='set dateformat dmy '
                +'select * from ['+Combobox1.Text+'] '
                +'where date='''+SL.Strings[0]+'''';
    Memo1.Lines.Add(str);
  end;
  if SL.Count = 2 then
  begin
    str:='set dateformat dmy '
                +'select * from ['+Combobox1.Text+'] '
                +'where date='''+SL.Strings[0]+''''+' or '''+ SL.Strings[1]+'''';
    Memo1.Lines.Add(str);
  end;
  if SL.Count = 3 then
  begin
    str:='set dateformat dmy '
                +'select * from ['+Combobox1.Text+'] '
                +'where date='''+SL.Strings[0]+''''+' or '''+ SL.Strings[1]+''''+' or '''+ SL.Strings[2]+'''';
    Memo1.Lines.Add(str);
  end;
  if SL.Count = 4 then
  begin
    str:='set dateformat dmy '
                +'select * from ['+Combobox1.Text+'] '
                +'where date='''+SL.Strings[0]+''''+' or '''+ SL.Strings[1]+''''
                +' or '''+ SL.Strings[2]+''''+' or '''+ SL.Strings[3]+'''';
    Memo1.Lines.Add(str);
  end;
end;

[Аватар]

s:='';
for i:=0 to SL.Count-1 do s:=s+Format('''%s'',',[SL.Strings[i]]);
str:=Fomat('set dateformat dmy select * from [%s] where date IN (%s)',[Combobox1.Text,Copy(s,1,Length(s)-1)]);

[royun]

Сообщение от Аватар

s:='';
for i:=0 to SL.Count-1 do s:=s+Format('''%s'',',[SL.Strings[i]]);
str:=Fomat('set dateformat dmy select * from [%s] where date IN (%s)',[Combobox1.Text,Copy(s,1,Length(s)-1)]);

Аватар, Превосходно. Спасибо.

[Аватар]

SL.Free не забудь, а то утечки обеспечены

[royun]

Сообщение от Аватар

SL.Free не забудь, а то утечки обеспечены

Спасибо, так и есть.