Aus Zeilen einer Textdatei lesen, berechnen, abspeichern

Blah_Blahson · Hält's aus hier Beiträge: 6

Morgen allerseits.

Mein Problem ist folgendes:
Ich habe eine Textdatei mit 3 Integer-Werten in den Zeilen 1, 2 und 3. Ich wähle in einer ComboBox ein Item aus, klicke den Bestätigen-Button und je nach ItemIndex holt das Programm Wert x aus der Textdatei, die Variable für den Wertheißt meinetwegen Value. Der Pfad dieser Textdatei muss zudem dynamisch sein, d.h. egal welchen Pfad der Ordner des Programms hat, er findet die Textdatei.

Könnt ihr mal sehen, was werdende Abiturienten alles nicht können : p
MfG Blah

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

In etwa so :

markieren

Delphi-Quelltext

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

......
//global
Value : Integer;
....

procedure TForm1.ButtonClick1(Sender: TObject);
var f : TStringList;
begin
  f := TStringList.Create;
  try 
    f .LoadFromFile(ExtractFilePath(Application.ExeName) + 'TheFileName.dat');
    Value := StrToInt(f[ComboBox.ItemIndex]);
  except 
    ShowMessage('Datei nicht vorhanden !');
  end;
  f.Free;
end;

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme