Hallo Leute!
Ich denke, dass es nun Zeit ist für Arrays.
Ich will Daten bestimmte Daten später erneut abrufen können. Diese muss ich irgendwo zwischenspeichern. Da ich dafür schlecht jedes mal eine neue Variable auf machen kann, denke ich, dass hier Arrays wohl angebracht wären. Da ich aber noch nie damit gearbeitet habe, steh ich grad etwas aufm Schlauch.

zusammenfalten · markieren

Delphi-Quellcode:

 if (Pos('*',QuAbwesend.FieldByName('NAME').AsString)<>0) then begin
  SetLength(abteilung_abw,1);
  SetLength(stunden_abteilung_abw,1);
  SetLength(grund_abteilung_abw,1);

  abteilung_abw[iAbt_Abw] := QuAbwesend.FieldByName('NAME').AsString;
  stunden_abteilung_abw[iAbt_Abw] := QuAbwesend.FieldByName('STUNDEN').AsString;
  grund_abteilung_abw[iAbt_Abw] := QuAbwesend.FieldByName('GRUND').AsString;

  Inc(iAbt_Abw);
 end;

Bei diesem Code bekomme ich einen Zugriffsfehler, nur habe ich gerade keine Ahnung warum, da mir Arrays total fremd sind. Ich habe die 3 Arrays auch einfach auf gut Glück als Array of String deklariert, is das richtig?

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

was ist denn iAbt_Abw?
Du setzt die Länge jedesmal auf 1, willst es aber vermutlich um 1 erhöhen. Dan müsstest du stattdessen length(MyArray)+1 verwenden.

Hallo,

iAbt_Abw sollte ein interner Zähler sein, wie lang dieser Array nun ist. Vor der Prozedur wird dieser Wert auf 0 gesetzt.

Vielleicht liegt hier ja auch der Fehler (es steht noch irgendwas von Lesen in der Fehlermeldung und eine tolle Adresse ):

zusammenfalten · markieren

Delphi-Quellcode:

 if NOT (iAbt_Abw=0) then begin
  WriteLn(Datei,'<tr>');
  WriteLn(Datei,'<td width="33%">Abteilung</td>');
  WriteLn(Datei,'<td width="33%">Stunden</td>');
  WriteLn(Datei,'<td width="34%">Grund</td>');
  WriteLn(Datei,'</tr>');

  for iAbt_Abw_Druck:=0 to iAbt_Abw do begin
    WriteLn(Datei,'<tr>');
    WriteLn(Datei,'<td width="33%">'+abteilung_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'<td width="33%">'+stunden_abt_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'<td width="34%">'+grund_abt_abw[iAbt_Abw_Druck]+'</td>');
    WriteLn(Datei,'</tr>');
  end;
 end;

Vielleicht sollte es besser
  for iAbt_Abw_Druck:=0 to iAbt_Abw-1 do begin heissen€