Startzähler für Programm erstellen (Wichtig)

[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.

[Zacherl]

Ich weiß ja nicht genau, was deine Intention darstellt, aber da ich aufgrund deiner dargelegten Kentnisse nicht vermute, dass du im kommerziellen Sektor tätig bist, lege ich einfach mal zu grunde, dass du dein Programm rein hobbymäßig schreibst.

Hier muss ich Medium voll und ganz recht geben. Wenn du wirklich die Freude am Entdecken einer eigenen Lösung erfahren willst, dann darfst du nicht (nur) auf fertige Lösungen setzen. Ich behaupte einfach mal ganz Dreist, dass mindestens 50% beim Programmieren das Ausprobieren von Lösungsansätzen ausmacht. Man denkt sich "aha, so könnte das eventuell gehen", probiert das ganze dann aus, stößt auf neue Probleme, entwickelt Lösungen auch dafür und irgendwann hat man es so, wie man es haben will.

Grade am Anfang und da spreche ich aus Erfahrung, ist Ausprobieren enorm wichtig, wenn man was lernen will. Man muss es natürlich auch wirklich wollen und ein gewisses Grundinteresse am finden von Lösungsansätzen mitbringen. Auch sollte man sich nicht von Fehlschlägen aus dem Konzept bringen lassen. Dafür sind dann ja Foren wie dieses da, wo vielleicht der ein oder andere User einen Ansatz präsentiert, an den man selbst noch nicht gedacht hat.

[Sir Rufo]

Hier mal der Code wenn man eine Ini-Datei verwenden möchte

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}

uses
  IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( 'C:\Daten.ini' );
  try
    Edit1.Text := Ini.ReadString( 'Merken', 'Edit1', Edit1.Text );
  finally
    Ini.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( 'C:\Daten.ini' );
  try
    Ini.WriteString( 'Merken', 'Edit1', Edit1.Text );
  finally
    Ini.Free;
  end;

  Edit1.Text := IntToStr( StrToIntDef( Edit1.Text, 0 ) + 1 );
end;
end.

In der Ini-Datei steht mit diesem Code dann z.B.

Code:

[Merken]
Edit1=3

EDIT: Jo, da fehlte das Ini vor Read- und WriteString