Hallo ihr,
ich möchte in einem Memo bestimmte Zeilen sersetzen. Ich habe es schon mit erst löschen und dann neu add(string) probiert, jedoch flackert das zu sehr. Habt ihr eine Idee
Liebe Grüße
loirad

Ohne Code, wie du es gemacht hast, kann man da schlecht was zu sagen.

Hier der Code

zusammenfalten · markieren

Delphi-Quellcode:

Zeile:='';
for i:=0 to Hilfe.Lines.Count-1 do
 begin
  if length(Hilfe.Lines.Strings[i])>0 then
   for j:=1 to length(Hilfe.Lines.Strings[i]) do
    begin
     Zeile:=Zeile+Hilfe.Lines.Strings[i][j];
     Ausgabe.Lines.Delete(i);
     Ausgabe.Lines.Add(Zeile);
     sleep(50);
     Application.ProcessMessages;
    end
  else
   Ausgabe.Lines.Add(Zeile);
  Zeile:='';
 end;

In Hilfe wird am Anfang die Textdatei eingelesen und in Ausgabe Buchstabe für Buchstabe langsam eingetragen!
Variablen: i,j:integer; Zeile:string;

Liebe Grüße
loirad

Haben die Memo.Lines kein BeginUpdate/EndUpdate?

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

markieren

Delphi-Quellcode:

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

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

markieren

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.

Kann man auch so machen:

markieren

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;

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

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.