<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">2014-07-01 12:24 GMT-03:00 Jürgen Hestermann <span dir="ltr"><<a href="mailto:juergen.hestermann@gmx.de" target="_blank">juergen.hestermann@gmx.de</a>></span>:<br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><br>
Am 2014-07-01 17:14, schrieb silvioprog:<div class=""><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
  ar: array of string;<br>
begin<br>
  // your array<br>
  SetLength(ar, 2);<br>
  ar[0] := 'abc';<br>
  ar[1] := 'def';<br>
  ar[2] := 'ghi';<br>
</blockquote>
<br></div>
ar[2] will lead to an error if you set the length<br>
of the array to 2 (only indices 0 and 1 are allowed).<br></blockquote><div><br></div><div>Oops, fast typing in reply. ^^'</div><div><br></div><div>...</div><div>SetLength(ar, 3);</div><div>...</div><div><br></div><div>

So:</div><div><br></div><div>program project1;</div><div><br></div><div>{$mode objfpc}{$H+}</div><div><br></div><div>var</div><div>  s: string;</div><div>  ar: array of string;</div><div>begin</div><div>  // your array</div>

<div>  SetLength(ar, 3);</div><div>  ar[0] := 'abc';</div><div>  ar[1] := 'def';</div><div>  ar[2] := 'ghi';</div><div>  for s in ar do</div><div>    WriteLn(s);</div><div>end. </div></div><div class="gmail_extra">

<br>output:</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">abc</div><div class="gmail_extra">def</div><div class="gmail_extra">ghi</div><div><br></div></div>-- <br>Silvio Clécio<br>

My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>