An bestimmter Stelle eines Strings einen Wert setzen

[marabu]

Hallo Jerry,

wenn deine Strings CSV-konform sind, dann funktioniert auch sowas:

Delphi-Quellcode:

function SetValue(const aLine, aValue: string; aIndex: Cardinal;
    aDelimiter: Char = ',';  aQuoteChar: Char = '"'): string;
begin
  with TStringList.Create do
  try
    Delimiter := aDelimiter;
    QuoteChar := aQuoteChar;
    DelimitedText := aLine;
    if aIndex = Count 
      then Add(aValue)
      else Strings[aIndex] := aValue;
    Result := DelimitedText;
  finally
    Free;
  end;
end;

Grüße vom marabu

Nachtrag: Sonderbehandlung für letzten Value eingeführt, zu große Indexwerte werfen eine Exception.