txt datei lesen und in einer tabelle wieder ausgeben

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo, HSchaffi!

Bitte nutze für Deinen Delphi-Code die Delphi- anstatt der Code-Tags. Dadurch wird der Sourcecode mit Syntax-Highlighting angezeigt!

Danke
Christian :-)

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

HSchaffi · Beiträge: 64

Ok

Danke

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

toxicmaster · Beiträge: 94

aber die textfile isdt ja schon vorhandn wieso muss es dann nochmal erstellt werden?

HSchaffi hat folgendes geschrieben:

Du kannst einer Textfile nicht einfachso den Namen zuweisen. Eine Textfile muss erzeugt werden.

markieren

Delphi-Quelltext

1:	AssignFile(filename, Dateiname); //Datei erstellen und Dateiname festlegen

HSchaffi · Beiträge: 64

AssignFile .... verknüpft eine Dateivariable mit einer Datei. Diese Verbindung wird erst mit CloseFile aufgehoben.

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

toxicmaster · Beiträge: 94

was ist opendialog1.execute ???????? :?:

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

damit wird der dialog zum öffnen einer datei angezeigt, vorausgesetzt OpenDialog1 ist vom Typ TOpenDialog oder TOpenPictureDialog

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

toxicmaster · Beiträge: 94

ist es in meinem fall richtig angewandt?

Basti · Beiträge: 345 Windows Vista D2005 Pers, D7 Pers

Wenn du keinen Öffnen-Dialog willst kannst du statt OpenDialog.FileName da deinen String mit der absoluten Adresse angeben!

_________________
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.

toxicmaster · Beiträge: 94

mit abseluter adresse meinst du pfad oder???

EDIT:
ahhhhh ich verstehe jetzt was ihr mit open dialog meint.
das ist doch so ne fenster wie z.b. bei speichern unter und so.
ne das will ich ja nicht ich will, dass der sofort die datei nimmt und nicht erst diesen dialog öffnet.

Basti · Beiträge: 345 Windows Vista D2005 Pers, D7 Pers

Ja, ich meine den Pfad.

Darum sollst du auch den Dialog ersetzen. Willst du ja nicht.
Stand aber nun mal so in der Hilfe - da muss man halt etwas sortieren
können

Geht's ?

_________________
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.

toxicmaster · Beiträge: 94

aber wie muss das dann jetzt aussehen ????
mhhh null ahnung aber ich teste mal kurz was und poste dann mal etwas damit ihr mich verbessern könnt.
dann geht das besser.

EDIT:
so hier ist mein versuch:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin
filename:=('Notiz.txt');
if filename:=('Notiz.txt'); then
  begin
    AssignFile(filename, OpenDialog1.FileName);
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
  end;
end;

ich kann aber keinen kompletten pfad eingeben,weil ich die txt-dat mit dem folgendem code in dem ordner wo die exe-datei ist gespeichert habe.

markieren

Delphi-Quelltext

1:	Extractfilepath(application.exename);

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

toxicmaster hat folgendes geschrieben:

so hier ist mein versuch:

markieren

Delphi-Quelltext

1:
2:

filename:=('Notiz.txt');
if filename:=('Notiz.txt'); then

AHHHH! Erstmal kannst du wie bereits gesagt einem Textfile nicht einfach einen Pfad zuweisen. dann was soll das ('') ??!! dann eine Zuweisung anstelle einer Bedingung im IF ??!!! was ist das??!!
richtig:

markieren

Delphi-Quelltext

1:	AssingFile(filename, Trim(ExtractFilePath(Appkication.exename))+'Text.txt');

Hiermit weist du dem Textfile "filename" die datei Text.txt in deinem Projekt Ordner zu. Warum du dann noch eine If-abfrage machenw illst, die auf jedenfall wahr ist, da du das ja vorher festlegst, kann ich dir nicht sagen, da meine Kristallkugel in reperatur ist...

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

HSchaffi · Beiträge: 64

Und ich habe gedacht, du willst keinen OpenDialog? Warum nimmst du ihn dann wieder rein?
Ich denke du solltest versuchen mehr die Hilfe zu nehmen. Glaube mir, was du selber raus bekommst, durch lesen und ausprobieren, vergiss du nie und lernst es besser!!!!

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

toxicmaster · Beiträge: 94

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin

    AssingFile(filename, Trim(ExtractFilePath(Appkication.exename))+'text.txt');
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
end;

das funktioniert immernochnicht.
aber ich habe wieder was falsch.

HSchaffi · Beiträge: 64

Heißt deine Datei auch 'text.txt' ??????? Weil du schon mal diesen Namen 'Notiz.txt' zuweisen wolltest!!!!!!!!

Und es heißt application.exename und nicht Appkication.exename !!!!!!!!

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

toxicmaster · Beiträge: 94

markieren

Delphi-Quelltext

1:	AssingFile(filename, Trim(ExtractFilePath(Application.exename))+'notiz.txt');

sorry habe das falsche kopiert.
das ist das was ich in meinem delphi projekt habe.

HSchaffi · Beiträge: 64

Schreibe doch bitte mal genau, was denn jetzt nicht geht!!!!

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

toxicmaster · Beiträge: 94

edit

es kommt ne fehlermeldung wenn ich auf den button klicke (fehlermeldung kommt gleich)

AXMD · Verfasst: Mi 22.12.04 23:04

Weil es Assign heißten muss

AXMD

toxicmaster · Beiträge: 94

jop hab ich auch bemerkt! geht auch bloss er liest nur das datum und nicht die ganze datei.
also ich habe nen feld mit nem datum und nen feld mit einer notiz und die speicher ich dann.
wenn ich das prog wieder oeffne und die notiz lade, dann wird nur das datum aus der txt dat geladen.(also nur die erste zeile)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme