AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

LoadFromFile lädt 0 anstelle einer Zahl

Ein Thema von schultz · begonnen am 17. Feb 2014 · letzter Beitrag vom 17. Feb 2014
Antwort Antwort
schultz

Registriert seit: 17. Feb 2014
1 Beiträge
 
#1

LoadFromFile lädt 0 anstelle einer Zahl

  Alt 17. Feb 2014, 16:57
Delphi-Version: 5
Hallo liebes Forum,

ich habe ein Problem mit der Funktion LoadFromFile.
Ich möchte eine Textdatei laden, die in 14 Zeilen Zahlen stehen hat. Nur lädt er in Zeile 12 und 14 immer eine Null rein, egal was ich dort stehen habe.
Delphi-Quellcode:
Parameter.LoadFromFile(OpenDialog1.FileName);
Edit1.text:=Parameter[0];
    Edit2.text:=Parameter[1];
    Edit3.text:=Parameter[2];
    Edit4.text:=Parameter[3];
    Edit5.text:=Parameter[4];
    Edit6.text:=Parameter[5];
    Edit7.text:=Parameter[6];
    Edit8.text:=Parameter[7];
    Edit9.text:=Parameter[8];
    Edit10.text:=Parameter[9];
    Edit11.text:=Parameter[10];
    Edit12.text:=Parameter[11];
    Edit13.text:=Parameter[12];
    if StrToInt(Parameter[13])=1 then Edit14.text:='low'
    else if StrToInt(Parameter[13])=2 then Edit14.text:='medium'
    else if StrToInt(Parameter[13])=3 then Edit14.text:='high'
    else Edit14.text:='WRONG!';
Parameter ist eine TStringList und wird bei mir wie folgt initiiert:
Delphi-Quellcode:
Parameter:=TStringList.Create;
  for i:=0 to 13 do
  Parameter.add('');
Ich hoffe ihr könnt mir helfen. Ich habe die Textdatei mal mit angehangen.
MfG Thorsten
Angehängte Dateien
Dateityp: txt Parameter2.txt (47 Bytes, 26x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#2

AW: LoadFromFile lädt 0 anstelle einer Zahl

  Alt 17. Feb 2014, 17:36
Was du uns hier zeigst, sieht soweit ganz OK aus. Die for-Schleife mit den Leerstrings kannst du weglassen, da das LoadFromFile sowieso alle neu macht.

Bist du sicher, daß du die richtige Datei lädst?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: LoadFromFile lädt 0 anstelle einer Zahl

  Alt 17. Feb 2014, 17:47
Nun wenn ich die Datei mit Memo1.lines.loadfromfile lade kommt folgendes heraus:
1
2
3
4
5
6
7
8
9
10
11
12
13
16

Das sieht doch sehr richtig aus.

gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#4

AW: LoadFromFile lädt 0 anstelle einer Zahl

  Alt 17. Feb 2014, 17:51
Bist du sicher, daß du die richtige Datei lädst?
Wobei man sich hier ja auch mal ganz gut im Debugger ansehen könnte, was geladen wird.

Die for-Schleife mit den Leerstrings kannst du weglassen, da das LoadFromFile sowieso alle neu macht.
Nein, nicht unbeding. Beim Speichern sollte er besser alle Zeilen erstellen/initialisieren.
Aber ja, beim Laden bringt es nichts, wenn er vorher Leerzeilen hinzufügt. (wenn er schon nichts prüft, sollte nach dem LoadFromFile die nötige Mindest-Zeilen-Anzahl erstellt werden)

Bei TMemo.Lines bekommt man für leere Zeilen einen Leer-String, aber eine TStringList wirft da eine Exception, wenn man auf nichtexistierende Werte zugreift.
Wobei es sicherlich besser wäre, das beim Lesen auch abzufangen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz