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. :oops:

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]

Delphi-Quellcode:

a.Assign(Memo1.Lines);

[clock50]

Danke für den Hinweis hat geklappt. Ich habe festgestellt das es auch mit

Delphi-Quellcode:

a.AddStrings(Memo1.Lines);

geht. Also Danke! :zwinker:

[hoika]

Hallo,

Delphi-Quellcode:

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

Das passt hier zwar, ist aber Zufall.
Besser

Delphi-Quellcode:

  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.

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.

[xZise]

Zitat:

Zitat von clock50

Danke für den Hinweis hat geklappt. Ich habe festgestellt das es auch mit

Delphi-Quellcode:

a.AddStrings(Memo1.Lines);

geht. Also Danke! :zwinker:

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 ;)