Entwickler-Ecke

Dateizugriff - Ini-File durchsuchen


Mischel24NRW - Mo 14.11.05 23:44
Titel: Ini-File durchsuchen
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:


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 user profile iconChristian S.: Topic aus VCL (Visual Component Library) verschoben am Mo 14.11.2005 um 23:02


Born-to-Frag - Mo 14.11.05 23:54

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


Mischel24NRW - Mo 14.11.05 23:56

Also ich habe aus der zeile

Delphi-Quelltext
1:
n:=n+1;                    


jetzt


Delphi-Quelltext
1:
n:=n+2;                    


gemacht und jetzt gehts :-)

Dankeschön!


Mischel24NRW - Di 15.11.05 00:12

Jetzt hab ich nur noch ne Frage:

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


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 - Di 15.11.05 00:14

user profile iconMischel24NRW hat folgendes geschrieben:
Jetzt hab ich nur noch ne Frage:

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


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





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 ;)


Mischel24NRW - Di 15.11.05 09:57

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

Aber trotzdem vielen Dank!!