Hallo erstmal=)
bin neu hier und heiße jochen...naja nun zu meinem problem:
ich arbeite gerade an einer vokabelliste, in der ich logischwerweise vokabeln abspeichern möchte!!
das problem ist, dass ich nur schulische erfahrungen habe in sachen programmieren, deswegen habe ich überhaupt keine ahnung wie ich diese liste speichern sollte. ich zeige euch am besten mal, wie ich diese liste erstelle (die einzelnen procedure habe ich in einer eigenen
unit) :
Delphi-Quellcode:
unit Unit2;
interface
type
TVokabel =
class
nextelement : TVokabel;
vok :
String;
anz : Integer;
constructor create (v :
string; a : Integer);
end;
TList =
class
first, position : TVokabel;
constructor create;
destructor destroy;
function isempty : boolean;
procedure next;
procedure previous;
procedure insert (v : TVokabel);
function count : Integer;
procedure remove;
procedure dsearch (v :
string);
procedure fsearch (v :
string);
end;
implementation
constructor TList.create;
begin
inherited create;
first :=
NIL;
position :=
NIL;
end;
destructor TList.destroy;
begin
while not isempty
do remove;
inherited destroy;
end;
constructor TVokabel.create(v :
string; a : Integer);
begin
inherited create;
nextelement :=
NIL;
vok := v;
anz := a;
end;
_________________________________________________________________________________________________________________________________________________
Der code zum hinzufügen:
procedure TList.insert (v : Tvokabel);
begin
if isempty
then begin
first := v;
position := v;
end
else begin
v.nextelement := first;
first := v;
end;
end;
_________________________________________________________________________________________________________________________________________________
So nun die Buttonclicks:
procedure TForm1.CreateClick(Sender: TObject);
begin
d := Tlist.create;
f := TList.create;
deutsch.Clear;
fremd.Clear;
end;
procedure TForm1.InsertClick(Sender: TObject);
begin
d.insert(TVokabel.create((edDeutsch.text),(0)));
f.insert(TVokabel.create((edFremd.Text),(0)));
showlist;
end;
So nun wisst ihr wieweit ich gerade mal bin in sachen programmieren^^
könnt ihr mir nun evtl nen butten code geben, wie ich die liste speicher??
denn ich möchte schließlich nicht die ganzen vokabeln immer neu eingeben... habe schon viel gegoogelt, aber ich werde daraus nicht wirklich schlau, ob es also möglich wäre, wenn ihr einfach den quellcode mit einbaut und hier wieder reinstellt??
wäre echt super lieb von euch =)
mfg Jochen
PS: ich arbeite mit Delphi 7 (bzw auch turbo delphi 06 explorer [funktioniert beides mit den selben codes]) kenne mich damit weiter sonst nicht aus, deswegen entschuldigt bitte die falschen angaben bezüglich der oben angegebenen programmiersprache und datenbank usw....
[edit=alzaimar]Delphi-Tags hinzugefügt. Mfg, alzaimar[/edit]
[edit=SirThornberry]Trennlinie entfernt welche unnötigen Scrollbalken erzwingt. Mfg, SirThornberry[/edit]