![]() |
Re: Zugriffsverletzung in Procedure
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'; |
Re: Zugriffsverletzung in Procedure
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; |
Re: Zugriffsverletzung in Procedure
saubere variante, die genau die gleiche exeption auslöst!
|
Re: Zugriffsverletzung in Procedure
Wart mal kurz ich probier sie mal aus...
|
Re: Zugriffsverletzung in Procedure
@ mirage ok, die exeption is weg. aber jetzt füllt er das memo nur mit Buffer!
|
Re: Zugriffsverletzung in Procedure
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 |
Re: Zugriffsverletzung in Procedure
ich wüst nicht wieso. das is ja schon created!
|
Re: Zugriffsverletzung in Procedure
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. |
Re: Zugriffsverletzung in Procedure
ich ruf das so auf:
Delphi-Quellcode:
create_mem(memo1)
|
Re: Zugriffsverletzung in Procedure
Poste mal den Stand der Funktion!
Wie gesagt bei geht es wunderbar. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz