Einzelnen Beitrag anzeigen

Scottsman

Registriert seit: 9. Mär 2004
Ort: Huncherange
9 Beiträge
 
Delphi 5 Professional
 
#7

Re: setlength bei dynamischen array

  Alt 13. Jul 2004, 10:37
Hier ist mal mein code!!konnte noch nicht richtig etwas mit den antworten anfangen!!!

Delphi-Quellcode:
while not eof(ffinished) do
     begin
        readln(ffinished,temp);
        if temp = 'M-GET CONFIRMATION (then
          begin
             for m := 0 to 1 do readln(ffinished,temp);
             mget_conf := mget_conf + 2;
             extr_line(temp,ar_words,j);
             if (ar_words[0] = 'MANAGED') and (ar_words[1] = 'OBJECT') and
                (ar_words[2] = 'CLASS') then
               begin
                 setlength(a_mget_conf,i+1);
                 a_mget_conf[i] := inttostr(mget_conf) + ';' + ar_words[3];
                 inc(i);
               end
             else
               begin
                 readln(ffinished,temp);
                 inc(mget_conf);
                 extr_line(temp,ar_words,j);
                 if (ar_words[0] = 'MANAGED') and (ar_words[1] = 'OBJECT') and
                    (ar_words[2] = 'CLASS') then
                   begin
                      setlength(a_mget_conf,i+1);
                      a_mget_conf[i] := inttostr(mget_conf) + ';' + ar_words[3];
                      inc(i);
                   end; {if 3}
               end; {else}
          end; {if 1}
          inc(mget_conf);
     end; {while}
[edit=sakura] [code] [delphi] Mfg, sakura[/edit]
  Mit Zitat antworten Zitat