Memo <-Bestimmte Inhalte auslesen und als Variable speichern

[olafb]

Hallo,

eins vorweg, ich bin noch mehr oder weniger blutiger Delphi-Anfänger

Also die Sache ist die:
Ich habe einen mehrzeiligen Text, der immer gleich ist.
Nur bestimmte Zahlen ändern sich.

z.B.:
Äpfel: 2
Birnen: 4

------------
oder:
Äpfel: 6
Birnen: 51

Nun müsste ich wissen, wie es funktioniert, dass nur die Zahlen ausgelesen werden (MemoFeld, die Stellen der Zahlen sind immer gleich) und dann als Variable gespeichert werden, damit ich weiter mit ihr rechnen kann.

Muss irgendwie mit POS funktionieren, aber schlau geworden bin ich nicht aus dem, was ich mir zusammen gesucht habe.

Danke schon mal im Vorraus.

[RomanK]

Hoi und Willkommen in der Delphi-PRAXiS
wenn du deinen String hast kannst du mit DEIN_STING[x] auf ein bestimmtest Zeichen in deinem Code zugreifen.
Zum Auslesen der Datei würde ich mir mal TStringList in der OH anschauen ...

[Basic-Master]

hi,
suchst du sowas in der art?

Delphi-Quellcode:

var i:integer;
    SuchStr:String;
    StrList:TStringList;
begin
SuchStr := 'Äpfel';
StrList := TStringList.Create;
showmessage(lowercase(suchstr));
for i := 0 to memo1.lines.count - 1 do begin
if trim(lowercase(copy(memo1.lines.strings[i], 1, length(suchstr)))) = lowercase(suchstr) then
//mach was du willst, z.b. das hier:
StrList.Add(copy(memo1.lines.strings[i], length(suchstr) + 2, length(memo1.lines.strings[i])));
end;
end;

habs jetzt net getestet, müsste aber funtzen...

achso wenn du dann mit den zahlen arbeiten willst, kannst du das dann strtoint

[olafb]

Danke, der Code funzt ja schon mal so weit, dass er mir den Suchbegriff anzeigt
Mithilfe eines Editfelds könnte ich mir sogar "Apfel" anzeigen lassen
Aber so wie's aussieht, hab' ich die Zahl die danach kommt, noch nicht als Variable im Speicher, oder? Oder falls es das "StrList" sein sollte, dann hab' ich's nich gebacken bekommen, die in eine Integerzahl umzuwandeln

[MrSpock]

Hallo olafb,

Zitat:

//mach was du willst, z.b. das hier:
StrList.Add(copy(memo1.lines.strings[i], length(suchstr) + 2, length(memo1.lines.strings[i])));

wenn du das Ergebnis in einer Variablen haben möchtest, die z.B. Wert heißt, funktioniert folgendes:

Delphi-Quellcode:

try
  zahlStr := copy(memo1.lines.strings[i], length(suchstr) + 2, length(memo1.lines.strings[i])-length(suchstr)-1);
  Wert := StrToInt(zahlStr);
except
  on exception do
  begin
    Wert := -1;
    MessageDlg(zahlStr+' ist keine gültige Ziffernfolge.');
  end;
end;