hallo zusammen...
ich habe eine frage an euch...
und zwar mach ich gerade ein praktikum als fachinformatiker in richtung anwendungsentwicklung und habe ein problem beim programmieren...
ich soll eine excel datei per einfügenButton einfügen...
bin aber als anfänger so ziemlich überfragt...
kann mir jemand hierbei helfen???
hier das was ich bisher gemeistert habe
__________________________________________________ __________________________________________________ _______________________________
Delphi-Quellcode:
unit streams;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Laden: TButton;
LbxText: TListBox;
odgdialoge: TOpenDialog;
procedure LadenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit4ABFRAGE;
{$R *.dfm}
procedure TForm1.LadenClick(Sender: TObject);
var
msLaden : TMemoryStream;
ssText : TStringStream;
i : Integer;
slText: TStringList;
strPfad :
String;
begin
if odgdialoge.execute
then begin
strPfad := odgdialoge.FileName;
Application.CreateForm(TForm4, Form4);
if Form4.ShowModal <> mrOk
then begin
exit;
end;
end else begin
exit;
end;
msLaden := TMemoryStream.Create;
ssText := TStringStream.Create('
');
slText := TStringList.Create;
try
msLaden.LoadFromFile(strPfad);
msLaden.SaveToStream(ssText);
slText.Text := ssText.DataString;
if Form4.intAuswahl = 0
then begin
lbxText.Items.Text := lbxText.Items.Text + ssText.DataString;
end else begin
lbxText.Items.Text := ssText.DataString;
end;
for i := 0
to slText.Count - 1
do begin
ShowMessage(slText[i]);
end;
finally
if Assigned(msLaden)
then FreeAndNil(msLaden);
if Assigned(ssText)
then FreeAndNil(ssText);
if Assigned(slText)
then FreeAndNil(slText);
end;
end;
end.
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]