Einzelnen Beitrag anzeigen

Gabberjool

Registriert seit: 24. Jul 2006
Ort: schweiz
56 Beiträge
 
#66

Re: [SUCHE] Mentor/Meister /Leherer

  Alt 6. Jul 2009, 09:18
4monate später....

So hab Sau viel gelesen versteh auch 1000mal mehr als vorher. Hab schon unzählige Tools fertig gestellt ohne irgendwelche fragen zu stellen jedoch stellt sich mir momentan ein Problem.

1.
Ich Bau gerade an meinem eigenen Buchhaltung's Programm Rum und es funktioniert auch sehr gut, da ich aber über die Listbox die Einträge mache und das nicht so schön ausschaut würd ich halt gern das gazne über sheets erstellen jedoch kann ich die sheets noch so ansprechen wie ich will die reagieren nicht drauf oder der Compiler spuckt Fehler aus.
(jedoch mehr dazu wenich mit meinem pc wider Online bin)....

2.
Hab ich noch eine frage durch die Tutorials usw weiss ich ja wie man procedure anlegt und Funktionen jetzt aber wen ich eine normale Prozedur wie z.b. eines Editors für das Neu,öffnen,Speichern schreib:
Delphi-Quellcode:
Private
  procedure DateiDialog(sender: TObject);

procedure TForm1.DateiDialog(sender: TObject);
begin
  case TComponent(sender).Tag of
    1:
    begin
   Memo.Clear;
   FileName:='Neue Date.txt';
     end;
    
    2:
    begin
    if openDialog.execute then
   begin
   Memo.lines.loadFromFile(OpenDialog.FileName);
    FileName:=OpenDialog.FileName;
   StatusBar.Panels[0].Text.FileName;
   end;
   
    3:
    begin
   FileName:=SaveDialog.FileName;
   SaveDialog.InitiDir:=ExtractPath(SaveDialog.fileName);
   if SaveDialog.execte then
     begin
     memo.lines.savetofile(SaveDialog.FileName);
     FileName:=SaveDialog.Filename;
     Statusbar.panles[0].text:=filename;
  end;
end;


procedure TForm1.button1click(Sender: TObject);
begin
  DateiDialog(Sender);
end;
(weiss nicht ob der Code 100% grammatikalisch stimmt hab es aus dem Kopf geschrieben)

Ist es besser das ganze in einer Prozedur zu halten oder auf jeden einzelnen Button zu schreiben...
oder ist der Sinn eine Prozedur nur das es halt einfach ist wen man es mehrmals verwendet.
(hab zurzeit kein Internet sehe also heute bis 12:00 und dann erst am 10.August bis dann danke schon mal für die antworten... great
  Mit Zitat antworten Zitat