Variable aus einer bestimmten Texstelle auslesen

**GanjalfDerGruene**

Moin moin, ich möchte in einem Text nach einem Zeichen ('#') suchen und die 4 Werte darunter jeweils in eine Variable umwandeln, dummerweise habe ich absolut keinen Plan wie das geht.

zusammenfalten · markieren

Delphi-Quellcode:

			  i:=0;

  AssignFile(Datei, 'Datei.txt');

  Reset(Datei);

  while not EoF(Datei) do

  begin

    ReadLn(Datei,i);

      inc(i);

      i := Pos('#', 'Datei.txt');

      if i = 0 then ShowMessage('Fataler Fehler')

      else

        begin

             inc(i);

             bezeichnung:=Datei[i];

             ListBox1.Items.Add(bezeichnung);

             inc(i);

             geschwindigkeit:=Datei[i];

             inc(i);

             kaliber:=Datei[i];

             inc(i);

             masse:=Datei[i];

      end;

**Bummi**

wie sieht den die Datei aus?

**DeddyH**

IMHO wäre das mit einer TStringlist etwas einfacher, da hat man die Zeilen bereits indiziert in der Liste.

**GanjalfDerGruene**

Stimmt ja, danke^^
Gut, das Probier ich mal.

Variable aus einer bestimmten Texstelle auslesen

Variable aus einer bestimmten Texstelle auslesen

AW: Variable aus einer bestimmten Texstelle auslesen

AW: Variable aus einer bestimmten Texstelle auslesen

AW: Variable aus einer bestimmten Texstelle auslesen

Forumregeln

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#2 AW: Variable aus einer bestimmten Texstelle auslesen 3. Feb 2013, 13:26 wie sieht den die Datei aus? Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat

GanjalfDerGruene Registriert seit: 28. Jan 2013 6 Beiträge	#4 AW: Variable aus einer bestimmten Texstelle auslesen 3. Feb 2013, 14:06 Stimmt ja, danke^^ Gut, das Probier ich mal.
	Zitat