Hallo LuckyStrike4life,
generell sollte der fehlende Abschnitt in etwa so lauten:
Delphi-Quellcode:
while not Eof(tin) do
begin
ReadLn(tin, lese);
if DoesStringMatchCriteria(lese) then
WriteLn(tout);
end;
Die Frage lautet also, wie ermittelst Du, ob der String das von Dir geforderte Kriterium (
DoesStringMatchCriteria) erfüllt. Generell verwende ich bei der Verarbeitung von Strings gerne
reguläre Ausdrücke in diesem Fall ist das Problem aber nicht zu letzt von der Ausführungszeit bestimmt und die Daten auch recht einfach beschaffen.
Ich empfehle Dir deshalb den Einsatz von
Copy (Teilbereich extrahieren),
Trim (Leerzeichen des ermittelten Teilbereichs entferen) und
StrToIntDef bzw
Val (Rest: Zahl als String in Zahl umwandeln) um die Daten zu verarbeiten. Ein letztlicher Vergleich gegen
-300 bildet dann den Rückgabewert von
DoesStringMatchCriteria.