Erkennen von Lines

[homerunjack]

Ich habe eine Textdatei die ich auslesen lassen mächte ! das ist für so ein kleines haushaltsbuch:

Delphi-Quellcode:

  
DateiName := OpenDialog1.FileName ;
ChecklisteEin.Lines.LoadFromFile(OpenDialog1.FileName); // ChecklisteEin ist ein Memo wo alles aus txt datei angezeigt wird
AssignFile (Datei, DateiName);
Reset (Datei);
for i := 1 To Max do
begin
ReadLn (Datei, zeile1);
ReadLn (Datei, (zeile2)+1);

Jetzt sieht der text in der datei so aus:

ChecklisteEin
Fernseher
-500
Gehalt
1500

um die schleife (oben , for i =...) zu durchlaufen muss ich eine konstate angeben! jetzt wollte ich schreiben

const Max : Ln / 2
aber das geht nicht

ich möchte nämlich die Geldwerte erkennen lassen so das ich die zusammenrechnen kann, wie erkennt delphi, das es z.B. wie in diesem beispiel 2 werte sind und das er dann 1000 ausgibt???

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Puhbaehr]

Ist es das was du suchst?

Memo1.Lines[i]; bzw. ChecklisteEin.Lines[i];

Gruß, Robert

[homerunjack]

Ja das geht schonmal gut
doch wie kann ich jetzt erkennen lassen, (das jetzt nur für die rechnung) das die erste zeile ignoriert wird (ChecklisteEin)
die zweite ein name ist (Fernseher) auch ignoriert wird und das die dritte Zeile eine Zahl ist (-500) und das er nun jede zweite zeile bis es nicht mehr geht zusammenrechnet!


die rechnung soll dann in einem panel (panel1) ausgegeben werden

[malo]

Bitte ganz langsam zum Mitschreiben - Was willst du machen? :gruebel:

[homerunjack]

also, ich habe ein haushaltsprogramm jetzt gerade in bearbeitung

ein haushaltsbuch ist soetwas wo man seine ein und ausnahmen reinschreibt.

jetzt habe ich ein memo feld in dem die ein und ausnahmen dokumantiert werden
(ich habe noch zwei textfelder die die memo füllen)
der speichern button geht schon doch jetzt will ich eine datei laden und das delphi die Beschreibung + preis im memo feld ausgibt (das hab ich schon hingekriegt) und das er die werte zu einem Kontostand zusammenrechnet :

der text in der memobox und demzufolge auch in der textdatei die ich gespeichert habe sieht immer so aus;

ChecklisteEin // Name des memo felds steht so da
Fernseher
-500
PC
-1000
Gehalt
2500
usw.

jetzt möchte ich das der pc beim öffnen der textdatei die daten liest
Zeile 1 ChecklisteEin // soll ignoriert werden
Zeile 2 Fernseher // erste Beschreibung soll auch ignoriert werden
Zeile 3 -500 // erster wert der umgewandelt werden soll in strtofloat
Zeile 4 PC // zweite Beschreibung soll wieder ignoroert werden
Zeile 5-1000 // zweiter wert zum rechenen

jetzt soll delphi selber erkennen wie viele zeilen noch kommen und jede zweite (ahlwert) soll zum vermägen dazugerechnet werden und in panel1 ausgegeben werden!

also, der pc soll rechnen

vermoegen := Von zeile 3 die -500
vermoegen := vermoegen + zeile 5 -1000

und dann panel1.caption := FloatToStr (vermoegen);

[DGL-luke]

ganz einfach:

trystrtoint

sollte dir schon weiter helfen.

[homerunjack]

kannst du mir dazu mal ein kleinen quelltext schreiben

if OpenDialog1.Execute then

DateiName := OpenDialog1.FileName ;
ChecklisteEin.Lines.LoadFromFile(OpenDialog1.FileN ame);
AssignFile (Datei, DateiName);
Reset (Datei);
for i := 1 To Max do
begin
ReadLn (Datei, zeile1);
ReadLn (Datei, (zeile2)+1);

es ist wichtig das nur jede 2. zeile als zahl gelesen wird ! wie benutze ich das trystrtoint?

[DGL-luke]

schreib es in deinen quelltext, setz den cursor drauf und drück F1 ;)

[homerunjack]

okay aber das mit der konstante geht noch nicht so richtig

const Max= DateiName.Lines[i];

for i := 1 To Max do


Max soll die Anzahl der Zeilen in der textdatei sein

[freak4fun]

Anzahl der Zeilen:

Delphi-Quellcode:

Memo1.Lines.Count

MfG
freak