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 = 'Vorderrad' THEN
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 = 'Hinterrad' THEN
Memo1.Lines[95] := 'IsPowered FALSE';
Memo1.Lines[116] := 'IsPowered FALSE';
Memo1.Lines[137] := 'IsPowered TRUE';
Memo1.Lines[158] := 'IsPowered TRUE';
IF ComboBox6.Text = 'Allrad' THEN
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!