kleines Array Problem

Fredy · Beiträge: 57 Win Vista Ultimate

Hallo liebe Community,

Ich habe eine Combobox mit Artikeln diese Artikel möchte ich bei bestätigen des Buttons in ein Array laden.

z.B. ich wähle z.B. Maus in der Combobox dann soll in meinem Warenkorbartikel ( Mein Array ) in der ersten Zeile die Maus stehen.

markieren

Delphi-Quelltext

1:	Warenkorbartikel : Array of shortstring;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TfrmRAEingabe.btnStartClick(Sender: TObject);
var k: integer;
begin

SetLength(Warenkorbartikel, 15);


for k := 0 to high(Warenkorbartikel) do
    begin
      Warenkorbartikel[k] := cbArtikel.Text;
      exit;
    end; // von for

end;

Ich glaube ich mache einen Denkfehler schon mal Vielen Dank für eure Antworten.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Mo 18.05.2009 um 17:59

Narses · Verfasst: Mo 18.05.09 17:45

Moin!

Fredy hat folgendes geschrieben :

Ich habe eine Combobox mit Artikeln diese Artikel möchte ich bei bestätigen des Buttons in ein Array laden.

Die entscheidende Frage ist:

Fredy hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	Warenkorbartikel : Array of shortstring;

Soll dein Warenkorb immer eine feste Größe haben (dann brauchst du einen Füllmengenzeiger) oder soll er dynamisch "wachsen" (dann musst du die Länge des dyn. Arrays anpassen)? :nixweiss:

Fredy hat folgendes geschrieben :

z.B. ich wähle z.B. Maus in der Combobox dann soll in meinem Warenkorbartikel ( Mein Array ) in der ersten Zeile die Maus stehen.

Aber doch erst nach dem Buttonklick, oder? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

besser wäre es wenn es dynamisch ist

Aber wie musss ich das jetzt umsetzten ?

Dann müsste ich sozusagen die Länge bei jedem Klick einmal erhöhen oder ?

Ja erst beim Buttonklick soll er die Combobox einlesen.

Narses · Verfasst: Mo 18.05.09 17:56

Moin!

Fredy hat folgendes geschrieben :

besser wäre es wenn es dynamisch ist

Aber wie musss ich das jetzt umsetzten ?

Dann wäre der Ablauf in etwa so:

markieren

Delphi-Quelltext

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

var
  Warenkorbartikel : Array of shortstring;

// bei Programmstart
Warenkorbartikel := NIL; // nix drin

// beim Klick "Hinzufügen"
SetLength(Warenkorbartikel,Length(Warenkorbartikel) +1); // ein Element mehr
Warenkorbartikel[High(Warenkorbartikel)] := ComboBox1.Text; // Element dazu tun

Das dyn. Array auf diese Weise anzufassen ist nicht grade "Speichersparend", aber für ein einfaches Programm mit wenig Einträgen ist das schon OK.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

okay so weit so gut wenn ich aber das Programm schließe und wieder öffne dann ist der Warenkorb wieder auf Null gesetzt und er überschreibt mir die ersten Artikel wieder oder ?

Ehemaliges Mitglied Erhaltene Danke: 1

Sicher, Du wirst ihn schon speichern müssen.

Narses · Verfasst: Mo 18.05.09 18:09

Moin!

Fredy hat folgendes geschrieben :

wenn ich aber das Programm schließe und wieder öffne dann ist der Warenkorb wieder auf Null gesetzt und er überschreibt mir die ersten Artikel wieder oder ?

Klar

wir haben ja auch nicht über das Speichern dieses Warenkorb-Arrays gesprochen, sondern über die Benutzung.

Wenn du den Warenkorb auch speichern/laden sollst, dann würde ich aber besser eine TStringList nehmen, die kann mit den Methoden .LoadFromFile() und .SaveToFile() schon sowas. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

das ist verständlich aber dann dürfte ich den Warenkorb ja nicht auf null setzten beim Programmstart.

Weil der gespeicherte Datensatz im Warenkorb soll ja nicht überschrieben werden sondern soll unten drunter weitergeführt werden nach einem neustart oder ?

Narses · Verfasst: Mo 18.05.09 18:13

Moin!

Fredy hat folgendes geschrieben :

das ist verständlich aber dann dürfte ich den Warenkorb ja nicht auf null setzten beim Programmstart.

Doch, das würde ich schon tun, allerdings würde ich danach versuchen, einen schon existierenden Warenkorb zu laden.

Das Programm muss ja auch einen definierten Anfangszustand haben (das allererste Mal gibt´s ja noch gar keinen Warenkorbinhalt). :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

Hallo liebe Community,

hab es super hinbekommen dank eurer hilfe nur stehe ich jetzt vor einem Problem und zwar hab ich eine Speichern Funktion eingebaut.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

//------------------------------------------------------------------------------
// Die Datensätze im Array werden dauerhaft in einer Datei gespeichert
//------------------------------------------------------------------------------
procedure ArrayInDateiW();
var k: integer;
begin
  rewrite(WarenkorbDatei);
  Seek(WarenkorbDatei, 0);
  for k := 0 to high(Warenkorbartikel) do
    begin
      WarenkorbSatz := Warenkorbartikel[k];
      Write(WarenkorbDatei, WarenkorbSatz);
    end; // von for
  CloseFile(WarenkorbDatei);
end; // der Prozedur
//------------------------------------------------------------------------------
//--------------------------- Warenkorb Ende -----------------------------------
//------------------------------------------------------------------------------

Variabeldeklaration:

markieren

Delphi-Quelltext

1:
2:
3:

  WarenkorbSatz                : WarenkorbRecord;   // Recordvariable
  WarenkorbDatei               : WarenkorbFile;     // Dateivariable
  Warenkorbartikel             : Array of shortstring;

Das will Delphie aber leider nicht annehmen er gibt eine Fehlermeldung aus und zwar diese :

[Error] dateien.inc(824): Incompatible types: 'WarenkorbRecord' and 'ShortString'

Weiß jemand wie ich den Fehler beheben kann ?

Mfg. Fredy

Edit:

markieren

Delphi-Quelltext

1:	Warenkorbartikel : Array of WarenkorbRecord;

hab dies jetzt so geändert aber jetzt Funktioniert das mit dem Artikel hinzufügen nicht

markieren

Delphi-Quelltext

1:	Warenkorbartikel[High(Warenkorbartikel)] := cbArtikel.Text;

Fehlermeldung: [Error] Unit19.pas(238): Incompatible types: 'WarenkorbRecord' and 'TCaption'

Edit2: okay das was ich bei Edit ausprobiert habe kann man nicht machen dann bekomme ich noch mehr Fehlermeldungen

Narses · Verfasst: Mo 18.05.09 22:40

Moin!

Wie ist den WarenkorbRecord deklariert (und warum)? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

das hab ich so

markieren

Delphi-Quelltext

1:
2:
3:

  type WarenkorbRecord      = record
  end;
  WarenkorbFile             = file of WarenkorbRecord;

das hab ich aus einer Vorlage

hab nicht genau gewust wie ich das umsetzten soll

Narses · Verfasst: Mo 18.05.09 22:51

Moin!

Fredy hat folgendes geschrieben :

das hab ich so

markieren

Delphi-Quelltext

1:
2:
3:

  type WarenkorbRecord      = record
  end;
  WarenkorbFile             = file of WarenkorbRecord;

das hab ich aus einer Vorlage

hab nicht genau gewust wie ich das umsetzten soll

Ähm

kennst du das hier schon? Wenn nicht, bitte mal kurz durchlesen...

Diese record-Deklaration und das File of desselben sind komplett nutzlos. Am besten machst du das mit dem Warenkorb als TStringList, das ist deutlich einfacher. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

du hast nicht zufällig eine Idee wie ich das hinbekomme mit meiner bisherigen Ausgangsposition ?

Narses · Verfasst: Mo 18.05.09 23:06

Moin!

markieren

Delphi-Quelltext

1:
2:

type
  WarenkorbFile = file of ShortString;

Aber ich fürchte, du hast nicht den leisesten Plan, was hier eigentlich läuft...

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fredy · Beiträge: 57 Win Vista Ultimate

da hast du Recht aber ich möchte es irgendwie heute noch zum laufen bringen =)

gleiche Fehlermeldung immer noch:

Fehlermeldung: [Error] Unit19.pas(238): Incompatible types: 'WarenkorbRecord' and 'TCaption'

markieren

Delphi-Quelltext

1:	Warenkorbartikel[High(Warenkorbartikel)] := cbArtikel.Text;

hat jemand eine Idee bin gerade ein bisschen am Verzweifeln ?

Regan · Verfasst: Mo 18.05.09 23:28

Da müssen wir uns eben mal etwas sputen:

markieren

Delphi-Quelltext

1:	Warenkorbartikel : array of ShortString;

Du musst das so wählen, wenn du diese Zuweisung machen willst. Ich bezweifle aber, dass du die Grundlagen fürs Weiterprogrammieren hast

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme