Wie kann man in Delphi Daten aus einer Textdatei auslesen? Diskutiere und helfe bei Wie kann man in Delphi Daten aus einer Textdatei auslesen? im Bereich Computerfragen im SysProfile Forum bei einer Lösung; Wie kann man in Delphi Daten aus einer Textdatei auslesen? Ich würde gerne eine Zahl, die in einer Textdatei steht in meinem... Dieses Thema im Forum " Computerfragen " wurde erstellt von Fragr, 24. April 2010. Registriert seit: 6. Februar 2008 Beiträge: 0 Zustimmungen: Ich würde gerne eine Zahl, die in einer Textdatei steht in meinem Delphiprogramm auslesen. Habe dazu einen Button erstellt und eine Integer-Variable. Dort soll der Wert aus der Textdatei dann reingeschrieben werden. Xml - Gewusst wie: Lesen von XML-Datei in Delphi?. Kann mir das jemand erklären? Quelltext wäre sehr hilfreich. Danke schonmal! 22. April 2008 29. März 2009 Wie kann man in Delphi Daten aus einer Textdatei auslesen... Unicode in datei schreiben und auslesen - Softwareentwicklung mit... ASCII-Datei einlesen | aus Forum Delphi & Pascal | wer-weiss-was Zahl aus TXT Datei auslesen - Forum - CHIP Online Textdatei einlesen Delphi-Kurs: Der Umgang mit Textdateien Delphi Einzelne Elemente aus Datei auslesen und in Datei Speichern... p. i. c. s. Delphi Fundgrube: Dateien, Ordner und Laufwerke Thema: Wie kann man in Delphi Daten aus einer Textdatei auslesen?
Constructor Create(aStream: TStream; aDelimiter: Char = #0); Destructor Destroy; override; // Bewegt den internen Positionszeiger auf die erste Zeile der Datei Procedure First; // Bewegt den internen Positionszeiger auf die nächste Zeile der Datei Procedure Next; // Liefert TRUE, wenn keine Daten mehr abgerufen werden können.
Hier ist die Sache, die ich tun möchte. Mein Programm arbeitet mit diesem feinen:
XMLText = ' xml version="1. 0" encoding="UTF-8" standalone="yes"? >' +
' Diese besitzt eine Methode LoadFromFile und erlaubt einen direkten Zugriff auf einzelne Elemente der Liste. Gruß Hawkeye
Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1. 446 Beiträge
Delphi 2006 Architect
21. Apr 2006, 17:41
In einem Label kannst aber nix eingeben... Nimm stattdessen ein TEdit-Feld. Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können. (George Lukas)
21. Apr 2006, 17:49
@ Mackhack
klar, hast recht, war nur ein Leichtsinnsfehler von mir. @Hawkeye
Danke für den Tipp, kann ich damit auch auf einzelene Zeilen in einer Textdatei zugreifen? Gruss, Ludwig
21. Apr 2006, 17:51
Auf die einzelnen Zeilen kannst du nach dem Laden per Index zugreifen. Registriert seit: 26. Textdateien erstellen/auslesen |. Jan 2006
Ort: Leipzig
529 Beiträge
Delphi 7 Professional
21. Apr 2006, 17:55
Wenn das ganze eine "Datenbank" werden soll, warum nimmst du nicht einfach TIniFile? Dort wird das ganze schon strukturiert und ist auch einfach mit Funktionen ausles- und schreibbar. Das mit dem Datein einlesen kann ich schon, nur würde mich interessieren wie ich nach begriffen suchen kann? Ich suche z. B. den Begriff Region Name="Argentinien" aus einer XML Datei die ich eingelesen habe und will dann "Argentinien" in meine MySql Datenbank schreiben. Des MySql krieg ich schon hin nur den Begriff suchen? Thx schoma im Voraus! #6
du könntest beispielsweise eine textdatei zeilenweise einlesen (mit readln) und dann in jeder zeile nach dem entsprechenden string suchen. wenn der string in der zeile gefunden wurde, schreibst du ihn in die datenbank und fängst von vorne an. das ist zwar bestimmt nicht die beste lösung, aber sollte funktionieren. #7
Ja genau das meine ich aber wie die Zeile mit meinem String vergleichen? ich hab:
ReadLn(Datei, Buffer);
// In Buffer steht die Zeile
#8
var
i: Integer;
s: String;
z: String;
z:= 'string aus mehr als einem wort';
i:= Pos('wort', z);
if i > 0 then // deinen String in der Zeile gefunden
s:= Copy(z, i, Length('wort'));
ShowMessage(s);
reines vergleichen geht zwar eigentlich mit "if stringA = stringB then... ", aber da du ja einen teilstring suchst, bist du mit der pos()-funktion besser bedient. Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3. 551 Beiträge
TFileStream: Textdatei auslesen
3. Jan 2005, 09:24
hi,
ich möchte aus einer datei meine 15zeichen langen strings auslesen, ich habe mir gedacht das ich es mit einer while schleife mache, nur wie? ich dachte an "while bytesread = 15 do... ". Das würde aber heissen das ich das "Read" von TFileStream VOR der schleife schreiben müsste... aber da das read wiederrum nicht in der schleife ist kann damit auch nur 1 durchgang funktionieren oder? ich hatte das bis jetzt ca so und weiss nich weiter:
Delphi-Quellcode:
procedure ( const AFileName: string);
var
Fs: TFileStream;
BytesRead: Integer;
Buffer: array [1.. 15] of Char;
begin
Fs:= (AFileName, fmOpenRead + fmShareDenyNone);
try
BytesRead:= Fs. Read (Buffer, Length(Buffer));
while BytesRead = 15 do...
// hm....
finally;
end;
Mario MSN:
Zitat
Registriert seit: 12. Aug 2003
Ort: Soest
3. 883 Beiträge
Delphi 10. 1 Berlin Enterprise
Re: TFileStream: Textdatei auslesen
3. Jan 2005, 09:29
Moin,
wie wär's mit
while Fs. Gastes ein (leer zum Beenden):');
Readln ( name);
if ( name <> '') then
SetLength ( gaeste, Length ( gaeste) + 1);
gaeste [ High ( gaeste)]:= name;
until ( name = '');
Hier wird nach jeder Eingabe eines Namens das Array vergrößert und dann der Name am Ende der Liste eingetragen. Dies hat den Vorteil, dass die Liste zu jedem Zeitpunkt immer nur die benötigte Größe hat und keine unnötigen leeren Elemente an deren Ende enthaelt. Man benötigt in diesem Beispiel dadurch zwar einen zusätzlichen Prüfblock und kann das Array nicht mehr direkt befüllen, spart sich aber gleichzeitig eine Variable. In komplexeren Programmen, bei denen man nicht einfach jemanden nach der Anzahl der Werte fragen kann (z. beim Auslesen von Datensätzen aus einer Datei) ist diese Programmiertechnik sehr hilfreich, wenn nicht gar notwendig. Array freigeben [ Bearbeiten]
Da wir beim Erstellen des Arrays Speicher belegt haben, müssen wir diesen noch freigeben. Das geschieht ganz einfach mittels:
SetLength ( gaeste, 0);
Dabei wird die Länge des Arrays wieder auf 0 gesetzt und er beansprucht so keinen weiteren Platz im Speicher mehr. Wir behalten uns vor, Kommentare, die gegen das polnische Recht verstoßen oder als beleidigend gelten, zu blockieren, zu löschen oder zu modifizieren. Diese Funktion ist nur für eingeloggte Nutzer verfügbar. Diese Funktion ist nur für eingeloggte Nutzer verfügbar. Der Titel des Artikels vom 18. 03. 2020 trägt den Namen:
Auf der Webseite von Webcam Galore sind Webcams auf der ganzen Welt zu sehen. Dabei gilt eine, für uns allen interessante Kategorie, den Webcams in Dänemark. Übersichtlich und leicht zu finden und nach Buchstaben anklickbar, Ihr jeweiliger Urlaubsort. Von A wie Aabenraa bis V wie Vejle. Weiterhin haben Sie hier die Möglichkeit, diese Webcam zu myCams hinzuzufügen. Umgebungskarte:
Webcams werden geladen...
Karte einbetten Karte vergrössern
Die beliebtesten Dänemark-Webcams:
Die letzten Neuzugänge:
Hotels und Ferienunterkünfte in der Nähe von Fanø (via):
Die aktuelle Wettervorhersage in Zusammenarbeit mit: 2. Außerdem sollte man unbedingt die fantastische Landschaft des Nationalpark Wattenmeer besichtigt haben. 3. Wenn man ein Museum besuchen will, ist das Fischerei- und Seefahrtsmuseum empfehlenswert, welches auch für Kinder sehr gut geeignet ist. Was ist das Wahrzeichen der Stadt? Das Wahrzeichen der Stadt stellt die Skulpturengruppe "Der Mensch am Meer" dar. Sie befindet sich seit dem 28. 210. 1995 in Saedding Strand. Welcher Strand ist der Beste in Esbjerg? Besonders empfehlenswert ist der Hjerting Strand, welcher ebenfalls kinderfreundlich ist. Esbjerg fähre webcam.php. Es werden viele Aktivitäten, wie Kite-Surfing und Kajak-Fahren angeboten. Außerdem stehen 2 Beachvolleyballplätze zur Verfügung. Wie kommt man am Besten auf die Insel Fanö? Von Esbjerg auf die Insel Fanö fährt die Fähre "Fanolinjen". Die Fahrt dauert 12 Minuten. Tickets hierfür können lediglich vor Ort erworben werden. Kann man in Esbjerg eine Hafenrundfahrt machen? Natürlich werden in Esbjerg auch Hafenrundfahrten angeboten. Beispielweise gibt es welche, die besonders für Kinder geeignet sind, andere sind hauptsächlich auf der Suche nach Seerobben, usw. Fehmarn: Katarinenhof
Fehmarn: Hafen Burgstaaken
Fehmarn › Norden
Fehmarn › Süd: Burgtiefe
Lemkenhafen › Nord-West: Kiteschule Boardflash
Avendorf: Blick von unseren Ferienhäusern
Wulfen › Ost: Riechey Freizeitanlagen GmbH & Co. KG - Burger Binnensee
Fehmarn › Süd
Gold
Großenbrode: Hafen
Heiligenhafen: Ferienhaus UTKIEK im Strand Resort (Ostsee)
Heiligenhafen: YachthafenTextdateien Erstellen/Auslesen |
Esbjerg Fähre Webcam Videos
Esbjerg Fähre Webcam Kathmandu
Esbjerg Fähre Webcam.Php
Aktuelle Uhrzeit auf Fanø: 00:31 - Dort ist es zur Zeit Nacht (Sonnenaufgang: 05:32 - Sonnenuntergang: 21:14)
Webcam Fanø: Blick nach Esbjerg - Blick über die Nordsee von Fanø Richtung Esbjerg. Sa. 00:46 Sa. 01:46 Sa. 02:46 Sa. 03:46 Sa. 04:46 Sa. 05:46 Sa. 06:46 Sa. 07:46 Sa. 08:46 Sa. 09:46 Sa. 10:46 Sa. 11:46 Sa. 12:46 Sa. 13:46 Sa. 14:46 Sa. 15:46 Sa. 16:46 Sa. 17:46 Sa. 18:46 Sa. 19:46 Sa. 20:46 Sa. 21:46 Sa. 22:46 Fanø vor 44 Minuten Previous Next
Webcams in der Nähe:
Sadderup: E20 Sadderup Ø, 15. 8 km. Sadderup: E20 Sadderup V, 15. 8 km. Oksby: Rute 431 ved Oksby, 18. 5 km. Brandgårde: Verkehr Rute 11/24 Nahe Ribe, 18. 6 km. Gredstedbro: Rute 11 Gredstedbro NV, 19. 1 km. Blavand: Blåvandshuk, 23. 7 km. Hindsig: Verkehr Rute 11, Horne, 30. 9 km. Trecker-Bus nach Mando, Fano oder Romo. Tvismark (Rømø): Verkehr Rute 175, 34. 2 km. Diese Webcam Fanø mit dem Thema Meerblick wurde am 30. 11. 2005 eingetragen und wird von Fanø Sommerhusudlejning betrieben. Sie wurde bisher 18468 mal angeklickt. Sollte die Webcam oder der Link dorthin defekt sein, melden Sie dieses bitte hier.
Esbjerg Fähre Webcam Hotel
Esbjerg Fähre Webcam Testen