Zugriffsverletzung in Procedure

[mirage228]

Der Constructor von TMemo erwartet doch nur AOwner: TComponent als Parameter, da müsste "Application.MainForm" klappen. Bei mir klappt das so (D3 Prof.). Hast du buffer auch als TMemo deklariert?

Delphi-Quellcode:

Buffer := TMemo.Create(Application.MainForm);
Buffer.Parent := Application.MainForm;
Buffer.Name := 'Buffer';

[neolithos]

Mal ne saubere alternative....

Delphi-Quellcode:

procedure create_mem(Memo: TMemo);
const
  csZeichen : array [0..97] of char = 'ABC  zeichen noch eingeben';
var y, 
    iZeilen, 
    iZeilenLen, 
    x : integer; 
    sZeile : string; 
    lstBuf : TStringList;
begin
  randomize;
  lstBuf := TStringList.Create;
  try
    iZeilen := random(80);
    for y := 1 to iZeilen do 
        begin
          iZeilenLen := random(50);
          sZeile := '';
          for x := 0 to iZeilenLen do  
              sZeile := sZeile + csZeichen[random(98)];
         lstBuf.Add(sZeile);
       end;
    Memo.Clear;
    Memo.Lines.Assign(lstBuf); 
  finally
    lstBuf.Free;
  end;
end;

[Meflin]

saubere variante, die genau die gleiche exeption auslöst!

[neolithos]

Wart mal kurz ich probier sie mal aus...

[Meflin]

@ mirage ok, die exeption is weg. aber jetzt füllt er das memo nur mit Buffer!

[mirage228]

ich würde Buffer nach dem createn dann vllt leeren (Buffer.Clear) und dann die Zeilen mit Buffer.Lines.Add(...); hinzufügen, so müsstes gehen.

mfG
mirage228

[Meflin]

ich wüst nicht wieso. das is ja schon created!

[neolithos]

Getestet und Läuft...

Was übergibst du bei dem Parameter Memo?

Und den csZeichen würde ich vor noch mit Zeichen auffüllen ABC war nur ein Bsp.

[Meflin]

ich ruf das so auf:
create_mem(memo1)

[neolithos]

Poste mal den Stand der Funktion!

Wie gesagt bei geht es wunderbar.