Getränke Händler/ Bestellung;ect usw

Ilion · Beiträge: 21 Xp(Home,Pro,Pirat) Delphi7 Borland

SO mal ne frage ob mir da jemand helfen könnte ich will kleines programm machen für einen getränke händler. Ich habe 3 memo fenster genommen 3 edit fälder und eine combobox das ich aussuchen kann wo was eingetragen würd in welches memo fenster dazu habe ich so geschrieben was aber nicht geht :

markieren

Delphi-Quelltext

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

var Addressen,Lieferung,Ware,Name,Katerogi,text:String;

begin
     text:=edit3.Text+' -- '+edit1.text+' -- '+edit2.text;
if combobox1.text='Ware' then begin
   memo2.Lines.add(text);
   end;
if combobox1.text='Lieferung' then begin
   memo1.Lines.add(text);
   end;
if combobox1.text='Addressen' then begin
   memo3.Lines.add(text);
   end;

text:=edit3.Text+' -- '+edit1.text+' -- '+edit2.text;
  case combobox1.ItemIndex of
  0:  memo2.Lines.add(text); //'Ware'  sei der 1. Eintrag der Combobox
  1:  memo1.Lines.add(text); //'Lieferung' sei der 2. Eintrag der Combobox
  2:  memo3.Lines.add(text); //'Addressem' sei der 3. Eintrag der Combobox

Moderiert von raziel: Delphi-Tags hinzugefügt.

jasocul · Verfasst: Mi 27.04.05 08:42

@Ilion:
Mach mal ein paar sinnvolle Satzzeichen in deinen Text.

Und bitte schreibe, was nicht geht. Ich persönlich habe keine Lust, deinen Source durchzulesen, um zu prüfen, was dort nicht gehen könnte.

Du erleichterst den potentiellen Helfern die Arbeit, was in deinem Sinn sein sollte.

Ilion · Beiträge: 21 Xp(Home,Pro,Pirat) Delphi7 Borland

Mein problem ist um genau zu sein,dass ich ehrlich gesagt noch nicht soviel von delphi7 verstehe und ich mir versuche selber beizu bringen wie das geht.
Ich weiss nicht ob ich das richtig programmiert habe ganz einfach mein problem ist das er das programm nicht mal öffnet!!!

jasocul · Verfasst: Mi 27.04.05 08:50

Bitte nimm folgendes nicht zu persönlich. Es ist freundlich gemeint.
Lerne erstmal Delphi (Objekt-Pascal, um Bezug auf deine Frage in der ShoutBox zu nehmen), bevor du für jemanden etwas programmierst.
Dass das Programm nicht startet liegt vermutlich daran, dass du nicht weißt, wie man Delphi bedient. Hast du schonmal "F9" probiert? Ich weiß leider nicht, wo man da anfangen soll zu erklären.
Nimm dir ein gutes Buch. In der Sparte Bücher sollten Empfehlungen stehen.

Ilion · Beiträge: 21 Xp(Home,Pro,Pirat) Delphi7 Borland

Kennst du das wort "LOL" hoffe ja !!! Es tut mir leid wenn ich dich in deiner persöhnlichkeit gekränkt habe aber ein bissel ahnung von delphi 7 habe ich schon und wie man programmiert auch vielleicht nicht extrem programme aber bestimmt für kleinigkeiten und normale programme aber ich finde es witzig egal wie freundlich wie ausführlich ich hier rein schreibe und um hilfe bitte hab ich meisten immer naja egal aufjedenfall würd ich mich freuen wenn doch noch jemand sich aufraffen kann und mir helfen kann !!!

jasocul · Verfasst: Mi 27.04.05 09:00

Nee, ich fühle mich nicht gekränkt.
Ich hatte nur den falschen Eindruck.
Bekommst du denn eine Fehlermeldung?

Ilion · Beiträge: 21 Xp(Home,Pro,Pirat) Delphi7 Borland

Das ist ja das witzige ich habe keine fehler meldung garnichts ich habe eigentlich auch richtig den code geschrieben aber er öffnet das programm einfach nicht keine ahnung warum deswegen wende ich mich ja auch an euch weil ich das gefühl habe das ihr ein ganzes stück weiter seit als ich aber das ist auch mein ziel immer mehr dazu lernen

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

In die Combox bei Items Ware eingeben der Erste Eintrag ist = 0 usw.
Hoffe das Hilft !

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var
text:String;
begin
text:=edit1.Text+' -- '+edit2.text+' -- '+edit3.text;
if ComboBox1.ItemIndex=0 then memo1.Lines.add(text); {Ware}
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme