Auf Inhalt einer Memo Linie überprüfen

sacharja · Beiträge: 24

Hallo zusammen,
ich möchte den Inhalt einer Memo Zeile überprüfen, bekomme aber immer einen Fehler. Das ist mein Code:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; Memobox: string;
begin
if SaveDialog1.Execute then
  begin
  for i:=0 to Memo1.Lines.count do
    begin
    Memobox:=Memo1.Lines[i];
    if Memobox.Text='asdf' then
    Memobox[i]:='<a href="'+Memobox+'">'+Memobox+'</a>';
    end;
  Memo1.lines.Savetofile(SaveDialog1.FileName);
  end
end;

Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 01.02.2006 um 19:05

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Die Zeilen eines Memos sind von 0 bis Anzahl-1 durchnummeriert. Deine Schleife läuft aber bis Memo1.Lines.count, also eins zu weit. Das wird einen entsprechenden Fehler produzieren. Es ist übrigens immer von Vorteil, hier den Fehler zu posten, der gemeldet wird. :-)

Grüße
Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

F34r0fTh3D4rk · Verfasst: Mi 01.02.06 19:18

markieren

Delphi-Quelltext

1:	Memobox.Text

ein string hat keine eigenschaft text

sacharja · Beiträge: 24

Danke für die Antworten, ich habe den Code entsprechend angepasst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);   
var i:integer; Memobox: string;
begin
if SaveDialog1.Execute then
  begin
  for i:=0 to Memo1.Lines.count-1 do
    begin
    Memobox:=Memo1.Lines[i];
    if not Memobox='asdf' then
    Memobox[i]:='<a href="'+Memobox+'">'+Memobox+'</a>';
    end;
  Memo1.lines.Savetofile(SaveDialog1.FileName);
  end
end;

Aber immer noch der Fehler am Anfang der if Schleife "[Error] Unit1.pas(37): Operator not applicable to this operand type". Schreibe ich statt "if not" nur "if" kommt nur noch der Fehler innerhalb der Schleife "[Error] Unit1.pas(3

: Incompatible types: 'Char' and 'String'"

Was läuft da schief?

F34r0fTh3D4rk · Verfasst: Mi 01.02.06 20:10

mama so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);   
var 
  i: integer; 
  Memobox: string;
begin
  if SaveDialog1.Execute then
  begin
    for i := 0 to Memo1.Lines.count - 1 do
    begin
      Memobox := Memo1.Lines[i];
      if Memobox <> 'asdf' then
        Memobox := '<a href="' + Memobox + '">' + Memobox + '</a>';
      Memo1.lines[i] := Memobox;
    end;
    Memo1.lines.Savetofile(SaveDialog1.FileName);
  end
end;

sacharja · Beiträge: 24

Ein Fehler taucht jetzt nicht mehr auf, aber bei "if Memobox <> 'asdf' then" würde er bei einer Zeile die "asdff" heißt trotzdem den Schleifeninhalt ausführen.

Mein 2. Versuch daher "if Memobox.IndexOfName('<a')=-1 then", aber auch hier wieder der bekannte Fehler "[Error] Unit1.pas(39): Record, object or class type required"

Gausi · Verfasst: Do 02.02.06 13:45

sacharja hat folgendes geschrieben:

Ein Fehler taucht jetzt nicht mehr auf, aber bei "if Memobox <> 'asdf' then" würde er bei einer Zeile die "asdff" heißt trotzdem den Schleifeninhalt ausführen.

Mach dich über die Delphi-Hilfe mal schlau, was die Funktion pos so machen kann.

_________________
We are, we were and will not be.

F34r0fTh3D4rk · Verfasst: Do 02.02.06 15:59

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);   
var 
  i: integer; 
  Memobox: string;
begin
  if SaveDialog1.Execute then
  begin
    for i := 0 to Memo1.Lines.count - 1 do
    begin
      Memobox := Memo1.Lines[i];
      if pos('asdf', Memobox) <> 0 then
        Memobox := '<a href="' + Memobox + '">' + Memobox + '</a>';
      Memo1.lines[i] := Memobox;
    end;
    Memo1.lines.Savetofile(SaveDialog1.FileName);
  end
end;

sollte gehen, ich weiß dann aber net, ob die nächste zeile sinn macht, was hast du denn eigentlich vor ?

sacharja · Beiträge: 24

Danke für den guten Tipp mit Pos.

Ich habe es so verbessert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

    for i := 0 to Memo1.Lines.count - 1 do
    begin
      Memobox := Memo1.Lines[i];
      if pos('<a',Memobox) = 0 then
        Memobox := '<a href="' + Memobox + '">' + Memobox + '</a><br>';
    end;

Zitat:

was hast du denn eigentlich vor ?

Ich möchte eigentlich nur jede Zeile im Memo überprüfen, ob sie ein "<a" enthält und wenn nicht möchte ich sie zeile durch einen Link ersetzen (der als Ziel den vorherigen Zeileninhalt hat). Leider ersetzt er jetzt aber nichts

sacharja · Beiträge: 24

Hat sich geklärt. Habe da was mit JS durcheinander gebracht. Danke für eure Hilfe.

markieren

Delphi-Quelltext

1:
2:

if pos('<a',Memobox) = 0 then   
        Memo1.Lines[i] := '<a href="' + Memobox + '">' + Memobox + '</a><br>';

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme