Autor |
Beitrag |
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Di 06.05.03 15:55
ja schon weil das programm sonst nen fehler bringt wenn bei der erstelliung der daten fehler aufkommen
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
|
|
del1312
Beiträge: 190
|
Verfasst: Mo 02.06.03 12:01
Hm ... bekomme immer die Fehlermeldung:
"Undefinierter Bezeichner: 'TIniFile'"
Hab das hier zu stehen:
Quelltext 1: 2: 3: 4: 5: 6: 7:
| procedure TForm1.Button1Click(Sender: TObject); var IniFile : TIniFile; begin IniFile := TIniFile.Create('c:\Test.ini')
end; |
Wenn ich das richtig seh sollte bei Klick auf den Button eine IniDatei erstellt werden oder?
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mo 02.06.03 12:09
|
|
del1312
Beiträge: 190
|
Verfasst: Mo 02.06.03 13:39
Oh sorry wo hab ich wieder meine Augen Hab mal nen kleines Prog gebastelt, welches den Wert einer CheckBox in einer INI speichert. Das schreiben klappt supi nun wollte ich es wieder auslesen und dann kommt ne Fehlermeldung.
Hier der Code:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62:
| unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,inifiles;
type TForm1 = class(TForm) Button1: TButton; Button2: TButton; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private public ini:Tinifile; schreiben,lesen:integer; end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin If CheckBox1.Checked = true then schreiben := 1 ; If CheckBox1.Checked = false then schreiben := 0 ;
ini := TIniFile.Create('c:\test.ini'); try ini.WriteInteger('Autosave','Eigenschaft',schreiben); finally ini.Free; end;
end;
procedure TForm1.Button2Click(Sender: TObject); begin ini := TIniFile.Create('c:\test.ini'); try lesen := ini.ReadInteger('Autosave','Eigenschaft',);
If lesen: = 1 then CheckBox1.Checked = true ; If lesen:=0 then CheckBox1.Checked = false; finally ini.Free;
end; end;
end. |
|
|
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Mo 02.06.03 13:44
hier liegt dein fehler:
Delphi-Quelltext 1: 2:
| If lesen: = 1 then CheckBox1.Checked = true ; If lesen:=0 then CheckBox1.Checked = false; |
so müsste es aussehen
Delphi-Quelltext 1: 2:
| If lesen= 1 then CheckBox1.Checked := true ; If lesen=0 then CheckBox1.Checked := false; |
und hier:
Delphi-Quelltext 1:
| lesen := ini.ReadInteger('Autosave','Eigenschaft',); |
du hast hinten vergessen einen standarwert festzulegen (entweder 0 oder 1) wenn kein wert in der ini stehen sollte
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
Zuletzt bearbeitet von Chatfix am Mo 02.06.03 13:46, insgesamt 2-mal bearbeitet
|
|
Tweafis
Beiträge: 647
WinXP + fbsd
Delphi 5 Prof
|
Verfasst: Mo 02.06.03 13:45
Ich frage mich wie dieser code funktionieren soll...
Ich empfehle dir ReadBool bzw WriteBool zu benutzen
Zitat: | procedure TForm1.Button2Click(Sender: TObject);
begin
ini := TIniFile.Create('c:\test.ini');
try
lesen := ini.ReadInteger('Autosave','Eigenschaft',0); // default wert: 9
If lesen = 1 then CheckBox1.Checked := true
else CheckBox1.Checked := false;
finally
ini.Free;
end;
|
// Arg zu langsam ^^
_________________ .: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
|
|
Tino
Beiträge: 9839
Erhaltene Danke: 45
Windows 8.1
Delphi XE4
|
Verfasst: Mo 02.06.03 14:01
oder so:
Delphi-Quelltext 1:
| CheckBox1.Checked := ini.ReadInteger ('Autosave', 'Eigenschaft',0) = 1; |
oder so:
Delphi-Quelltext 1:
| CheckBox1.Checked := ini.ReadBool ('Autosave', 'Eigenschaft', True); |
Gruß
Tino
|
|
del1312
Beiträge: 190
|
Verfasst: Mo 02.06.03 14:17
Hm danke aber ich hab jetzt den Fehler gefunden. Es hat die 0 hinter:
Quelltext 1:
| lesen:= ini.ReadInteger('Autosave','Eigenschaft',0); |
gefehlt, jetzt funzt es. Danke nochmal!
mfg
ecspooky
|
|
Tweafis
Beiträge: 647
WinXP + fbsd
Delphi 5 Prof
|
Verfasst: Mo 02.06.03 15:06
Das haben wir dir schon die ganze Zeit versucht zu sagen
_________________ .: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
|
|
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Mo 24.11.03 12:58
Echt mal *gg*
So schwer ist es nun wirklich nicht...
Wenn mans einmal hinbekommen hat dann ists easy...
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
|
|
masterchris_99
Beiträge: 28
|
Verfasst: Do 01.04.04 21:40
Leute ich habe mal eine Frage
Also ich habe jetzt eine ini erstellen lassen die so aussieht:
Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26:
| [Setup] Counter=4 [Handel1] Omni=11111 Droiden1=Nomic Droiden_Anzahl1=30 Ressourcen1=Titan Ressourcen_Menge1=16500 Droiden2=Zengal Droiden_Anzahl2=5 Ressourcen2=Sel Ressourcen_Menge2=15 [Handel2] Omni=22222 Droiden1=Solaron Droiden_Anzahl1=5 Ressourcen1=Sel Ressourcen_Menge1=50 [Handel3] Omni=33333 Droiden1=Trior Droiden_Anzahl1=30 Ressourcen1=Titan Ressourcen_Menge1=10000 Ressourcen2=Öl Ressourcen_Menge2=5000 |
Nun Soll er es alles ausgeben und das nach den Handelsnummern.
Also so:
Delphi-Quelltext 1: 2:
| Omni Droiden Ressourcen Nr. |
Beispiel:
Delphi-Quelltext 1: 2: 3:
| Omni Droiden Ressourcen Nr. 1 11111 30 Nomic 16500 Titan 5 Zengal 15 Sel |
Das wäre Beispiel für Handel 1
|
|
Horschdware
Beiträge: 744
Erhaltene Danke: 54
Win XP Pro, Win 7 Pro x64
Delphi 7, Delphi XE, C++ Builder 5, SAP R/3
|
Verfasst: Do 01.04.04 22:13
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28:
| var ini : TInifile; sOmni, sDroiden1, sDroiden_Anzahl1, sRessourcen1, sRessourcen_Menge1, sDroiden2, sDroiden_Anzahl2, sRessourcen2, sRessourcen_Menge2 : string; i, imax : integer; allehandels : TStringlist; begin try ini:=TInifile.create('C:\meine_ini.ini'); allehandels:=TStringlist.create; ini.readsections(allehandels); imax:=allehandels.count; memo1.lines.add(' Omni Droiden Resourcen'); for i:=1 to imax do begin sOmni:=ini.readstring(allehandels[i],'Omni',''); sDroiden1:=ini.readstring(allehandels[i],Droiden1,''); sDroiden_Anzahl1:=ini.readstring(allehandels[i],Droiden_Anzahl1,''); ... memo1.lines.add('Nr.'+IntToStr(i)+' '+sOmni+' '+sDroiden_Anzahl1+' '+Droiden1+..... memo1.lines.add(' '+sDroiden_Anzahl2+' '+Droiden2+.... end; finally ini.free; allehandels.free end; ... end;
|
_________________ Delphi: XE - OS: Windows 7 Professional x64
|
|
umpani
Beiträge: 389
|
Verfasst: Fr 02.04.04 10:59
Nur mal ne grundsätzliche Frage,
wie sinvoll ist es ein Tutorial hier im Forum nur als PDF einzustellen?
Problematisch dabei sind zwei sachen.
1. Was ist, wenn du mal keine Webseite mehr hast? Kann ja mal sein.
2. Die Suchfunktion des Forums wird ausgehebelt und kann nicht in deinem Tutorial funktionieren.
Wäre es also möglich, dein Tutorial neben der PDF Variante auch als "Volltextversion" (als Beitrag) einzustellen?
Gruß Umpani
_________________ Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius
|
|
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Fr 02.04.04 18:07
also
1. die website bleibt, sollte sich der link ändern wird der thread aktualisiert.
2. sobald ich zeit finde werde ich sie extra für dich auch nochmal als "volltext"-version reinstellen...
das war auch mal so, nur ich habe keine lust wenn man mal was verbessert ergänzt 50 sachen zu aktualisieren...
3. Der Tutorial ist ja nicht nur hier
4. gibts net...
@ Mods, könntet ihr mal de postings löschen die nicht mit der "kritik" des tutorials zu tun hat...
oder schriebt sie in einen extra thread bitte...
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
|
|
Lhid
Beiträge: 831
|
Verfasst: Mi 08.09.04 22:07
Meinung und mich grundlegend geändert-> alte beiträge gelöscht
Zuletzt bearbeitet von Lhid am Sa 26.09.09 13:50, insgesamt 1-mal bearbeitet
|
|
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Do 09.09.04 07:38
Wie "neuer Link"? - Sorry verstehe nur Bahnhof....
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
|
|
|