Forum: Datenbanken
Delphi
by choose,
5. Feb 2004
Nein, ich meine so, wie oben beschrieben:
while not Eof(tin) do
begin
ReadLn(tin, lese);
if DoesStringMatchCriteria(lese) then
WriteLn(tout);
end;
mit der Funktion DoesStringMatchCriteria, die entscheidet, ob ein String der Ausgaben angehängt werden soll, oder nicht. Nach der Beschreibung (dritte Spalte <>'-300.00') und dem gegebenen Ausschnitt (zwei führende Spaces) könnte diese...
Forum: Datenbanken
Delphi
by choose,
5. Feb 2004
Nope, wenn ich stoxx richtig verstanden habe, sollte diese Routine pro Zeile angewendet werden, also kein Problem.
@stoxx: Ich gehe wegen der Ausrichtung der Daten (rechtsbündig) nicht von Tabs sondern Leerzeichen aus, so dass die Spalten direkt über die Zeichenposition im String indiziert werden können und eine Lösung mit Copy & Co (s.o.) als ad hoc-Lösung (ohne Hilfsklassen) am einfachsten...
Forum: Datenbanken
Delphi
by choose,
5. Feb 2004
Hallo LuckyStrike4life,
generell sollte der fehlende Abschnitt in etwa so lauten:
while not Eof(tin) do
begin
ReadLn(tin, lese);
if DoesStringMatchCriteria(lese) then
WriteLn(tout);
end;