Ini-File durchsuchen

Mischel24NRW · Beiträge: 40

Hallo!

Jetzt hab ich ein Problem gelöst, da stoss ich direkt aufs nächste ;-)

Ich möchte ein Ini-File nach einem Namen durchsuchen und dem zugeordnet das aktuelle Datum/Uhrzeit speichern. Ich habe das folgendermaßen versucht das funktioniert allerdings nicht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 StelleNamen:=1;
  n:=1  ;
  for i:= 0 to n do
  begin
    //if AnsiCompareStr(combobox2.Text,Helfernamen.readstring('stunden',inttostr(StelleNamen),''))=0 then
    if combobox2.Text = Helfernamen.readstring('stunden',inttostr(StelleNamen),'') then 
    StelleDatum:=StelleNamen+3 else
    begin
      StelleNamen:=StelleNamen+7 ;
      n:=n+1;
    end;
  end;
  Helfernamen.WriteString('Stunden',inttostr(StelleDatum),timetostr(now));

Mit diesem Quelltext schreibt das Proggi aber nur in den Schluessel 0 und 1....

Moderiert von Christian S.: Topic aus VCL (Visual Component Library) verschoben am Mo 14.11.2005 um 23:02

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Weil n ja auch 1 ist.. du musst nicht For i := 0 to n machen. Wenn du n eh in der Prozedur festlegst kannst du auch gleich For i := 0 to 1 schreiben. Ist ja des selbe

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Mischel24NRW · Beiträge: 40

Also ich habe aus der zeile

markieren

Delphi-Quelltext

1:

n:=n+1;

jetzt

markieren

Delphi-Quelltext

1:

n:=n+2;

gemacht und jetzt gehts :-)

Dankeschön!

Mischel24NRW · Beiträge: 40

Jetzt hab ich nur noch ne Frage:

Hab dem Code noch ne zweite Abfrage hinzugefügt, und jetzt kommt ne Fehlermeldung:

markieren

Delphi-Quelltext

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

StelleNamen:=1;
  n:=1  ;
  for i:= 0 to n do
  begin
    if combobox2.Text = Helfernamen.readstring('stunden',inttostr(StelleNamen),'')

//die folgenden zwei Zeilen habe ich zusätzlich eingefügt
    and
    if Helfernamen.readstring('stunden',inttostr(Stellenamen+4),'') <> ('')

    then
    StelleDatum:=StelleNamen+3 else
    begin
      StelleNamen:=StelleNamen+8 ;
      n:=n+2;
    end;
  end;

Ich möchte nur abfragen, ob die Zeile an der angegebenen Stelle leer ist...

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Mischel24NRW hat folgendes geschrieben:

Jetzt hab ich nur noch ne Frage:

Hab dem Code noch ne zweite Abfrage hinzugefügt, und jetzt kommt ne Fehlermeldung:

markieren

Delphi-Quelltext

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

StelleNamen:=1;
  n:=1  ;
  for i:= 0 to n do
  begin
    if combobox2.Text = Helfernamen.readstring('stunden',inttostr(StelleNamen),'')

//die folgenden zwei Zeilen habe ich zusätzlich eingefügt
    and
    if Helfernamen.readstring('stunden',inttostr(Stellenamen+4),'') <> ('')

    then
    StelleDatum:=StelleNamen+3 else
    begin
      StelleNamen:=StelleNamen+8 ;
      n:=n+2;
    end;
  end;

Ich möchte nur abfragen, ob die Zeile an der angegebenen Stelle leer ist...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

StelleNamen:=1;
  n:=1  ;
  for i:= 0 to n do
  begin
    if (combobox2.Text = Helfernamen.readstring('stunden',inttostr(StelleNamen),'') and (Helfernamen.readstring('stunden',inttostr(Stellenamen+4),'') <> '') then // blabla

EDIT: Ups da war noch ein kleiner Fehler

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Mischel24NRW · Beiträge: 40

Weiss zwar net mehr genau, was es war aber ich hatte ihn schon gefunden...

Aber trotzdem vielen Dank!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme