AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Programm irreperabel?

Ein Thema von TheMiller · begonnen am 2. Okt 2003 · letzter Beitrag vom 2. Okt 2003
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#1

Programm irreperabel?

  Alt 2. Okt 2003, 19:25
Hey Leute...

in einen meiner vorherigen Threads hatte ich mal eine Rechenaufgabe angesprochen, bei der 100+100+100 = 3 ergibt.

Ich finde den Fehler absolut nicht. Wer würde sich bereiterklären, mal nachzusehen?

zur Info:

Es handelt sich heir um ein Mietsaldierungsprogramm. Es können Mieterkonten eröffnet werden und von Daten werden buchungen geladen und können erweitert werden...

Würde euch das Programm mit Source schicken...

Wäre sau nett, wenn sich jmd. bemühen würde...
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#2

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:27
Hi,

1. würde es uns evtl. auch schon recihen wenn Du die Prozedur hier reinstellst die rechnet und 2., ab nach dElphi-Language das hat "noch" nicht mit der VCL zutun.
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#3

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:33
Hier ist die gesamte prozedur...

Delphi-Quellcode:
implementation

uses Unit1, Unit3;

{$R *.dfm}

var i: integer; Ergebnis: extended;
var i1: integer; Ergebnis2: extended;
var i2: integer; Ergebnis3: extended;
var i3: integer; Ergebnis4: extended;
var i4: integer; Ergebnis5: extended;
var i5: integer; Ergebnis6: extended;
var i6: integer; Ergebnis7: extended;
var i7: integer; Ergebnis8: extended;
var i8: integer; Ergebnis9: extended;
var i9: integer; Ergebnis10: extended;
var i10: integer; Ergebnis11: extended;
var i11: integer; Ergebnis12: extended;
var i12: integer; Ergebnis13: extended;
var i13: integer; Ergebnis14: extended;
var i14: integer; Ergebnis15: extended;
var i15: integer; Ergebnis16: extended;
var i16: integer; Ergebnis17: extended;
var i17: integer; Ergebnis18: extended;
var i18: integer; Ergebnis19: extended;
var i19: integer; Ergebnis20: extended;

Memo2.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto1.shd');
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto1.kaz');

Memo3.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto2.shd');
Memo4.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto2.kaz');

Memo5.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto3.shd');
Memo6.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto3.kaz');

Memo7.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto4.shd');
Memo8.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto4.kaz');

Memo9.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto5.shd');
Memo10.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto5.kaz');

Memo11.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto6.shd');
Memo12.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto6.kaz');

Memo13.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto7.shd');
Memo14.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto7.kaz');

Memo15.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto8.shd');
Memo16.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto8.kaz');

Memo17.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto9.shd');
Memo18.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto9.kaz');

Memo19.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto10.shd');
Memo20.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto10.kaz');

Memo21.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto11.shd');
Memo22.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto11.kaz');

Memo23.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto12.shd');
Memo24.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto12.kaz');

Memo25.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto13.shd');
Memo26.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto13.kaz');

Memo27.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto14.shd');
Memo28.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto14.kaz');

Memo29.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto15.shd');
Memo30.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto15.kaz');

Memo31.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto16.shd');
Memo32.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto16.kaz');

Memo33.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto17.shd');
Memo34.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto17.kaz');

Memo35.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto18.shd');
Memo36.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto18.kaz');

Memo37.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto19.shd');
Memo38.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto19.kaz');

Memo39.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto20.shd');
Memo40.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto20.kaz');

end;


procedure TForm4.Button4Click(Sender: TObject);

begin
Memo8.Lines.add(Datetostr(DateTimePicker4.Date) +' ' +edit7.Text + '');
Memo8.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto4.kaz');
Memo7.Lines.add (edit7.Text);
Memo7.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto4.shd');
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
Memo10.Lines.add(Datetostr(DateTimePicker5.Date) +' ' +edit9.Text + '');
Memo10.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto5.kaz');
Memo9.Lines.add (edit9.Text);
Memo9.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto5.shd');
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Memo12.Lines.add(Datetostr(DateTimePicker6.Date) +' ' +edit11.Text + '');
Memo12.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto6.kaz');
Memo11.Lines.add (edit11.Text);
Memo11.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto6.shd');
end;

procedure TForm4.Button19Click(Sender: TObject);
begin
Memo14.Lines.add(Datetostr(DateTimePicker7.Date) +' ' +edit13.Text + '');
Memo14.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto7.kaz');
Memo13.Lines.add (edit13.Text);
Memo13.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto7.shd');
end;

