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 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 - 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
jetzt
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),'')
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
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:
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),'')
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 |
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!!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!