Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  Nein nicht ganz, mit "If not" wurde es wieder etwas brauchbar, aber werde mir das mal mit den Records genauer anschauen.
• Forum: Sonstige Fragen zu Delphi

  Re: If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  wobei ich dann, aber wieder genauso viel Text besitze und der Code nicht wirklich kleiner geworden ist?
  Oder Irre ich mich?
  
  
  ComboBoxFirmenG.Text := Customer_Info;
  
  if Customer_Info = 'Klein' then
  Include(Sizes, ciKlein)
  else if Customer_Info = 'Mittel' then
  Include(Sizes, ciMittel)
• Forum: Sonstige Fragen zu Delphi

  Re: If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  Ich habe es so bis jetzt gehabt:
  
  
  customer_info: array of string;
  
  QueryCustomer.SQL.Text:='SELECT * FROM `'+Table_Info+'` WHERE customer_company_name='''+FormMain.StringGridKunden.Cells+'''';
  QueryCustomer.Open;
  for i := 0 to StrToInt(Table_Info) - 1 do
  Customer_Info := QueryCustomer.Fields.Asstring;
  QueryCustomer.Close;
• Forum: Sonstige Fragen zu Delphi

  Re: If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  Habe nun:
  
  
  type
  TCustomerInfoSize = (ciKlein, ciMittel, ciGroß);
  
  .
  .
  .
• Forum: Sonstige Fragen zu Delphi

  Re: If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  Im Array Customer-Info sind mehrere Daten gespeichert, als nur die Größe, ich kann also nicht das ganze Array umwandeln.
  Oder wie hattest du es gemeint?
  
  Für mich ist das neu, habe damit noch nicht's zu tun gehabt.
  
  Könntest du mir dies einmal zum verstehen erklären?
• Forum: Sonstige Fragen zu Delphi

  If Anweisungen verkleinern

   
    by youuu, 10. Mai 2009
  Hi,
  kann mir jemand einen Tipp geben wie ich diesen Quelltext verkleinern kann.
  Ich empfinde diesen Code nicht sonderlich schön.
  
  
  
  if Customer_Info = 'Klein' then
  Begin
  ComboBoxFirmenG.Items.Add('Mittel');
  ComboBoxFirmenG.Items.Add('Groß');