Kleine Sektflaschen Hochzeit
Unit csCSV; (****************************************************************************** * CSV Reader Klasse * * Liest eine CSV -Datei ein und ermöglicht Zugriff auf die einzelnen Elemente * * jeder Zeile. * * Eine CSV ('Comma Separated Values' oder 'Character Separated Values' ist * * ein Format, um Tabellen in einer Text-Datei zu speichern. * * Dabei werden die einzelnen Elemente einer Tabellenzeile durch ein frei * * wählbares Zeichen getrennt. In Deutschland ist dies üblicherweise das * * Semikolon, im englischsprachigen Raum das Komma (daher der Name). * * Strings werden druch Quotes '"' eingeschlossen, ein Quote innerhalb eines * * Strings wird verdoppelt. * * Beispiel (Trennzeichen';'): * * "Text";123;"Text mit ""Quotes"" und Semikolon;";;Auch ein Text;345. 657 * * * * Der Code ist so trivial, das ein Copyright nicht lohnt. [Delphi] Datei einlesen | ComputerBase Forum. * * Verwendung * * -- Bereitstellen eines Streams, z.
Wenn man sich dieses Array wieder als Tabelle vorstellt, hat es eine beliebige Anzahl von Zeilen (das dynamische "äußere" Array gaeste), sowie eine Spalte für den Vornamen und eine für den Nachnamen (das statische "innere" Array TName). Natürlich können wir das Ganze auch in einer einzelnen Zeile deklarieren: gaeste: array of array [ 0.. Delphi CSV Dateien einlesen - Delphi-PRAXiS. 1] of string; Nun wollen wir unsere Gästeliste erneut einlesen: Writeln ( 'Bitte geben Sie den Vornamen des ', index + 1, '. Gastes ein:'); Readln ( gaeste [ index, 0]); Writeln ( 'Bitte geben Sie den Nachnamen des ', index + 1, '. Gastes ein:'); Readln ( gaeste [ index, 1]); Mit unseren fünf Gästen vom Anfang dieses Kapitels befüllt und als Tabelle dargestellt, sähe das Ganze so aus: index gaeste[index, 0] gaeste[index, 1] 0 Axel Schweiß 1 Peter Silie 2 Jack Pot 3 Ngolo Kante 4 Manuel Neuer 5 Zahlinus Karlfink Für diese Art der Datenspeicherung, wenn zwei oder mehr zusammenhängende Daten immer gemeinsam verwendet werden sollen (wie der Vor- und Nachname in unserem Beispiel), benutzt man besser Records.
Registriert seit: 19. Okt 2005 14 Beiträge txt. Datei in Array einlesen 21. Apr 2006, 17:00 Hallo zusammen, Ich möchte den Inhalt einer Textdatei in ein Array einlesen, und anschliessend in eine dat. Datei schreiben. Mit einer Zeile funktioniert dass auch schon so: Delphi-Quellcode: var m: textfile; S: Array [0.. Textdatei einlesen - Administrator.de. 10] of char; content: char; d: File of Char; zaehler: byte; begin AssignFile(m, ' C:\ '); Reset(m); Readln(m, S); AssignFile(d, ' C:\ '); Rewrite(d); for Zaehler:=0 to 10 do content:=s[zaehler]; Write (d, content); end; Hier lese ich den Inhalt der Textdatei "" im Stammverzeichnis C:/ in das Char-Array "S" ein (Maximale Länge einer Zeile ist hier 10 Zeichen). Anschliessend wird in der folgenden "For" Schleife der Inhalt des Arrays Zeichen für Zeichen wieder in die Variable "Content" ausgelesen (content:=s[Zaehler]) und dann die dat. Datei "d" geschrieben. Leider funktioniert diese Methode nur für eine Zeile. Wenn eine Textdatei mehrere Zeilen hat, kann ich nicht auf die einzelnen Zeilen zugreifen, da es meines Wissens nach keinen Datenzeiger für Textdateien gibt.
Erstellt werden sie praktisch genauso wie normale Arrays, nur geben wir diesmal keinen Indexbereich an: gaeste: array of string; Der Indexbereich eines dynamischen Arrays ist zwar dynamisch, aber er beginnt zwingend immer mit 0. Zu Beginn hat dieser Array die Länge 0, das heißt er beinhaltet momentan keine Werte. Länge des Arrays verändern [ Bearbeiten] Nun verändern wir die Länge des Arrays auf 10: SetLength ( gaeste, 10); Unser Array hat nun eine Länge von 10. Das bedeutet, wir können 10 Strings in ihm verstauen. Allerdings hat das höchste Element im Array den Index 9. Das liegt daran, dass das erste Element den Index 0 hat und wir daher mit dem Index 9 schon 10 Elemente zusammen haben. Nun könnten wir zum Einlesen unserer Gästeliste so vorgehen: index, anzahlgaeste: Integer; Writeln ( 'Bitte geben Sie die Anzahl der Gäste ein:'); Readln ( anzahlgaeste); SetLength ( gaeste, anzahlgaeste); for index:= 0 to anzahlgaeste - 1 do Writeln ( 'Bitte geben Sie den Namen des ', index + 1, '. Gastes ein:'); Dies würde zwar zum gewünschten Erfolg führen, allerdings benötigen wir so ständig eine weitere Variable, die die Länge unseres Arrays angibt.
Flare Willy Scheibel Registriert seit: 11. Okt 2003 Ort: Elbflorenz 39. 105 Beiträge 21. Apr 2006, 18:44 Wenn du aber unbedingt den Dateinzeiger in einer Textdatei setzen willst, dann kann ich dir meine Erweiterung empfehlen, damit ist sowas "inoffiziell" möglich. _. 64-Bit für TextFile / File of xxx Garbage Collector... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. Delphi-Tage 2005-2014 Zitat
Arrays [ Bearbeiten]
Was sind Arrays? [ Bearbeiten]
Ein Array ist vereinfacht gesagt, eine Liste von Werten des gleichen Datentyps. Arrays anlegen [ Bearbeiten]
Wir wollen eine Gästeliste mit 10 Gästen anfertigen. Bisher hätten wir in etwa folgendes gemacht:
var
gast1, gast2, gast3, gast4, gast5, gast6, gast7, gast8, gast9, gast10: string;
Der Nachteil dieses Verfahrens liegt auf der Hand - spätestens wenn zwanzig Gäste kommen. Nun erzeugen wir einfach ein Array vom Datentyp String mit 10 Elementen:
gaeste: array [ 1.. 10] of string;
Die genaue Struktur der Array-Deklaration ist:
array [
ROBOT WORLD Wir sind Spezialisten für den Verkauf von robotischen Helfern-Staubsaugern, Reinigern, Mopps, Mähern und Drohnen Alles über uns
Home Poolroboter Ersatzteile Übersicht Zurück Vor Dolphin Sofort versandfertig, Lieferzeit ca. 4-5 Werktage Bewerten Original-Ersatzteil: Reinigungsbürste komplett mit Walze. Die Reinigungswalze ist geeignet für... mehr Produktinformationen Original-Ersatzteil: Reinigungsbürste komplett mit Walze. Die Reinigungswalze ist geeignet für die Poolroboter-Modelle Dolphin E10, E20 und E25 von Maytronics. Herstellernummer: 9995544-ASSY Bewertungen lesen, schreiben und diskutieren... mehr Bewertung schreiben Bewertungen werden nach Überprüfung freigeschaltet. * Alle Preise inkl. Filterkartuschen-Einsatz für Dolphin E10 + E20 + E25 + EVO | Ersatzteil | Reiniger. gesetzl. Mehrwertsteuer zzgl. Versandkosten und ggf. Nachnahmegebühren, wenn nicht anders beschrieben.
Mehr Details Wir sind für Sie da Haben Sie Fragen? Unser Kundenbetreuungsteam steht Ihnen bei allen Fragen zur Verfügung. Kontaktieren Sie uns Maytronics Dolphin - Exceptional Experience Der Maytronics Dolphin reinigt schon seit mehr als 37 Jahren die privaten Schwimmbäder der Welt. Dolphin e20 ersatzteile price. Unsere reiche Markentradition basiert auf dem Erbe innovativer Poolreinigungstechnologien, müheloser Handhabung und uneingeschränkter Sicherheit. Leading the way to make your pool water exceptional, for pure enjoyment Sie sind nur ein paar Klicks davon entfernt, uns vor Ort zu finden. Wo kann man sie kaufen?