TimeStamp hh:mm:ss mit Zeit ersetzen

[Roki_]

Hallo,

ich möchte meinen TimeStamp mit jeweils der Zeit ersetzten, dazu habe ich eine function geschrieben wo ich aber den fehler
"[Error] Unit1.pas(420): E2010 Incompatible types: 'Char' and 'string'" erhalte. (hier Zeile 23)

Delphi-Quellcode:

function timestamp(): String;
var
ini: TIniFile;
timestamp: string;
begin

ini := TIniFile.Create(GetCurrentDir() + '\config.ini');
 try
  timestamp := ini.ReadString('log', 'timestamp', '');
  if timestamp <> '' then
   begin
    timestamp := ini.ReadString('log', 'timestamp', '');
   end
  else
   begin
    timestamp := '[hh:mm:ss]';
  end;
 finally
  ini.Free;
 end;

timestamp[pos('hh',timestamp)] := copy(TimeToStr(now),1,2);   // replace hour
timestamp[pos('mm',timestamp)] := copy(TimeToStr(now),4,2);   // replace minutes
timestamp[pos('ss',timestamp)] := copy(TimeToStr(now),7,8);   // replace seconds

result := timestamp;
end;

Lösung?

mfg
Roki

[Ultimator]

Delphi-Quellcode:

timestamp[pos('hh',timestamp)] := copy(TimeToStr(now),1,2);   // replace hour 
timestamp[pos('mm',timestamp)] := copy(TimeToStr(now),4,2);   // replace minutes 
timestamp[pos('ss',timestamp)] := copy(TimeToStr(now),7,8);   // replace seconds

Klar, dass das nix werden kann
timestamp[bla] spricht nur ein einziges Zeichen an (Char), und das kannst du ja nicht mit zwei Zeichen ersetzen, denn zwei Zeichen sind ja wieder ein String
Du könntest dir die Position von "hh" in eine Variable speichern, dann von dieser Position aus 2 Zeichen löschen (die Länge von "hh" eben ) und dann an der gemerkten Stelle die aktuelle Stundenzahl einfügen

Ganz elegant wäre natürlich
timestamp := StringReplace(timestamp, 'hh', copy(TimeToStr(now),1,2),[rfIgnoreCase]);

[Roki_]

ahh danke sehrgut.. wieder was gelernt

[Luckie]

Zitat von Roki_:

ini := TIniFile.Create(GetCurrentDir() + '\config.ini');

Und das geht nur mit Spucke und viel Glück gut.

[Matze]

Zitat von Luckie:

Und das geht nur mit Spucke und viel Glück gut.

Dann sag doch gleich, wie man es machen sollte.

ini := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'config.ini');

[Sprint]

IncludeTrailingPathDelimiter kannst du weglassen, weil ExtractFilePath als letztes Zeichen immer ein "\" hat.

[Roki_]

Ok... was ist an GetCurrentDir() so schlimm?

cu Roki