Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zugriffsverletzung in Procedure (https://www.delphipraxis.net/8410-zugriffsverletzung-procedure.html)

mirage228 4. Sep 2003 09:49

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

neolithos 4. Sep 2003 09:50

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;

Meflin 4. Sep 2003 09:54

Re: Zugriffsverletzung in Procedure
 
saubere variante, die genau die gleiche exeption auslöst!

neolithos 4. Sep 2003 09:55

Re: Zugriffsverletzung in Procedure
 
Wart mal kurz ich probier sie mal aus...

Meflin 4. Sep 2003 09:56

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

mirage228 4. Sep 2003 09:57

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

Meflin 4. Sep 2003 09:59

Re: Zugriffsverletzung in Procedure
 
ich wüst nicht wieso. das is ja schon created!

neolithos 4. Sep 2003 09:59

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.

Meflin 4. Sep 2003 10:03

Re: Zugriffsverletzung in Procedure
 
ich ruf das so auf:
Delphi-Quellcode:
create_mem(memo1)

neolithos 4. Sep 2003 10:05

Re: Zugriffsverletzung in Procedure
 
Poste mal den Stand der Funktion!

Wie gesagt bei geht es wunderbar.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:50 Uhr.
Seite 2 von 3     12 3      

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