Nur eine Zahl aus einer Text Datei auslesen

HeinzKarl · Beiträge: 19

Hi,

ich habe ein kleines Problem. Ich möchte eine Zahl aus einer Textdatei laden, dannach überprüfen ob sie größer ist als Variabele A. Sollte sie größer sein, soll das Textdokument mit dieser Zahl überschrieben werden.

Problem:
In meiner Textdatei steht (z.B.):
Highscore 10

Einlesen tu ich das ganze so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

assignfile(highscore,'Score.txt');
reset(highscore);
readln(highscore,high);
Label1.Caption := high;
closefile(highscore);

Das Problem ist, high ist ein String, also einfach StrToInt gemacht:

markieren

Delphi-Quelltext

1:
2:

if (Save = True) and (StrToInt(high) < Treffer) then
...

Aber high beinhaltet jetzt ja 'Highscore 10'.

Wie schaffe ich es NUR die ZAHL einzulesen ?

Moderiert von Christian S.: Delphi-Tags hinzugefügt
Moderiert von Christian S.: Topic aus VCL (Visual Component Library) verschoben am Sa 25.12.2010 um 18:30

platzwart · Verfasst: Sa 25.12.10 19:57

quick and dirty und nicht unbedingt immer verwendbar:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

For i:=0 to Length(myString)-1 do
 begin
  If(myString[i] in ['0'..'9')then
   result:= result + myString[i];
 end;

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Stundenplan · Verfasst: Sa 25.12.10 20:01

Wenn das Muster immer gleich bleibt, d. h. "Highscore [Zahl]", dann kannst du auch mit Copy() arbeiten, damit kannst du einen Teilstring aus einem String extrahieren! :idea:

Syntax: S := Copy(Ein_String_aus_dem_was_ausgeschnitten_werden_soll, Startposition, Länge_des_Teilstrings);

Viele Grüße,
Stundenplan.

platzwart · Verfasst: Sa 25.12.10 20:04

oder...

markieren

Delphi-Quelltext

1:	Delete(myString, 1, 10);

Also die ersten 10 Zeichen des Strings löschen...

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

HeinzKarl · Beiträge: 19

Ja, der eingelesene Text heißt immer:
Highscore xxx

xxx = Eine Zahl beliebiger Länge

Ich probiere es mal aus, danke schonmal für die Hilfe.

//EDIT
Ich habe es mit Delete gemacht

Funktioniert 1a.

Kann ich auch einen vorgegeben Text in einem String suchen und ausschneiden ?
z.B.
Aus A den String 'Hallo ' ausschneiden, damit nur noch 'Welt' übrig bleibt ?

Ehemaliges Mitglied Erhaltene Danke: 1

Siehe dazu die Hilfe zu pos.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme