über monthcalendar eine Datei durchsuchen

lord.paddington · Beiträge: 76

Ich öffne eine Textdatei:

Delphi-Quelltext

1:	If ComboBox1.ItemIndex = 0 then ListBox1.Items.loadfromfile('Anlage/Buch1'+'.txt');

in dieser Textdatei stehen folgende Zeilen:

markieren

Quelltext

1:
2:
3:
4:

  ...
  04.04.2005 Eintrag
  Eintrag1; Eintrag2; Eintrag3; Eintrag4; Eintrag5
  ...

in meinem Form habe ich jetzt einen MonthCalendar integriert.

Frage: Wenn ich ein Datum picke, dann soll er dieses Datum in der geöffneten Textdatei suchen
und mir die Zeile anzeigen.

Wie kann ich das mit dem MonthCalendar umsetzen?

Danke!

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

_________________
pfutsch ist hin und hin ist pfutsch

inselberg · Beiträge: 458

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
 edit1.Text := datetostr( MonthCalendar1.Date)    ;

 ....
end;

wenn du nicht von hand suchen möchtest würde ich die textdatei-struktur in

04.04.2005
Eintrag
Eintrag1; Eintrag2; Eintrag3; Eintrag4; Eintrag5

ändern dadurch könntest du direkt per
indexof(datetostr( MonthCalendar1.Date))
in die gewünschte zeile springen...

sonst musst du halt per

markieren

Delphi-Quelltext

1:
2:
3:

d:=datetostr( MonthCalendar1.Date);
for i:=0 to listbox1.items.count-1 do
 if pos(d,listbox1.items[i]) = 1 then // juhu gefunden

- oder ähnlichem - suchen ...

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

_________________
hans bist du das ?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme