Startzähler für Programm erstellen (Wichtig)

[GouJetir]

Ehrlich gesagt weiss ich das net :s

[Luckie]

Zitat von GouJetir:

Ehrlich gesagt weiss ich das net :s

Und nu?

Dann versuch mal herauszufinden, was "undeclared" auf deutsch heißt und wie man Variablen deklariert und nutzt. Und ich empfehle dir, dir die Grundlagen anzueignen. Wir sind hier um zu helfen, wenn man nicht mehr weiter kommt bei konkreten Probleme. Wir sind aber keine Privatlehrer, die dir alles vorkauen. Und solltest du keine Eigeninitiative zeigen, wird das nichts, weder mit dem Programmieren, noch mit Hilfe hier im Forum.

[GouJetir]

Ich muss was bei der var schreiben oder?

[GouJetir]

JAAAAA GESCHAFFT

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    List: TStrings;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('C:\Daten.txt');
    if List.Count>0 then
      Edit1.Text:=List[0];
  finally
    List.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  List := TStringList.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:\Daten.txt');
  finally
    List.Free;
end;
edit1.text := IntToStr(StrToIntDef(edit1.text, 0) + 1);
end;
end.

Oh man bin ich dumm

[stahli]

Dumm vielleicht nicht unbedingt
Aber man muss sich Zeit nehmen und konzentrieren. Sonst wird das nix mit dem Programmieren.
Lernen und Fehler suchen muss aber jeder...

Jedenfalls erst mal Gratulation zum Erfolg.

PS: Für Quelltextzitate hier im Forum solltest Du das Delphi-Quote verwenden (der Helm in der Palette).

[Luckie]

Was geht schneller? Ausprobieren und sich freuen, wenn es funktioniert oder hier eine halbe Stunde und länger auf eine Antwort warten?

[GouJetir]

Kommt halt drauf an wie man gerade drauf ist.

Wenn man Lust auf ausprobieren hat,ist man schneller wenn nicht dann wartet man auf Antworten

Danke an alle die geholfen haben.

[Medium]

Programmieren ist die Lust auf selber lösen. Gerade beim Lernen, im Produktiveinsatz, wenn man Geld damit verdienen muss, sind Fertiglösungen natürlich immer wilkommen, und kosten natürlich in der Regel auch. Berechtigterweise. Bloßes Programmieren ist im wesentlichen: Grob die Syntax der verwendeten Sprache kennen, abstraktes Denken, und die Bereitschaft sich tagelang durch Dokus und Google zu wühlen um 0,5% der Gesamtlösung zu erarbeiten. Ist man dazu nicht bereit, wird's ein steiniger Weg. Und sicherlich keiner, der zu Verdienst oder wertvollem Beitrag zur "community" führt. Deal with it. Hast du hier ja schon ganz gut geschafft

[himitsu]

Du nutzt hier zweimal eine lokale TStringList,
aber warum hast du deren Variable global deklariert?

Globale sind "böse" und wenn man etwas nur lokal (innerhalb einer Prozedur) nutzt, dann gehört die Variable auch lokal (innerhalb der Prozedur) deklariert.



Und "(wichtig)" sind hier irgendwie alle Probleme ... das muß man nicht unbedingt immer mit hinschreiben..
Wobei das hier IMHO nicht wirklich wichtig war.