Fehler mit TStrings

[clock50]

Hallo Leute, ich habe keine Ahnung was ich noch machen soll. Ich bekomme immer einen EAccessViolation Zugriffsverletzung bei Adresse (variiert) dabei habe ich doch alles richtig gemacht oder? Ich weiß auch, daß so etwas nicht zum ersten mal gefragt wurde. Aber trotzdem, es muss sein.

Delphi-Quellcode:

var   e : String;
      a : TStrings;
      d, zeil : word;

begin
  a := TStringList.Create;
  a := Memo1.Lines;
  Memo2.Clear;
  For zeil := 1 to a.Count-2 do
     begin
     e := LowerCase(a[zeil]);
     d := AnsiPos(LowerCase('...'), e);
     if d > 0 then
      begin
      Memo2.Lines.Add(inttostr(d)+' '+e);
      break;
      end;
     end;
  a.Free;
end;

Das Teil ist dazu da, einen bestimmten Teil im Text zu finden und das nächste Wort (variabel) wiederzugeben.

[mkinzler]

a.Assign(Memo1.Lines);

[clock50]

Danke für den Hinweis hat geklappt. Ich habe festgestellt das es auch mita.AddStrings(Memo1.Lines); geht. Also Danke!

[hoika]

Hallo,

Delphi-Quellcode:

var
  a : TStrings;
begin
  a := TStringList.Create;

Das passt hier zwar, ist aber Zufall.
Besser

  a : TStringList;
Heiko

[mkinzler]

Nein. Ist OK so. TStrings ist die abstrakte Basisklasse von TStringList

[SirThornberry]

genau, so wie er es hat ist es besser. Denn so braucht man nur eine Stelle ändern wenn es mal ein ander TStrings Nachfahre sein soll und nicht an zig verschiedenen Stellen.

[xZise]

Zitat von clock50:

Danke für den Hinweis hat geklappt. Ich habe festgestellt das es auch mita.AddStrings(Memo1.Lines); geht. Also Danke!

oder mit a.Text := Memo.Lines.Text

Oder du lässt das alles weg

Delphi-Quellcode:

var 
  e : String;
  d, zeil : word;
begin
  Memo2.Clear;
  For zeil := 1 to Memo1.Lines.Count-2 do
  begin
    e := LowerCase(Memo1.Lines[zeil]);
    d := AnsiPos(LowerCase('...'), e);
    if d > 0 then
    begin
      Memo2.Lines.Add(inttostr(d)+' '+e);
      break;
    end;
  end;
end;

MfG
xZise

PS: Ressourcenschutzblöcke