actionbrowser.com
Ich wünsche Ihnen erholsame restliche Ferientage, liebe Grüße K. Hille Fotoalben Wandertag Kl. 2a nach Schleife 05. 04. 2022 Projekt Klasse2000 04. 2022 Blitz for kids 29. 2022 Zaubershow auf dem Schulhof 28. 2022 Geldspende 24. 2022 Känguru Wettbewerb 17. 2022 Spendenaktion für die Ukraine 07. 2022 Sportwettkampf "Stärkste Klasse" 28. 01. 2022 Der Weihnachtsmann kommt mit der Feuerwehr 22. 12. 2021 Jürgens Liederkiste 20. 09. 2021 Schulanfang Klasse 1a 04. 2021 Schulanfang 1b und VKA 04. 2021 Schuljahres-abschluss 23. 07. 2021 Abschied von Frau Aulich 23. 2021 Sommerfest 22. 2021 Gesundes Frühstück Kl. 1a 15. 2021 Tierparkbesuch Kl. 1a / 1b 12. 2021 Roboter und Automaten Kl. 4 06. 2021 Im Schulgarten 04. Hort, Kindergarten und Grundschule in Bad Muskau. 06. 2021 Eis zum Kindertag 01. 2021 Geschichten - Wettbewerb Kl. 4 30. 05. 2021 Fahrradtraining mit dem ADAC 24. 2021 Schneckenprojekt 1a/1b 28. 2021 Ostereiersuche im Park 26. 2021 23. 2021: 10. 2021: 02. 11. 2020: 12. 10. 2020: 29. 08. 2020: 17. 2020: 14. 2020: 02. 2020: 24. 2020: 03.
Lesen von INI-Dateien Aber was hat man davon, wie man die Werte aus der Datei wieder auslesen kann. Die folgende Procedure liest die Werte aus unserer INI-Datei wieder aus und verknüpft sie mit einigen Funktionen aus einem fiktiven Programm: procedure TForm1. Button1Click(Sender: TObject); ('Section', 'Schlüssel1', 'kein Wert'); ('Section', 'Schlüssel2', 0); adBool('Section', 'Schlüssel3', False); end Nehmen wir uns mal den ReadString-Befehl näher vor: function ReadString (const Section, Schluessel, Default: string): string; Der erste Parameter gibt, wie auch im WriteString-Befehl die Section an und der Zweite den Schlüssel (linke Seite). Pascal - Lesen von integer-zahlen in Pascal. Als Result dieser Funktion wird der Wert ausgegeben (rechte Seite). Jetzt wirst Du dich fragen, was der dritte Parameter soll. Der dritte Parameter gibt den Default-Wert an, wenn der Eintrag nicht vorhanden ist. Dies ist sinnvoll um einen Standard-Wert zu erhalten, auch wenn die INI-Datei oder der Abschnitt in der INI-Datei noch nicht oder nicht mehr vorhanden ist, beispielsweise wenn der Anwender die INI-Datei versehentlich gelöscht hat.
wär dann glaub ich für mich verstöndlicher 6. Nov 2008, 18:42 Delphi-Quellcode: var sl, sl2: TStrings; i: integer; begin sl:=; sl2:=; limiter:= '; '; rictDelimiter:= True; sl. LoadFromFile( ' '); for i:= 0 to - 1 do limitedText:= sl[i]; s1:= sl2[0] //... end; 6. Nov 2008, 18:51 Danke erstmal für das Bespiel^^ rictDelimiter -->undefinierter Bezeicher?? 6. Nov 2008, 18:53 Das gab es wohl bei D7 noch nicht. Sorgt dafür das Leerzeichen nicht als zusätzlichen Trenner erkannt werden 6. Nov 2008, 18:55 Achso^^ Gabs nicht sowieso bei den früheren Delphi Versionen sonen Bug in der Richtung? Registriert seit: 6. Mai 2005 Ort: Berlin 4. 956 Beiträge Delphi 2007 Enterprise 6. Nov 2008, 19:05 Das Problem bei der hier vorgestellten Lösung sind Strings, die in '"' eingeschlossen sind, weil dort vorkommende ';' als Trennzeichen interpretiert werden. Nimm doch einfach eine fertige Klasse, die das macht klick! "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput! "
Home » Tipps & Tricks » Object Pascal » TStringList » Textdateien erstellen/auslesen Um mit Textdateien, deren Größe nicht mehrere MB beträgt, einfach zu arbeiten, kann die Klasse TStringList verwendet werden. Dazu erzeugt man zuerst ein Objekt und kann nun über die Methode Add Zeilen hinzufügen. Gespeichert wird über SaveToFile. Um Textdateien zu laden, gibt es LoadFromFile. Beispiel: Neue Textdatei erstellen var sl: TStringList; begin; //Objekt erzeugen try //try-finally hilft, das Objekt auch dann freizugeben, wenn ein Fehler auftritt ('Erste Zeile'); //Text hinzufügen ('Zweite Zeile'); ToFile('c:\'); //Datei speichern finally; //Objekt wieder freigeben end; Nach jedem String, der durch Add hinzugefügt wurde, erfolgt automatisch ein Zeilenumbruch. Die Endung der Datei muss nicht txt lauten. Beispiel: Textdatei öffnen und auslesen zeilennr: integer; try sl. LoadFromFile('c:\'); //Datei in Stringliste laden for zeilennr:=0 to do begin //Schleife über alle Zeilen, Zählung //beginnt mit 0, die Eigenschaft Count //enthält die Gesamtzahl der Zeilen if sl[zeilennr]='Zweite Zeile' then //wenn der Text "Zweite Zeile" gefunden wurde, ShowMessage('Text gefunden in Zeile '+IntToStr(zeilennr+1)); //Meldung ausgeben end;