Listbox Item überschreiben

[Stern]

Hallo zusammen,

ich habe eine Frage zum Ändern eines bestimmmten Eintrags in einer ListBox.
Ich habe im Prinzip 2 Textdateien, die beide eingelesen werden und deren Inhalte jeweils in einer Listbox
ausgegeben werden. Beide Dateien enthalten die gleiche Anzahl an zeilen!

Wenn ich nun in der ersten Listbox ein Element auswähle, wird das entsprechende Element (mit dem gleichen Index)
der zweiten Listbox in einem Edit angezeigt. nun kommts...

Der Benutzer soll nun diesen Eintrag ändern können und über einen Button Speichern die Zeile in der Datei ÜBERSCHRIEBEN werden.
Bis jetzt bekomm ich es immer nur hin, dass er den Text am ENDE oder am ANFANG einfügt, aber icht überschreibt.
Kann mit da jemand einen Tipp geben? Ich steh da wohl gerade ziemlich auf dem Schlauch...

Liebe Grüße
Steffi

PS: Das Edit fülle ich so:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
       for i := 0 to ListBox1.Items.Count -1 do
       begin
            if ListBox1.Selected[i] then
            Memo1.text := ListBox2.Items.Strings[i];
            end;
       end;

[mkinzler]

Dreh doch die Zuweisung einfach um:
ListBox2.Items.Strings[<index>] := Memo1.Text;

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
       for i := 0 to ListBox1.Items.Count -1 do
       begin
            if ListBox1.Selected[i] then
            Memo1.Lines[i] := ListBox2.Items[i];
            end;
       end;

[Deep-Sea]

Zitat von Stern:

Ich habe im Prinzip 2 Textdateien, die beide eingelesen werden und deren Inhalte jeweils in einer Listbox
ausgegeben werden. Beide Dateien enthalten die gleiche Anzahl an zeilen!

Wenn ich nun in der ersten Listbox ein Element auswähle, wird das entsprechende Element (mit dem gleichen Index)
der zweiten Listbox [...]

Hört sich wieder einmal so an, als sei eine TListView besser dafür geeignet ...

[Deep-Sea]

Zitat von Stern:

[...] wird das entsprechende Element (mit dem gleichen Index)
der zweiten Listbox in einem Edit angezeigt.

Zitat von Stern:

Memo1.text := ListBox2.Items.Strings[i];

Ich dachte es handelt sich um ein Edit und kein Memo?

Zitat von mkinzler:

ListBox2.Items.Strings[<index>] := Memo1.Text;

Etwas ungünstig oder? Ein Memo kann nun mal mehrere Zeilen beinhalten, eine einzige Zeile dagegen nicht, sonst wäre es ja auch keine Zeile mehr ...

[Stern]

Oh...
Sorry, da habe ich mich wohl vertan. Ich benutze ein edit. Kein Memo.
Hast du mir vielleicht noch einen Tipp, wie ich die Zeile dann überschreiben kann?

Liebe Grüße
Steffi

[mkinzler]

ListBox2.Items.Strings[<index>] := Edit.Text;

[Stern]

@mkinzler: danke für deine Antwort. Joa, dass hab ich schon so drinne

Zitat:

ListBox2.Items.Strings[<index>] := Edit.Text;

Allerdings hab ich nun ja das problem, dass ich momentan nicht weiß, wie ich den richtigen Index bekomme.
Wenn ich das wie oben verwendet, wird der geänderte Eintrag an die erste Zeile geschrieben.
Aber ich möchte ja den ausgewählten Eintrag, der ja vielleicht auch in der 10. Zeile steht überschreiben.
Ich muss sagen, dass ich erst seit ein paar Tagen mit Delphi "experimentiere"...

Also kann mir jemand nen Tipp geben, wie ich an den richtigen Index komme?

Liebe Grüße
Steffi

PS: Hier nochmal die wichtigen Codeteile:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
s:string;
begin

     if OpenDialog1.Execute then
     begin
          ListBox1.Clear;
          AssignFile(F, OpenDialog1.FileName);
          try
             Reset(F);
          except
                ShowMessage('Datei konnte nicht geöffnet werden');
                exit;
          end;

          if IOResult <> 0 then
          exit;

          while not EoF(F) do
          begin
          ReadLn(F,s);
          ListBox1.Items.Add(s);
          end;
     CloseFile(F);
    end;
  end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
       for i := 0 to ListBox1.Items.Count -1 do
       begin
            if ListBox1.Selected[i] then
            Edit1.text := ListBox2.Items.Strings[i];
            end;
       end;
procedure TForm1.Button3Click(Sender: TObject);

var
F:TextFile;
s: string;

begin
      if OpenDialog2.Execute then
     begin
          ListBox2.Clear;
          AssignFile(F, OpenDialog2.FileName);
          try
             Reset(F);
          except
                ShowMessage('Datei konnte nicht geöffnet werden');
                exit;
          end;

          if IOResult <> 0 then
          exit;

          while not EoF(F) do
          begin
          ReadLn(F,s);
          ListBox2.Items.Add(s);
          end;
     CloseFile(F);
    end;
end;
procedure TForm1.Button2Click(Sender: TObject);

var i: integer;
begin
     ListBox2.Items.Strings[i] := Edit1.Text;
     ListBox2.Update;
end;

[bitsetter]

Hallo,

meinst du etwa ListBox2.ItemIndex?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
  Datei: AnsiString;
begin
  Datei:= 'C:\meineDatei.txt';
  if FileExists(Datei) then
  begin
    SList:= TStringList.Create;
    try
      SList.LoadFromFile(Datei);
      if ListBox2.ItemIndex >= 0 then
      begin
        SList.Strings[ListBox2.ItemIndex]:= Edit1.Text;
        SList.SaveToFile(Datei);
      end;
    finally
      SList.Free;
    end;
  end;
end;

[Deep-Sea]

Zitat von Stern:

Allerdings hab ich nun ja das problem, dass ich momentan nicht weiß, wie ich den richtigen Index bekomme.
Wenn ich das wie oben verwendet, wird der geänderte Eintrag an die erste Zeile geschrieben.
Aber ich möchte ja den ausgewählten Eintrag, der ja vielleicht auch in der 10. Zeile steht überschreiben.

TListBox.ItemIndex