.txt in checklistbox anzeigen & angehakte zeilen löschen

[violinplayer]

Hallo,

ich brauche mal eure Hilfe bei einer CheckListBox.

Ich habe eine .txt Datei welche ich auslese und zeilenweise in einer checklistbox darstelle.

Soweit funktioniert das auch !

Jetzt möchte ich aber aus dieser Datei DIE ZEILEN LÖSCHEN, welche ich dann in der checkListBox auswähle...

leider bekomme ich das nicht hin ..


Die Werte aus der Datei lese ich wie folgt aus:

ChecklistBox1.Items.LoadFromFile(myPCharfile);

-> myPcharfile enthält die Pfadangabe zur Datei file.txt

viele Grüße
Florian

--------
Delphi 7 Personal

[hoika]

Hallo,

lade die Datei in eine TStringList (die hat auch ein LoadFromFile),
übergebe sie per CheckList.Itesm.Assing(StringList).

Lösche die Zeilen aus der StringList, die markiert in der ListBox sind
(am besten von hinten per downto)
und schreibe das Ergebnis in die Datei "zurück" (die alte wird überschrieben).

Ein DeleteLine gibt es bei Textdateien nicht.


Heiko

[violinplayer]

Hallo Heiko,

danke für die schnelle Antwort..

leider bin ich absoluter neuling und kann das was du schreibst leider programiertechnisch noch nicht bewerksteligen..

wenn es snihct zu viele zeilen sind wäre mir die fertig ausformulierte lösung das liebste, dann kann ich mir anhand dessen es besser verdeutlichen wie es funktioniert.

viele grüße
florian

[phreax]

Hallo violinplayer

Also das ganze ist relativ simpel, denn die Cheklistbox Items sind ja berteits eine StringList also muss man die checkbox nur durchgehen und gucken ob ein item selected ist, dann dieses löschen.
Komplex wird das ganze erst durch dei daraus resultierende Indexverschiebung, weshalb das ganze nicht so leicht mit einer for Schleife gelöst wrden kann (Kannst es ja mal probieren ;) ).

Hier das ganze als Codebesipiel, aber bitte bnicht nur Copy & Paste, wenn du den Code nicht verstehst dann frag einfach nach.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
I := 0; //inistialisieren
while CheckListBox1.Items.Count > I do //Damit .Count immer wieder aktualisiert wird
 if CheckListBox1.Checked[I] then
   CheckListBox1.Items.Delete(I) else Inc(I); //weil der Index "nachruchtscht"
end;

Grüße Phreax

[violinplayer]

ok.. soweit klar und verstanden ..

wie schreibe ich das ganze dann so in die datei das die weggefallenen items auch "weg" sind ?

viele Grüße
Florian

[hoika]

Hallo,

nach dem delete Code einfach
CheckListBox.WriteToFile(?)

Damit wird die alte Datei überschrieben.
Die die Zeilen in der CheckListBox nicht mehr drinstehen,
sind sie auch in der neuen Datei nicht drin.


Heiko

[mace]

Es gibt genauso wie es ein LoadFromFile gibt auch ein SaveToFile. :)
Damit kannst du grad die Datei, mit den gelöschten Zeilen, neu erstellen. (mit gleichem oder anderem Namen)

[violinplayer]

wie deklariere ich writetofile ?

daran hängt es noch ...

[phreax]

Zitat:

Zitat von violinplayer

wie deklariere ich writetofile ?
daran hängt es noch ...

Selberschreiben würde ich das nicht ;)

Delphi-Quellcode:

CheckListBox1.Items.SaveToFile('blub.txt');

[violinplayer]

ich bekomme immer die Fehlermeldung "Undeclared identifier" 'savetofile' oder 'writetofile' je nachdem was ihc nehmen möchte ..

wie muss ich es in Type deklarieren ?

viele Grüße
Florian

[mace]

nein, SaveToFile ist eine Methode der Stringlist.
Also musst du auch 'Name_der_Stringlist'.SaveToFile('Filename') eingeben.

[phreax]

Zitat:

Zitat von violinplayer

