Leerzeichen aus dem String löschen ?

[aaaaaaaaaa_10]

Delphi-Quellcode:

function TKomMainWnd.DateiNameRohdaten(StatNr: Integer): string;
var
  i,j: integer;
  SecList1, SecList2 : TStringList;
  SessionIni: TIniFile;
  ident, test1, test2 : string;
  liste: Tstrings;
begin
  SecList1 := TStringList.Create;
  SecList2 := TStringList.Create;
  try
    SessionIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Sessions.ini');
    with SessionIni do
    begin
      SessionIni.ReadSections(SecList1);
      for j := 0 to SecList1.Count - 1 do
      begin
          SessionIni.ReadSectionValues(SecList1[j],SecList2);
          ident := ('StatName='+Logger.StatParam.StatName);     
          if SecList2.IndexOf(ident) > -1 then
           begin 
              RohdatenPfad := SessionIni.ReadString(SecList1[j],'Rohpfad','C:\Data')
          end else
            RohDatenPfad := DalosOptions.GetOption('RohdatenPfad','','DALOSWin')
      end;
    end;
  finally
    SecList2.Free;
    SecList1.Free;
  end;

[angos]

hi,

und wo vergleichst du da? OO

gruß
Ansgar

[hazard999]

Wo ist das Trim?

[aaaaaaaaaa_10]

Wenn ich mir den String ausgeben lasse : StatName=(c) 2007 by A&B ( Length = 25, also muss da noch was hinten dran sein)
Nach Trim / Trimright ist Length aber immer noch 25,also scheint es kein Leerzeichen zu sein..

[aaaaaaaaaa_10]

Zitat:

und wo vergleichst du da? OO

Ich schaue ob der string(ident) in der Datei vorhanden ist und unter welcher Sektion?

Delphi-Quellcode:

 if SecList2.IndexOf(ident) > -1 then

[mkinzler]

Zitat:

und wo vergleichst du da?

Passiert im .IndexOf()
Schau dir mal beide Strings im Debugger an

[aaaaaaaaaa_10]

Zitat:

Schau dir mal beide Strings im Debugger an

Wie mache ich das?

[mkinzler]

Breakpoint setzen und mit Maus über Varibale fahren bzw. zu überwachten Ausdrücken hinzufügen

[angos]

Zitat:

Zitat von aaaaaaaaaa_10

Wenn ich mir den String ausgeben lasse : StatName=(c) 2007 by A&B ( Length = 25, also muss da noch was hinten dran sein)
Nach Trim / Trimright ist Length aber immer noch 25,also scheint es kein Leerzeichen zu sein..

hmmm gestern war hier eine ähnliche Anfrage. Machst du

Delphi-Quellcode:

Trim(Variable);

oder

Delphi-Quellcode:

Varaible := Trim(Variable);

Sonst hab ich leider keine Idee mehr


gruß
Ansgar

[aaaaaaaaaa_10]

Trim(Variable) habe ich gemacht