Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Werte an Array übergeben?

    Delphi
    by Khabarakh, 31. Okt 2005
  :wink:
  procedure TForm1.FormCreate(Sender: TObject);
  var
  sArray: StringArray;
  i: Integer;
  s: string;
  begin
  Randomize;
  s := StringOfChar(Chr(Ord('A') + Random(Ord('Z') - Ord('A') + 1)), Random(20));
• Forum: Sonstige Fragen zu Delphi

  Re: Werte an Array übergeben?

    Delphi
    by Khabarakh, 31. Okt 2005
  Bei meiner Variante musst du nicht rechnen, du musst nur ein einziges Mal diese paar Zeilen rund um "implementation" hinzufügen. Danach hast du eine komfortable Funktion (komfortabler geht es eigentlich nicht mehr), die du im Code verwenden kannst, ohne überhaupt zu wissen, was Pointer sind.
  Ich finde sie jedenfalls elegant :wink: .
• Forum: Sonstige Fragen zu Delphi

  Re: Werte an Array übergeben?

    Delphi
    by Khabarakh, 31. Okt 2005
  Es ist auch mit nicht konstanten Werten Möglich, und zwar per Template: http://www.delphipraxis.net/internal_redirect.php?p=428049#428049
  
  {$DEFINE FILL_ARRAY_TEMPLATE}
  type
  _ARRAY_ITEM_ = string;
  {$INCLUDE FillArray_template.pas}
  type
  StringArray = _ARRAY_TYPE_;
  
  implementation