Hallo
vielleicht könnt ihr mir da bei dieser Verständnisfrage weiterhelfen.

Gegeben ist ein Stringgrid mit 5 Spalten und 2 Row´s (+ Headerrow). Beide Row´s werden (eigentlich mit den gleichen Daten befüllt. Das Problem sind leere Zellen, also ohne Text (hier im Beispiel die 2. Spalte). Wenn die Werte mit CommaText oder DelimitedText gefüllt werden, bekomme ich beim Auslesen ein Leerzeichen. Warum ist das so und wie kann ich das verhindern?

zusammenfalten · markieren

Delphi-Quellcode:

// ROW 1
StringGrid1.RowCount := 3;
StringGrid1.Cells[0, 1] := 'a';
StringGrid1.Cells[1, 1] := '';
StringGrid1.Cells[2, 1] := 'b';
StringGrid1.Cells[3, 1] := 'c';
StringGrid1.Cells[4, 1] := 'd';
StringGrid1.Cells[5, 1] := 'e';

// ROW 2
StringGrid1.Rows[2].CommaText := 'a,,b,c,d,e';

Memo1.Lines.Clear;
Memo1.Lines.Add('Cell 1.1: "'+StringGrid1.Cells[1, 1]+'"');
Memo1.Lines.Add('Cell 1.2: "'+StringGrid1.Cells[1, 2]+'"');

Ergebniss:
Cell 1.1: ""
Cell 1.2: " " <<< Warum ist hier ein Leerzeichen !!!

Schauen Sie bitte an, wie ein Zeichen hinzugefügt wird, wenn man eine Commatext-Funktion verwendet (es wird in diesem Fall ein Leerzeichen extra addiert).

markieren

Code:

function TStringGridStrings.Add(const S: string): Integer;
var
  I: Integer;
begin
  for I := 0 to Count - 1 do
    if Strings[I] = '' then
    begin
      if S = '' then
        Strings[I] := ' '
      else
        Strings[I] := S;
      Result := I;
      Exit;
    end;
  Result := -1;
end;

Erstmal vielen Dank für diesen Hinweis.

Und dann hat sich auch die Frage geklärt, warum es eine schlechte Idee war, ein StringGrid mit "Commatext" oder "DelimitedText" zu befüllen. Das hatte ich so auch noch nie gesehen. Ich sehe auch keine Möglichkeit, dieses Leerzeichen mit diesen Befüll-Methoden zu verhindern. Dann werde ich wohl das befüllen auf Cells[aCol, aRow] := ... anpassen.

Thx