Memo/Richedit durchsuchen & kopieren

[Counter909]

ja ok...aber wie such in dann ein wort mit "pos" in einer "Line" ?
pos gibt doch nur ein integer-wert wieder, an welcher Position das wort steht eben ^^

[Counter909]

wenn ich die Position meines gesuchten wortes mit

"t:= pos('gesuchtetext',form1.richedit1.Lines.Text)"

herausfinde...woher weiß ich dann, in welcher Zeile das ist ? (lines[?]) ?
denn T wäre in diesem Fall ja eine Integer-Zahl!

[Blackheart]

Du gehst doch sicherlich deinen Text mit einer Schleife durch
lines[i] liefert dir dann die entsprechende Zeile.

[wazup]

Hi

TRegExpr, for-Schleife

[Counter909]

die position kann ich dann ja so erhalten:

Delphi-Quellcode:

for Index := Memo2.Lines.Count - 1 downto 0 do
      begin
        Position := Pos(form1.Edit1.Text, Memo2.Lines[Index]);
        if Position > 0 then showmessage('+inttostr(position)+''
      end;

so dann hab ich ja mein Feld wo ich eingeben kann, wieviele Zeilen kopiert werden sollen, also

n:=edit1.text
logischerweise um kann ich dann doch "position+n", sodass ich die endzeile habe, bis wo kopiert werden soll, aber

copy(memo2.Lines.Text,?,??);} aber hier werden ja nur nur die "Pos" werte verlangt und keine zeile

[Matze]

Hallo,

du hast doch deinen Zeilen-Index "Index" und die Position des Wortes in dieser Zeile "Position".

Dann kannst du aus Memo2.Lines[Index] mit Copy, "Position" und "n" doch das herauskopieren, was du möchtest:

Copy(Memo2.Lines[Index], Position, n); Nur solltest du "Index" nicht direkt verwenden, sondern in der Schleife einer anderen Variable diesen Wert zuweisen, denn nach der Schleife könnte "Index" undefiniert sein. Das habe ich kürzlich gelernt und wusste es davor auch nicht:

Delphi-Quellcode:

for ...
  if Position > 0 then
    RowIndex := Index;

// ...

Dann nimmst du als 2. Copy-Parameter "RowIndex".

Grüße

[Blackheart]

Zitat von Matze:

Hallo,

du hast doch deinen Zeilen-Index "Index" und die Position des Wortes in dieser Zeile "Position".

Dann kannst du aus Memo2.Lines[Index] mit Copy, "Position" und "n" doch das herauskopieren, was du möchtest:

Copy(Memo2.Lines[Index], Position, n); Nur solltest du "Index" nicht direkt verwenden, sondern in der Schleife einer anderen Variable diesen Wert zuweisen, denn nach der Schleife könnte "Index" undefiniert sein. Das habe ich kürzlich gelernt und wusste es davor auch nicht:

Delphi-Quellcode:

for ...
  if Position > 0 then
    RowIndex := Index;

// ...

Dann nimmst du als 2. Copy-Parameter "RowIndex".

Grüße

Etwas viel Zitat - Delphi weisst darauf hin das der Wert nicht mehr stimmten könnte was aber nicht sein muss.

[Counter909]

soooo, danke leute, ich hab es endlich hinbekommen, auch mit meiner Eingabe wieviele Zeilen kopiert werden....wie es nun mal ist, ich hatte auch einen kleinen Fehler mit einer Variable, darum klappte was nicht


also vielen dank leute