Stringgrid mit gleichen Daten befüllen, aber unterschiedliche Ergbnisse

[PaPaNi]

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).

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;