for I := 1 to SL.Count do; oder for I := 0 to SL.Count -1 do

[Die Muhkuh]

Hi,

mein Freund hat mir gerade folgenden Code gegeben:

Delphi-Quellcode:

function Anzahl : Integer;
var loc : TStringlist;
    i : Integer;
begin
  loc := TStringlist.Create;
  try
    loc.LoadFromFile('dc.loc');
    SetLength(Datei,Loc.Count);
    for i := 1 to Loc.Count do begin
     Datei[i] := TDatei.Create;
    end;

    Result := loc.Count;
  finally
    loc.Free; 
  end;
end;

ich hab zu ihm gesagt, das da nen Bock drinne ist. Es müsste nämlich for I := 0 to SL.Count - 1 do heißen.

Er sagte mir dazu noch dies:

Zitat:

Count gibt die Anzahl der reihen
So und ich will soviele dateien erzeugen wie es Zeilen gibt ...

Count fängt ist bei einer Zeile = 1
Count ist bei zwei Zeilen = 2
usw...
Jede Zeile ist eine Datei.

Ich sagte ihm das es falsch ist.

Zeile 1 = Count 0;
Zeile 2 = Count 1;

Jetzt wollte ich wissen, was nun richtig?

[Neutral General]

Bei einer Zeile ist Count = 1 aber der INDEX der ersten Zeile ist 0 !!

PS : Der Freund bin ich :mrgreen:

[Luckie]

Die erste Zeile einer Stringliste hat immer den Index 0. Deshalb darf die Schleife auch nur bis Count-1 laufen.

[Neutral General]

@ Luckie : Du verstehst nicht genau worum es geht.
Es sollen soviele TDatei erstellt werden wie die Datei Zeilen hat.

Bei zwei Zeile ist Count = 2
also

Delphi-Quellcode:

for i:= 1 to 2 do begin

end;

Und das erzeugt 2 TDatei !!

[Aenogym]

NeutralGeneral liegt richtig.

Aenogym

[MathiasSimmack]

Ist

Delphi-Quellcode:

 SetLength(Datei,Loc.Count);

aber nicht ein dynamisches Array, das in dem Fall bei Null beginnt? :gruebel: Wenn Ja, dann kann die Schleife auch wie gehabt von Null bis Count-1 laufen.

[jbg]

Zitat:

Zitat von Neutral General

@ Luckie : Du verstehst nicht genau worum es geht.
Es sollen soviele TDatei erstellt werden wie die Datei Zeilen hat.

Schon mal die Null mitgezählt?


(0, 1) sind auch zwei "Dateien".

[Die Muhkuh]

Hi,

aber in der StringList wird dann der erste Eintrag übersprungen!

Test-Code:

Delphi-Quellcode:

var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;

  try
    SL.Add('0');
    SL.Add('1');
    SL.Add('2');

    for I := 1 to SL.Count do
    begin
      ShowMessage(SL.Strings[I]);
    end;
  finally
    SL.Free;
  end;
end;

Fazit: Es werden nur 1 und 2 angezeigt.

Da in der dc.loc Dateien stehen:

URL;MD5;Wohin

sollte ja auch die erste Datei ausgelesen werden und nicht "vergessen" werden.

[Matze]

Zitat:

Zitat von Neutral General

@ Luckie : Du verstehst nicht genau worum es geht.

Ich hätte genau die gleiche Antwort gegeben wie Luckie. Die Schleife muss von 0 bis Count-1 laufen, da die erste zeile den Index 0 besitzt.

[ibp]

Delphi-Quellcode:

var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;

  try
    SL.Add('0');
    SL.Add('1');
    SL.Add('2');

    for I := 0 to SL.Count-1 do
    begin
      ShowMessage(SL.Strings[I]);
    end;
  finally
    SL.Free;
  end;
end;

Fazit: Es werden 0, 1 und 2 angezeigt.