Schleife

[Anonymous]

Die altbekannt Schleife..und der vergessliche Patrik

Frage 1:

Mit dieser methode schreibe ich etwas an eine bestimmte stelle in einer textdatei

LineName ... Quelle INI-Datei
LineData .... ebenfalls INI-Datei Wert...

Code:

FileReplaceString(ChecklistBox1.Items.Strings[i], LineName, #13#10+LineData);

..und jetzt will ich das in einer Schleife machen...

also

for i:=0; Checklistbox1.items.count begin
FileReplaceString(ChecklistBox1.Items.Strings, LineName, #13#10+LineData);

Nur von der Schleifenanweisung stimmt die Hälfte nicht *g* Kann mir das nicht merken... und ich geh davon aus,das in der Checklistbox mind. 10 Itmens sind... das will ich mit einer Progressbar darstellen... wieviele dateien schon geschrieben wurden....

Danke für eure Mühen.

Patrik

[Simon Grossenbacher]

[font  size=2 face="Courier New" color="#000000"]Progressbar1.Max := Checklistbox1.items.count;
for i := 0 to Checklistbox1.items.count - 1 do
begin
  Progressbar1.Position := i;
  FileReplaceString(ChecklistBox1.Items.Strings, LineName, #13#10+LineData);
end;
[/font]

[Anonymous]

Danke Simon,genau das hab ich gemeint... super.

Patrik

[Anonymous]

Simon,ich möchte noch etwas einbauen.. und zwar,wie viele Dateen schon geschrieben wurden in der Schleife,in einer LabelCaption... Hatte zuerst Label6.Caption := Progressbar1.Position und Label6.Caption := i; aber das geht ja nicht.. nur wie mach ich das jetzt ?

Gruß, Patrik

[Simon Grossenbacher]

Label6.Caption := IntToStr(i);

oder

Label6.Caption := IntToStr(Progressbar1.Position);


Die Caption eines Label ist vom Typ string, aber i ist ja eine Integervariable, deshalb wird mit IntToStr die Integervariable in einen string konvertiert.

[Anonymous]

Danke,hat geklappt.