Suchen, vergleichen

[DeddyH]

Du solltest Dir die Parameter von Copy() einmal ganz genau anschauen. Der letzte gibt keine Position, sondern die Länge des zu kopierenden Teilstrings an. Außerdem ist GetCurrentDir() keine gute Idee, oder weißt Du, in welchem Verzeichnis Du Dich gerade befindest? Ich habe das ganze mal etwas abgeändert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
   bracketpos1,bracketpos2:integer;
   sl: TStringlist;
   Line: string;
begin  
  Memo1.Lines.BeginUpdate;
  try
    memo1.clear;
    sl := TStringlist.Create;
    try
      sl.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'werte.txt');
      for i := 0 to sl.Count - 1 do
        begin
          Line := '';
          bracketpos1 := Pos('(',sl[i]);
          if bracketpos1 > 2 then
            begin
              Line := Trim(Copy(sl[i],1,bracketpos1 - 1)) + #32;
              BracketPos2 := Pos(')',sl[i]);
              Line := Line + Copy(sl[i],bracketPos1 + 1,BracketPos2 - BracketPos1 - 1);
              memo1.Lines.Add(Line);
            end;
        end;
    finally
      sl.free;
    end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

[edit] Das Clear in den try-finally-Block verschoben [/edit]