Registriert seit: 9. Mär 2004
Ort: Huncherange
9 Beiträge
Delphi 5 Professional
|
Re: setlength bei dynamischen array
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]
|
|
Zitat
|