procedure TForm4.Button20Click(Sender: TObject);
begin
Memo16.Lines.add(Datetostr(DateTimePicker8.Date) +' ' +edit15.Text + '');
Memo16.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto8.kaz');
Memo15.Lines.add (edit15.Text);
Memo15.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto8.shd');
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
Memo18.Lines.add(Datetostr(DateTimePicker9.Date) +' ' +edit17.Text + '');
Memo18.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto9.kaz');
Memo17.Lines.add (edit17.Text);
Memo17.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto9.shd');
end;

procedure TForm4.Button8Click(Sender: TObject);
begin
Memo20.Lines.add(Datetostr(DateTimePicker10.Date) +' ' +edit19.Text + '');
Memo20.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto10.kaz');
Memo19.Lines.add (edit19.Text);
Memo19.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto10.shd');
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
Memo22.Lines.add(Datetostr(DateTimePicker11.Date) +' ' +edit21.Text + '');
Memo22.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto11.kaz');
Memo21.Lines.add (edit21.Text);
Memo21.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto11.shd');
end;

procedure TForm4.Button10Click(Sender: TObject);
begin
Memo24.Lines.add(Datetostr(DateTimePicker12.Date) +' ' +edit23.Text + '');
Memo24.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto12.kaz');
Memo23.Lines.add (edit23.Text);
Memo23.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto12.shd');
end;

procedure TForm4.Button11Click(Sender: TObject);
begin
Memo26.Lines.add(Datetostr(DateTimePicker13.Date) +' ' +edit25.Text + '');
Memo26.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto13.kaz');
Memo25.Lines.add (edit25.Text);
Memo25.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto13.shd');
end;

procedure TForm4.Button12Click(Sender: TObject);
begin
Memo28.Lines.add(Datetostr(DateTimePicker14.Date) +' ' +edit27.Text + '');
Memo28.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto14.kaz');
Memo27.Lines.add (edit27.Text);
Memo27.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto14.shd');
end;

procedure TForm4.Button13Click(Sender: TObject);
begin
Memo30.Lines.add(Datetostr(DateTimePicker15.Date) +' ' +edit29.Text + '');
Memo30.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto15.kaz');
Memo29.Lines.add (edit29.Text);
Memo29.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto15.shd');
end;

procedure TForm4.Button14Click(Sender: TObject);
begin
Memo32.Lines.add(Datetostr(DateTimePicker16.Date) +' ' +edit31.Text + '');
Memo32.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto16.kaz');
Memo31.Lines.add (edit31.Text);
Memo31.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto16.shd');
end;

procedure TForm4.Button15Click(Sender: TObject);
begin
Memo34.Lines.add(Datetostr(DateTimePicker17.Date) +' ' +edit33.Text + '');
Memo34.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto17.kaz');
Memo33.Lines.add (edit33.Text);
Memo33.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto17.shd');
end;

procedure TForm4.Button16Click(Sender: TObject);
begin
Memo36.Lines.add(Datetostr(DateTimePicker18.Date) +' ' +edit35.Text + '');
Memo36.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto18.kaz');
Memo35.Lines.add (edit35.Text);
Memo35.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto18.shd');
end;

procedure TForm4.Button17Click(Sender: TObject);
begin
Memo38.Lines.add(Datetostr(DateTimePicker19.Date) +' ' +edit37.Text + '');
Memo38.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto19.kaz');
Memo37.Lines.add (edit37.Text);
Memo37.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto19.shd');
end;

procedure TForm4.Button18Click(Sender: TObject);
begin
Memo40.Lines.add(Datetostr(DateTimePicker20.Date) +' ' +edit39.Text + '');
Memo40.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto20.kaz');
Memo39.Lines.add (edit39.Text);
Memo39.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto20.shd');
end;

procedure TForm4.Button21Click(Sender: TObject);
begin
  Ergebnis:=0;
  for i:=0 to Memo2.Lines.Count-1 do
  begin
    Ergebnis:=Ergebnis+StrToFloat(Memo2.Lines[i]);
  end;
  Edit41.text:=FloatToStr(Ergebnis);
end;

procedure TForm4.Button22Click(Sender: TObject);
begin
  Ergebnis2:=0;
  for i1:=0 to Memo3.Lines.Count-1 do
  begin
    Ergebnis2:=Ergebnis2+StrToFloat(Memo3.Lines[i1]);
  end;
  Edit42.text:=FloatToStr(Ergebnis2);

end;

procedure TForm4.Button23Click(Sender: TObject);
begin
  Ergebnis3:=0;
  for i2:=0 to Memo5.Lines.Count-1 do
  begin
    Ergebnis3:=Ergebnis3+StrToFloat(Memo5.Lines[i2]);
  end;
  Edit43.text:=FloatToStr(Ergebnis3);

end;

procedure TForm4.Button24Click(Sender: TObject);
begin
  Ergebnis4:=0;
  for i3:=0 to Memo7.Lines.Count-1 do
  begin
    Ergebnis4:=Ergebnis4+StrToFloat(Memo7.Lines[i3]);
  end;
  Edit44.text:=FloatToStr(Ergebnis4);

end;

procedure TForm4.Button25Click(Sender: TObject);
begin
  Ergebnis5:=0;
  for i4:=0 to Memo9.Lines.Count-1 do
  begin
    Ergebnis5:=Ergebnis5+StrToFloat(Memo9.Lines[i4]);
  end;
  Edit45.text:=FloatToStr(Ergebnis5);

end;

procedure TForm4.Button26Click(Sender: TObject);
begin
  Ergebnis6:=0;
  for i5:=0 to Memo11.Lines.Count-1 do
  begin
    Ergebnis6:=Ergebnis6+StrToFloat(Memo11.Lines[i5]);
  end;
  Edit46.text:=FloatToStr(Ergebnis6);

end;

procedure TForm4.Button27Click(Sender: TObject);
begin

  Ergebnis7:=0;
  for i6:=0 to Memo13.Lines.Count-1 do
  begin
    Ergebnis7:=Ergebnis7+StrToFloat(Memo13.Lines[i6]);
  end;
  Edit47.text:=FloatToStr(Ergebnis7);

end;

procedure TForm4.Button28Click(Sender: TObject);
begin

  Ergebnis8:=0;
  for i7:=0 to Memo15.Lines.Count-1 do
  begin
    Ergebnis8:=Ergebnis8+StrToFloat(Memo15.Lines[i7]);
  end;
  Edit48.text:=FloatToStr(Ergebnis8);

end;

procedure TForm4.Button29Click(Sender: TObject);
begin
  Ergebnis9:=0;
  for i8:=0 to Memo17.Lines.Count-1 do
  begin
    Ergebnis9:=Ergebnis9+StrToFloat(Memo17.Lines[i8]);
  end;
  Edit49.text:=FloatToStr(Ergebnis9);

end;

procedure TForm4.Button30Click(Sender: TObject);
begin
    Ergebnis10:=0;
  for i9:=0 to Memo19.Lines.Count-1 do
  begin
    Ergebnis10:=Ergebnis10+StrToFloat(Memo19.Lines[i9]);
  end;
  Edit50.text:=FloatToStr(Ergebnis10);

end;

procedure TForm4.Button31Click(Sender: TObject);
begin
    Ergebnis11:=0;
  for i10:=0 to Memo21.Lines.Count-1 do
  begin
    Ergebnis11:=Ergebnis11+StrToFloat(Memo21.Lines[i10]);
  end;
  Edit51.text:=FloatToStr(Ergebnis11);

end;

procedure TForm4.Button32Click(Sender: TObject);
begin
    Ergebnis12:=0;
  for i11:=0 to Memo23.Lines.Count-1 do
  begin
    Ergebnis12:=Ergebnis12+StrToFloat(Memo23.Lines[i11]);
  end;
  Edit52.text:=FloatToStr(Ergebnis12);

end;

procedure TForm4.Button33Click(Sender: TObject);
begin
    Ergebnis13:=0;
  for i12:=0 to Memo25.Lines.Count-1 do
  begin
    Ergebnis13:=Ergebnis13+StrToFloat(Memo25.Lines[i12]);
  end;
  Edit53.text:=FloatToStr(Ergebnis13);

end;

procedure TForm4.Button34Click(Sender: TObject);
begin
    Ergebnis14:=0;
  for i13:=0 to Memo27.Lines.Count-1 do
  begin
    Ergebnis14:=Ergebnis14+StrToFloat(Memo27.Lines[i13]);
  end;
  Edit54.text:=FloatToStr(Ergebnis14);

end;

procedure TForm4.Button35Click(Sender: TObject);
begin
    Ergebnis15:=0;
  for i14:=0 to Memo29.Lines.Count-1 do
  begin
    Ergebnis15:=Ergebnis15+StrToFloat(Memo29.Lines[i14]);
  end;
  Edit55.text:=FloatToStr(Ergebnis15);

end;

procedure TForm4.Button36Click(Sender: TObject);
begin
    Ergebnis16:=0;
  for i15:=0 to Memo31.Lines.Count-1 do
  begin
    Ergebnis16:=Ergebnis16+StrToFloat(Memo31.Lines[i15]);
  end;
  Edit56.text:=FloatToStr(Ergebnis16);

end;

procedure TForm4.Button37Click(Sender: TObject);
begin
    Ergebnis17:=0;
  for i16:=0 to Memo33.Lines.Count-1 do
  begin
    Ergebnis17:=Ergebnis17+StrToFloat(Memo33.Lines[i16]);
  end;
  Edit57.text:=FloatToStr(Ergebnis17);

end;

procedure TForm4.Button38Click(Sender: TObject);
begin
    Ergebnis18:=0;
  for i17:=0 to Memo35.Lines.Count-1 do
  begin
    Ergebnis18:=Ergebnis18+StrToFloat(Memo35.Lines[i17]);
  end;
  Edit58.text:=FloatToStr(Ergebnis18);

end;

procedure TForm4.Button39Click(Sender: TObject);
begin
      Ergebnis19:=0;
  for i18:=0 to Memo37.Lines.Count-1 do
  begin
    Ergebnis19:=Ergebnis19+StrToFloat(Memo37.Lines[i18]);
  end;
  Edit59.text:=FloatToStr(Ergebnis19);

end;

procedure TForm4.Button40Click(Sender: TObject);
begin
      Ergebnis20:=0;
  for i18:=0 to Memo39.Lines.Count-1 do
  begin
    Ergebnis20:=Ergebnis20+StrToFloat(Memo39.Lines[i18]);
  end;
  Edit59.text:=FloatToStr(Ergebnis20);

end;

end.
So , da stecken fehler drin... Ich denke, es wird euch nichts ohne das eigentliche Prog bringen, da bei Konto 1-3 alles richtig geht. Der rest net. Und warum weis ich net...
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:37


Öhm, ich weiß ja nicht, aber dass du da den Fehler nicht findest, wundert mich eigentlich gar nicht.

Versuch das ganze mal etwas effizienter zu schreiben. Sprich versuch mal ein paar globale Variablen los zu werden. Wie man den Rest verpessern könnte, weiß ich jetzt auch nicht, dazu müßte ich den Code erstmal analysieren, aber ohne weitere Erklärungen, was er machen soll etwas schwiereig.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#5

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:40
Jup, auf diese Antwort habe ich gewartet

Hm...ich weis mir (auch im Code) nicht weiter zu helfen. Es geht auch mit arreys, nur weis net wie...
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#6

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:50
Zitat:
Memo2.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.shd');
Memo1.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.kaz');

{...}

Memo39.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.shd');
Memo40.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.kaz');
Könntest du etwa so umschreiben:

Delphi-Quellcode:
var
  i: Integer;
  strFilePath: string;
begin
  strFilePath := ExtractFilePath(ParamStr(0));
  for i := 1 to 39 do
  begin
    TMemo(FindComponent('Memo'+IntToStr(i))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.kaz');
    TMemo(FindComponent('Memo'+IntToStr(i+1))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.shd');
  end;
end;
Thomas
  Mit Zitat antworten Zitat
Benutzerbild von Memo
Memo

Registriert seit: 19. Aug 2003
509 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Programm irreperabel?

  Alt 2. Okt 2003, 19:51
Wie sieht den eine typische Zeile aus sagen wir mal Konto5.shd aus?
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#8

Re: Programm irreperabel?

  Alt 2. Okt 2003, 20:00
Hi,

also die Variablen lassen sich jedenfall ein bisschen zusammenfalten. Ausserdem solltest Du beim ix und! bei Ergebnisx mit 0 anfangen, sonst ist das um 1 verschoben und Du kommst da evtl. durcheinander, habe ich jetzt da schon mit reingemacht.
Delphi-Quellcode:
var
  i, i1, i2, i3, i4, i4, i5, i6, i7, i8, i9,
    i10, i11, i12, i13, i14, i15, i16, i17, i18, i19: Integer;
  Ergebnis, Ergebnis1, Ergebnis2, Ergebnis3, Ergebnis4,
    Ergebnis5, Ergebnis6, Ergebnis7, Ergebnis8, Ergebnis9,
    Ergebnis10, Ergebnis11, Ergebnis12, Ergebnis13, Ergebnis14,
    Ergebnis15, Ergebnis16, Ergebnis17, Ergebnis18, Ergebnis19: Extendet;
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Programm irreperabel?

  Alt 2. Okt 2003, 20:04
Da finde ich aber seien Schreibweise übersichtlicher.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#10

Re: Programm irreperabel?

  Alt 2. Okt 2003, 20:08
Hey das sind ja schon eine Menge brauchbare antworten...

Ich werde mich heute nacht mal dransetzen, da ich jetzt erstmal weg mus...

Erstmal: danke für eure bisherigen Bemühungen...

bye
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz