Einzelnen Beitrag anzeigen

NoName1

Registriert seit: 8. Mär 2018
196 Beiträge
 
Delphi 12 Athens
 
#1

Delimiter-Strigliste abarbeiten

  Alt 6. Feb 2024, 11:26
Delphi-Version: 5
Guten Tag,
Ich habe eine Stringliste (ManungenSL) mit mehreren Zeilen. Die Stringliste hat als Trenner ein Semikolon
Beispiel:
Delphi-Quellcode:
      j := 0;
      ibqryZeigeForderungen.First;
      for i := 1 to grdZeigeForderungen.RowCount - 1 do
        begin
          if grdZeigeForderungen.GetCheckBoxState(1, i, pState) then
            begin
              if pState then
                begin
                  ibqryZeigeForderungen.MoveBy(i - 1 - j); // muss zuerst (MoveBy verschiebt den Datensatz)

                  pSLInput := ibqryZeigeForderungenFORDAUS.AsString + ';'
                    + ibqryZeigeForderungenFORDERUNGSTXT.AsString + ';'
                    + FloatToStrF(ibqryZeigeForderungenFORDERUNG.AsCurrency, ffCurrency, 8, 2) + ';'
                    + FloatToStrF(ibqryZeigeForderungenOFFEN.AsCurrency, ffCurrency, 8, 2);
                  MahnungenSL.Delimiter := ';';
                  MahnungenSL.DelimitedText := pSLInput;
                  MahnungenSL.StrictDelimiter := True;

                  j := i - 1; // muss zuletzt
                end;
            end;
        end;
Der Quellcode macht was er soll!!

Ich möchte nun die einzelnen Zeilen der Stringliste abarbeiten.
Meine Versuche scheiterten bisher kläglich.
for i := 0 to strigliste.Count - 1
Liest nur die Spalten der letzten Zeile.

Meine Fragen dazu:
Wie wird der Zeige auf die erste Zeile gestellt?
Ist evtl. eine Delimiter-Liste falsch und eine "Zusammenhänge Liste" besser
oder gar ein Record?


Vielen Dank im Voraus an die Tippgeber.

Geändert von NoName1 ( 6. Feb 2024 um 12:23 Uhr) Grund: QuellCode hinzugefügt
  Mit Zitat antworten Zitat