ich bekomme immer die Fehlermeldung "Undeclared identifier" 'savetofile' oder 'writetofile' je nachdem was ihc nehmen möchte ..

wie muss ich es in Type deklarieren ?

viele Grüße
Florian

nein. Bitte beachte, dass es die .Items sind, die gespeichert werden, es geht ja nur um den text...

Gruß phreax

EDIT:
Wo war der rote kasten schon wieder ? :angel:

[violinplayer]

tut mir ja leid das ich nihct so ganz durchblicke..

aber was muss ich denn tun damit ich das problem "undeclared identifier" gelöäst bekomme ?

gruss
Florian

[leddl]

Zitat:

Zitat von phreax

Komplex wird das ganze erst durch dei daraus resultierende Indexverschiebung, weshalb das ganze nicht so leicht mit einer for Schleife gelöst wrden kann (Kannst es ja mal probieren ;) ).

Gar kein Problem :zwinker:

Delphi-Quellcode:

for i := CheckListBox1.Items.Count-1 downto 0 do
  if CheckListBox1.Checked[i] then CheckListBox1.Items.Delete(i);

[phreax]

Zitat:

Zitat von leddl

Zitat:

Zitat von phreax

Komplex wird das ganze erst durch dei daraus resultierende Indexverschiebung, weshalb das ganze nicht so leicht mit einer for Schleife gelöst wrden kann (Kannst es ja mal probieren ;) ).

Gar kein Problem :zwinker:

Delphi-Quellcode:

for i := CheckListBox1.Items.Count-1 downto 0 do
  if CheckListBox1.Checked[i] then CheckListBox1.Items.Delete(i);

Stimmt wenn man es sorum aufzieht wird imemr schön aktualisiert, ich habe meinen meister gefunden :stupid:

zum Thema
kopiere Folgenden Queltext und es geht:

Delphi-Quellcode:

CheckListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'Text.txt');
//Die Datei wird in das Programmverzeichnis gespeichert...
//ExtracFilePAth() Holt nur das Anwendungsverzeichnis...

Gruß phreax

[violinplayer]

JETZT GEHT ES !

procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
I := 0; //inistialisieren
while CheckListBox1.Items.Count > I do //Damit .Count immer wieder aktualisiert wird
if CheckListBox1.Checked[I] then
CheckListBox1.Items.Delete(I) else Inc(I); //weil der Index "nachruchtscht"





CheckListBox1.Items.SaveToFile(myPcharcalljob);
switchcontent();

end;

DANKE !

[phreax]

Bitte, kein Problem aber nächstes mal bitte mit Delphi-Tags ;)

mfg phreax

[Raute50]

Hallo phreax,

ich leider relativ unerfahren im Umgang mit Pascal, aber arbeite gerade dran, das zu ändern. ;)

Momentan habe ich ein Problem, welches Du eventuell lösen kannst, da Du im dem Thread
(http://www.delphipraxis.net/internal...t.php?t=109992)
den folgenden Beitrag geschrieben hast:

Zitat:

Zitat von phreax

Hallo violinplayer

Also das ganze ist relativ simpel, denn die Cheklistbox Items sind ja berteits eine StringList also muss man die checkbox nur durchgehen und gucken ob ein item selected ist, dann dieses löschen.
Komplex wird das ganze erst durch dei daraus resultierende Indexverschiebung, weshalb das ganze nicht so leicht mit einer for Schleife gelöst wrden kann (Kannst es ja mal probieren ;) ).

Hier das ganze als Codebesipiel, aber bitte bnicht nur Copy & Paste, wenn du den Code nicht verstehst dann frag einfach nach.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
I := 0; //inistialisieren
while CheckListBox1.Items.Count > I do //Damit .Count immer wieder aktualisiert wird
 if CheckListBox1.Checked[I] then
   CheckListBox1.Items.Delete(I) else Inc(I); //weil der Index "nachruchtscht"
end;

Grüße Phreax

Mein Problem ist jetzt:
ich habe eine CheckListBox:

Delphi-Quellcode:

CheckListBox        := TNewCheckListBox.Create(MyCheckListPage);

Diese enthält (ähnlich wie im obigen Thread) einige Einträge. Wieviel das sind und wie die aussehen, weiß ich erst zur Laufzeit.
Das Erstellen klappt m.E. ganz gut, nur möchte ich auslesen, welche CheckListBox ausgewählt wurde.

Irgendetwas wie:

Delphi-Quellcode:

      if MyCheckListPage.Values[i] = true; then
        NewString[i] := 'ja';

Du hattest dazu etwas geschrieben, was ich nicht ganz verstehe.


Ich arbeite mit InnoSetup, wo man in der [Code] Sektion selber Pascal Code schreiben kann.

Habe versucht Deine Hilfe so umzusetzen:

Delphi-Quellcode:

function NextButtonClick(CurPageID: Integer): Boolean;
var
  text: String;
  NewString: TArrayOfString;
begin

  if CurPageID = MyCheckListPage.ID then
  begin
    setArrayLength(NewString, upperBound);
    // ** Wenn Haken gesetzt, dann ja in Array ... ansonten ''
    for i:= 0 to upperBound-1 do
    begin
      if CheckListBox.Checked[i] = true then
      begin
        MsgBox('i = ' + IntToStr(i), mbInformation, MB_OK);
        NewString[i] := 'ja';
      end;
    end;
  end;

Jedoch ist die if-Bedingung nie war. :(

Inwiefern ich die procedure TForm1.Button1Click(Sender: TObject); einbauen kann, ist mir leider auch nicht klar.
Ich kenne nur die NextButtonClick-Funktion von InnoSetup

Weitere Einstellungen, die ich vorgenommen habe:

Delphi-Quellcode:

  MyCheckListPage := CreateCustomPage(wpWelcome, 'Bitte suchen Sie sich etwas aus:',
            'Alles möglich!:');

  CheckListBox        := TNewCheckListBox.Create(MyCheckListPage);
//  CheckListBox2 := TNewCheckListBox.Create(MyCheckListPage);
  CheckListBox.Width  := MyCheckListPage.SurfaceWidth;
  CheckListBox.Height := MyCheckListPage.SurfaceHeight;
  CheckListBox.Flat   := False;
  CheckListBox.Parent := MyCheckListPage.Surface;
  CheckListBox.AddCheckBox('HauptBox 1', 'das hier ist wichtig!', 0, True, True, False, False, nil);
  CheckListBox.Checked[0] := True;

  if upperBound > 0 then
  begin
    CheckListBox.AddCheckBox('HauptBox 2', 'das hier ist auch wichtig!', 0, True, True, False, False, nil);
    for i:= 0 to upperBound-1 do
    begin
      CheckListBox.AddCheckBox(MyArray[i],
                      '', 1, True,True, False, True, nil);
      CheckListBox.Checked[i+1] := true;
    end;
  end;

Ich hoffe bei Dir an der richtigen Stelle zu sein, da mich das Problem langsam zum Verzweifeln bringt.

Solltest Du irgendwelche hilfreichen Ratschläge haben, würde ich mich sehr über eine Reaktion freuen!



In diesem Sinne ... schöne Grüße!
#50

[phreax]

Hi #50,
Ich habe noch nie viel Code im Innosetup geschrieben, das Problem ist dass da eine sehr ähnliche aber trotzdem sich von der VCL-Biblothek (wie sie im normalen Delphi benutzt wird) unterscheidende Bibliothek eingesetzt wurde.
Daher kann ich dir nicht genau sagen ob dein Initialisierungscode einen Fehler enthält.
Ich sehe aktuell nur zwei Fehlerquellen:

• upperBound ist 0
• "CheckListBox.Checked[i] = true" sollte man nicht verwenden

Eine Prüfung mit = True kann in ganz bestimmen Fällen (vielleicht in DEINEM ;) )
nicht zum gewünschten Ergebnis führen, zu diesem Thema kann man auch einiges in der DP finden.
Richtig gehts so:

Delphi-Quellcode:

if CheckListBox.Checked[i] then
  begin
    //Dein Code hier ;)
  end;

mfg phreax