Speichern, Laden, Löschen, Eintragen.......

visitorz · Hält's aus hier Beiträge: 9

Hallo,

Über eine Eingabemaske sollen insgesamt 4 Werte gespeichert werden.

Code:

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:

TYPE
 Tkoordinaten = Record
          Name       : String[10];
          wert1      : String[3];
          wert2      : String[3];
          wert3      : String[3];
          end;

VAR datei: Tkoordinaten;
    Datenbank: TDatenbank;

PROCEDURE Speichern;
Var datei: file of Tkoordinaten;
    nameRec,wert1Rec, wert2Rec, wert3Rec: Tkoordinaten;

  begin

   AssignFile(datei,'Koordinaten.txt');
   reset(datei);
   seek(datei,filesize(datei));
   nameRec.name:=(Datenbank.Edit1.text);
   wert1Rec.wert1:=(Datenbank.Edit2.text);
   wert2Rec.wert2:=(Datenbank.Edit3.text);
   wert3Rec.wert3:=(Datenbank.Edit4.text);
   write(datei, nameRec);
   close(datei);

  END;

Die Werte werden wunderbar in die txt. Datei geschriebn

Jetzt soll aber der Wert der Var nameRec außerdem noch in einem Untermenü im Programm hinzugefügt (eingetragen) werden also so:

user defined image

Habe leider keine Ahnung wie ich das anstellen soll kann mir da jemand helfen ?
Wenn der Wert dann im Untermenü steht und man ihn dann auswählt so soll man dann entscheiden können was man damit machen will also 1. anzeigen (Laden) oder 2.löschen habe leider auch hier gar keine Ahnung wie ich das anstellen könnte hoffe ihr könnt mir helfen .......

wulfskin · Verfasst: So 21.11.04 21:10

Auch wieder so ein Beispiel für eine eher schlechte Problemstellung :evil:

. Aber ich denke, du willst im Menu einfach nur ein MenuItem hinzufügen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  Item: TMenuItem;
begin
  Item := TMenuItem.Create(Self);
  Item.Caption := 'test';
  Item.Tag := 1; //um später das Item "wiedererkennen" zu können
  Item.OnClick := DeineOnClickProcedure; //Um auf einen klick reagieren zu können
  N1.Add(Item); //Deinem MenuItem mit dem Namen "N1" hinzufügen

Ich hoffe, dass war das, was du wolltest. Ansonsten wäre eine genauere Beschreibung wohl angebracht.

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme