Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#12

Re: StringGrid eingabe an Edit

  Alt 6. Feb 2007, 07:43
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
  Mit Zitat antworten Zitat