Hallo
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
begin
with listbox1 do
begin
if pos(' - ',Items[itemindex])= 0 then //kein ' - ' im String-> es wurde noch keine Uhrzeitz hinzugefügt
Items[itemindex]:=Items[itemindex]+' - '+timetostr(time);
end;
end;
end; |
nur so kurz als Denkanstoß .
' - ' dient zur Erkennung oder halt irgendetwas anderes, was nicht in den Einträgen vorkommt
um die Uhrzeit zu ändern, mußt du dann halt den ganzen String ab der gefunden Position löschen und die neue Zeit hinzufügen.
itemindex solltest du auch noch auf Gültigkeit prüfen.
um die Einträge zu laden zu speicher, schau dir Z.b. die
items eigenschaft an, dort gibt es Loadfromfile, savetofile. Beispiele dazu gibts in der onlinehilfe.
Mfg Frank
