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.