StringGrid eingabe an Edit

[SaFu]

So klappt es wunder bar die kommas sin zwar unschön aber damit kann man leben, dann müsste es doch auch mit 2 Spalten gehen oder??

[marabu]

Hallo Sascha,

wenn dir das Komma nicht gefällt: Im ersten Ansatz kannst du beim StringReplace() anstelle des Leerstrings einen beliebigen Trenner eintragen. Im letzten Ansatz über DelimitedText kannst du den Delimiter relativ frei wählen und bekommst sogar noch ein Quoting geschenkt.

Wenn du die Zellwerte von mehr als einer Spalte verketten möchtest, dann musst du den Code noch etwas erweitern:

Delphi-Quellcode:

var
  s: TStrings;
  iCol, iFix: Integer;
begin
  with TStringList.Create do
  try

    for iCol := 12 to 13 do
    begin
      iFix := Count;
      AddStrings(StringGrid.Cols[iCol]); // Spalte iCol übernehmen
      Delete(iFix); // weg mit der Spaltenüberschrift
    end;

    DeinEdit.Text := CommaText; 
  finally
    Free;
  end;
end;

Freundliche Grüße

[SaFu]

mal eine frage was ist ein Quoting?

[SaFu]

Hab nochmal ne zum Edit kann man die übergabe in das Edit auch Alphabet. Ordnen nur nach den Anfangsbuchstaben.

z.B. wenn ich eingebe Hallo, Arm, Mund, Bein, dass es dann so im Edit Steht Arm, Bein, Hallo, Mund.

[Lannes]

Hallo,

eine StringList kennt die Eigenschaft Sorted, denke das Dir das dabei weiterhilft.

[SaFu]

100% Sicher