AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Auslesen/ Auswerten einer Textdatei

Ein Thema von BullsEye · begonnen am 3. Jul 2008 · letzter Beitrag vom 5. Jul 2008
 
BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#1

Auslesen/ Auswerten einer Textdatei

  Alt 3. Jul 2008, 14:49
Hallo Leute,
wir hatten heute im Unterricht langeweile und da sind wir auf die Idee gekommen, uns einen "Editor" zu schreiben.
Dieser lädt eine bestimmte Textdatei in ein Memofeld. Von dort werden dann bestimmte Zeilen in die entsprechenden Edits geladen.
Soweit so gut, es funktioniert auch alles. Allerdings will ich nur den Wert aus der Zeile lesen und in das Edit laden.

BSP:
Als erstes lade ich mir das Textdokument in das Memofeld:
Memo1.Lines.LoadFromFile('cars/'+ComboBox1.text+'/Parameters.txt'); In dem Textdokument steht in der Zeile 47 folgendes:
Weight    1.400000          ; Scaled weight (for frontend bars) Dies wird dann mit
edtGewicht.text := Memo1.Lines[48]; Ausgelesen und mit
Memo1.Lines[47] := edtGeschwindigkeit1.Text; gespeichert/ geändert.

Dann erhalte ich folgedens in edtGewicht:
Weight    1.400000          ; Scaled weight (for frontend bars) Ich will aber nur dies erhalten:
1.400000 ######
Problem 2 Kein Text in der ComboBox:
Delphi-Quellcode:
IF
(Memo1.Lines[96] = 'IsTurnable    TRUE') AND (Memo1.Lines[117] = 'IsTurnable    TRUE')
AND
(Memo1.Lines[138] = 'IsTurnable    TRUE') AND (Memo1.Lines[159] = 'IsTurnable    TRUE')
THEN
ComboBox5.Text := 'Beide';
IF
(Memo1.Lines[96] = 'IsTurnable    TRUE') AND (Memo1.Lines[117] = 'IsTurnable    TRUE')
AND
(Memo1.Lines[138] = 'IsTurnable    FALSE') AND (Memo1.Lines[159] = 'IsTurnable    FALSE')
THEN
ComboBox5.Text := 'Vorne'
ELSE
ComboBox5.Text := 'Hinten';
Desweiteren wird auch keine Änderung in der Memo genmacht bzw nur in der ersten Zeile:
Delphi-Quellcode:
IF ComboBox6.Text = 'VorderradTHEN
Memo1.Lines[95] := 'IsPowered    TRUE'; // Zeile 1
Memo1.Lines[116] := 'IsPowered    TRUE'; // Zeile 2
Memo1.Lines[137] := 'IsPowered    FALSE'; // Zeile 3
Memo1.Lines[158] := 'IsPowered    FALSE'; // Zeile 4
IF ComboBox6.Text = 'HinterradTHEN
Memo1.Lines[95] := 'IsPowered    FALSE';
Memo1.Lines[116] := 'IsPowered    FALSE';
Memo1.Lines[137] := 'IsPowered    TRUE';
Memo1.Lines[158] := 'IsPowered    TRUE';
IF ComboBox6.Text = 'AllradTHEN
Memo1.Lines[95] := 'IsPowered    TRUE';
Memo1.Lines[116] := 'IsPowered    TRUE';
Memo1.Lines[137] := 'IsPowered    TRUE';
Memo1.Lines[158] := 'IsPowered    TRUE';
Ich hoffe, ihr könnt mir helfen. Vllt gibts na ne ander/bessere oder sogar ne viel einfachere Lösung!
  Mit Zitat antworten Zitat
 


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 06:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz