AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Typ File mit Typ String addieren

Ein Thema von SyntaxXx · begonnen am 15. Nov 2009 · letzter Beitrag vom 23. Jan 2010
 
SyntaxXx

Registriert seit: 14. Dez 2008
328 Beiträge
 
Delphi XE4 Architect
 
#7

Re: Typ File mit Typ String addieren

  Alt 23. Jan 2010, 15:46
Ok hab es jetzt so.

Jetzt sieht das alles so aus:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then
  begin
    lStream := tFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    Edit1.Text := OpenDialog1.FileName;
      try
        SetLength(Buffer , lStream.Size);
        lStream.Read(Buffer[1], lStream.Size);
      finally

      end;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 lStream.Size := lStream.Size + 1024*1024*3;
 Edit3.Text := IntToStr(lstream.Size);

Jetzt habe ich aber noch 2 Sachen.

1. Wofür genau bzw was genau bewirkt

Delphi-Quellcode:
        SetLength(Buffer , lStream.Size);
        lStream.Read(Buffer[1], lStream.Size);
2. Wenn ich das so jetzt starte und mir die Größe ausgeben will bekomme ich nen fehler das der Zugriff verweigert wurde.

Wenn ich aber nur

 Edit3.Text := IntToStr(lstream.Size); [/delphi]

Habe also ohne noch ws zu multiplizieren, dann kann ich mir die Größe ausgeben lassen.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:23 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