Probleme mit sortieren und abhacken eines ToDo Planers

Psyrius · Hält's aus hier Beiträge: 2 WINXP DELPHI 6.0 pe

Und zwar habe ich folgendes problem.

Ich möchte einen AufgabenPlaner schreiben und habe Folgendes Problem.
Ich möchte dieses Datei Basierend schreiben da er portabel sein soll (laptop) und ich dort keine datenbank habe (installieren kann). so nun habn ich den geschrieben habe den mit eintragen (funktioniert schon) in eine .txt datei geschrieben.
Nun ist aber das ich das in einer TChecklistBox ausgebe um den abzuhacken. Nun habe ich die Checklistbox auf sortieren gestellt damit der das nach dem 1. (datum) sortiert. Nun bekomm ich es nicht hingebogen dsa wenn ich eine aufgabe abhacke das der in die file hinter den jeweiligen eintrag zb. einträgt Erledigt. denn ich weiss nicht wie ich ich die zeilen in der .txt bestimmen kann und dadurch das die ChecklistBox sortiert ist stimmen die Zeilen ja auch nicht mit denen der .txt überein. Kann mir da jmd helfen?

Source wird angehängt.

Meine Erste Form (mit der Checkbox)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;

type
  TForm1 = class(TForm)
    main_btn_new: TButton;
    CheckListBox1: TCheckListBox;
    Memo1: TMemo;
    procedure main_btn_newClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckListBox1ClickCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.main_btn_newClick(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
var f: TextFile;
    s: String;
    x: Integer;
    l: TStringlist;
begin

  AssignFile(f,'daten.txt');
  {$i-} Reset(f); {$i+}
  if IOResult <> 0 then begin
  Showmessage('Ein Fehler ist aufgetreten. File nicht Gefunden');
  Exit
  end;
  l:= TStringlist.Create;
  l.LoadFromFile('daten.txt');
  s:=l.Text;
  form1.Memo1.Lines.Add(s);

  for x:=1 to form1.Memo1.Lines.Count-1 do begin
    Readln(f,s);
  form1.CheckListBox1.Items.Add(s);

  end;
    CloseFile(f);
    form1.CheckListBox1.MultiSelect:=False;

    end;

/// Hier beginnt mein Problem 
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin

// Was muss hier rein?????


end;

/// Ende des Problems

end.

Die Form zum eintragen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    add_wo: TEdit;
    Label2: TLabel;
    btn_add: TButton;
    btn_close: TButton;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    add_was: TEdit;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_addClick(Sender: TObject);
    procedure btn_closeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var f: TextFile;
    s: String;
    x: Integer;
    l: TStringlist;
begin
form2.add_wo.Text:='';
form2.add_was.Text:='';
form1.CheckListBox1.Clear;
form1.Memo1.Clear;
AssignFile(f,'daten.txt');
  {$i-} Reset(f); {$i+}
  if IOResult <> 0 then begin
  Showmessage('Ein Fehler ist aufgetreten. File nicht Gefunden');
  Exit
  end;
  l:= TStringlist.Create;
  l.LoadFromFile('daten.txt');
  s:=l.Text;
  form1.Memo1.Lines.Add(s);

  for x:=1 to form1.Memo1.Lines.Count-1 do begin
    Readln(f,s);
  form1.CheckListBox1.Items.Add(s);

  end;
    CloseFile(f);
end;

procedure TForm2.btn_addClick(Sender: TObject);
var f: TextFile;
    d: String;
begin
 AssignFile(f,'daten.txt');
  {$i-} Append(f); {$i+}
  if IOResult <> 0 then begin
  Showmessage('Ein Fehler ist aufgetreten. File nicht Gefunden');
  Exit
  end;

  
  d:=Datetostr(form2.DateTimePicker1.Date);
  Writeln(f,d+' '+form2.add_wo.Text+'  >>>  '+form2.add_was.Text);
  CloseFile(f);
  form2.Close;

end;

procedure TForm2.btn_closeClick(Sender: TObject);
begin
form2.Close;
end;

end.

Wäre cool wenn ihr mit helfen könntet :) ThX

Moderiert von DeCodeGuru: Code- durch Delphi-Tags ersetzt.

_________________
Die Kuh macht mooooo0o0o0oooo0o0o0o0o0o

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

Hallo und

im Delphi-Forum!

Auch wenn mich einige Datenbankspezialisten hier dafür schlagen werden, eine einfach zu handhabende dateibasierte Datenbank ist MyLittleBase. Du benötigst keinerlei DLLs oder sonstiges.
Eine Hilfedatei gab es mal im Word-Format, anscheinend gibt es diese jetzt nicht mehr, da die Homepage bereits auf die noch nicht vorhandene Version 3 umgestellt wurde (warum überhaupt? komische Leute...). Wenn du willst, kann ich sie dir per Mail schicken (PN oder Mail an mich), aber der Link zu den "Lessons" dürfte auch ganz brauchbar sein (hab' nur kurz drübergeschaut).
Allerdings müsstest du deine Anwendung entsprechend umschreiben...

Nachtrag ( :oops:

):
Bitte ändere den Titel deines Topics, da er nicht direkt auf dein Problem hinweist. Das geht indem du bei deinen ersten Beitrag oben links auf "Edit" klickst, den Titel änderst und erneut auf "Absenden" klickst.
Der entsprechende Auszug aus unseren Richtlinien:

Delphi-Forum.de Richtlinien hat folgendes geschrieben:

1.1 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist. Eine Pseudocodezeile oder die Nennung des Objektes, um welches es sich in dem Beitrag handelt, helfen da schon mehr weiter.

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

Psyrius · Hält's aus hier Beiträge: 2 WINXP DELPHI 6.0 pe

ThX für das welcome

hab dr ne pn geschckt und danke für die idee sieht ganz kewl aus =)

_________________
Die Kuh macht mooooo0o0o0oooo0o0o0o0o0o

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme