Zeile in einem Memo ersetzen

[himitsu]

Tja, wie ersetzt man wohl eine Zeile in einer Stringliste?

Delphi-Quellcode:

Ausgabe.Lines.Delete(i);
Ausgabe.Lines.Add(Zeile);

entspricht (wenn die Zeile schon vorhanden ist)
Ausgabe.Lines[i] := Zeile; .
also

Delphi-Quellcode:

if i < Ausgabe.Lines.Count then
  Ausgabe.Lines.Add(Zeile)
else
  Ausgabe.Lines[i] := Zeile;

oder man macht das Add vor der inneren Schleife, dann muß man nicht sändig prüfen.


Aber da ein Memo nunmal nicht dafür gedacht ist, daß man sowas damit macht ......


BeginUpdate und eventuell noch DoubleBuffered aktivieren ... vielleicht wird es dann besser.

[ASM]

Kann man auch so machen:

Code:

// ersetzt in Memo1 die Zeile (aRow), auf welcher der Cursor aktuell steht (bzw. stand, bevor der Button gedrückt wurde)
procedure TForm1.Button1Click(Sender: TObject);
var
  aRow: integer;
begin
  with memo1 do
  begin
    aRow := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
    SelStart := Perform(EM_LINEINDEX, aRow, 0);
    Perform(EM_SCROLLCARET, 0, 0);
    SelLength := length(lines[aRow]);
    if aRow=lines.Count then
      SelText := 'Diese Zeile wurde ersetzt'
    else
     SelText := 'Diese Zeile wurde ersetzt'#13;
  end;
end;

[loirad]

Super-himitsu's Vorschlag funktioniert perfekt - danke!!!!!!!!!!!

[ASM]

Der von himitsu vorgeschlagene Weg setzt natürlich voraus, dass der Wert von i bereits bekannt und als solches im Programm fixiert ist - es sei denn, man fragt den Wert von i über ein Editfeld oder ähnliches ab.

Der alternative Vorschlag (von mir) dagegegen erlaubt ein völlig freies, dynamisches Vorgehen, da die auszutauschende Zeile erst zum aktuellen Zeitpunkt durch die nicht vorhersagbare, ad hoc erfolgte Plazierung des Cursors identifiziert wird. Notwendigerweise ist der dazu notwendige Code etwas komplexer.