Texte aus einer Datei lesen?

[Mr.XYZ]

Hi,
ich möchte in einem Programm aus einer ganz normalen Textdatei(txt) ein Zeile her raus lesen, am Doppelpunkt spliten und die hintere Hälfte in einer Variable speichern. Nur wie genau geht das?:?
Hoffe auf schnelle Antwort!!
mfg. Mr.XYZ

[Klaus01]

Hallo,

du könntest die Textdatei in eine Stringlist einlesen,
dann per Index auf die entsprechende Zeile zugreifen.
Mit pos und copy lässt sich dann die Zeile
in die entsprechenden Teile teilen.
Wenn Dir pos und copy zu mühselig sind,
gibt es in der Codelib noch explode

Grüße
Klaus

[Mr.XYZ]

:roll: äh.. wie mache ich diese stringlist?

[Andreas L.]

Delphi-Quellcode:

var
  sl: TStrings;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\datei.txt');
    //mit der textdatei arbeiten...
  finally
    sl.Free;
  end;
end;

[Mr.XYZ]

okay danke!! :)
kann ich eine Zeile aus der list so aufrufen?

Delphi-Quellcode:

variable:=sl.1;

[Mr.XYZ]

das fon oben häte ich geklärt, aber gibst eine Möglichkeit herauszufinden wo die exe gespeichert ist?

[Andreas L.]

Zitat:

Zitat von Mr.XYZ

gibst eine Möglichkeit herauszufinden wo die exe gespeichert ist?

ExtractFilePath(Application.ExeName)

[Mr.XYZ]

ähmm.. ich hätte da noch so ein Problem den dieser Code geht nicht das Programm stürzt immer ab.

Delphi-Quellcode:

Form1.Label1.Caption:='H';

[p80286]

Das halte ich für ein Gerücht!

Wenn Dein Programm abstürzt dann, an anderer Stelle.

und was heißt überhaupt "abstürzen"?
Gibt es da eine Fehlermeldung?

oder stellt es sich einfach tot? ==>> Endlosschleife(!?)

Gruß
K-H

[Mr.XYZ]

naja es gibt ne Fehlermeldung, wen ich sage fortsetzen dann wird der Rest des Programms nicht ausgeführt.

[Andreas L.]

Und wie lautet die Fehlermeldung?

[patti]

1. Welche Fehlermeldung genau?
2. Wann und wo rufst du die oben genannte Zeile auf?
3. Du solltest evtl. noch etwas mehr Quelltext zeigen, damit wir dir helfen können... Denn wie p80286 schon gesagt hat: Eigentlich kann die von dir genannte Zeile keinen Fehler produzieren.

mfg

[Mr.XYZ]

also, ich wollte einen Speicher Tschechen, das ist aber nicht mehr der Ursprungscode wegen des Fehlers hier ist mal ein Ausschnitt meines Quelltextes:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var
pfad : string;
profil : TStrings;
I1,I3,H,B : integer;
Screen : TScreen;
begin
I3:=208;
H:=Screen.Height;
B:=Screen.Width;
  Hier---->       Form1.Label1.Caption:=IntToStr(H)+' x '+IntToStr(B);      <----Hier
Image3.Left:=B div 2;
Image3.Left:=Image3.Left - I3;
I1:=129;
Image1.Top:=H - I1;
Image4.Left:=B - 17;
Image5.Left:=B - 273;
Image6.Left:=B - 273;

Image8.Height:=425;
Image8.Width:=601;

Image9.Height:=425;
Image9.Width:=601;
Image9.Left:=600;
pfad:=ExtractFilePath(Application.ExeName);
profil := TStringList.Create;

[s.h.a.r.k]

Kennst du dich mit regulären Ausdrücken aus? Wenn nicht, dann könnte da ein Beispiel dafür sein, sowas mal anzuwenden :mrgreen:

[Mr.XYZ]

also ne ich kenne mich mit diesen Ausdrücken nicht aus, und was soll ich jetzt machen?

[p80286]

Du solltest zunächst einmal auf

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var
  ...
Screen : TScreen;   // wofür??????

begin
  ....

verzichten.
Screen ist genauso wie Application schon vorhanden, wenn das Programm anläuft! (OK, gilt nicht für Konsolenanwendungen)
Da Du uns den Wortlaut der Fehlermeldung vorenthältst, ist das natürlich nur geraten.

So nebenbei was bedeutet

Zitat:

Zitat von Mr.XYZ

also, ich wollte einen Speicher Tschechen,...

?

Gibt es neuerdings Staatsangehörigkeiten für Speicher?

Gruß
K-H

[patti]

[OT]

Zitat:

Zitat von p80286

Gibt es neuerdings Staatsangehörigkeiten für Speicher?

Hab auch erstmal gerätselt, was er meint, konnte mir den Witz danach aber verkneifen ;-)
[/OT]

Edit: @s.h.a.r.k: Ich denke, dass Reguläre Ausdrücke für den Anfang zu "oversized" sind. Mit einbisschen Pos und Copy sollte das auch so ganz gut machbar sein. Im Moment geht es ja eh erstmal darum, den Fehler zu finden...

[Mr.XYZ]

hey, danke für die Tipps halbe es jetzt aber anders gelöst.
aber wie genau splitte ich einen String?

[tkone]

die suchfunktion ist dein freund ;)

Zitat:

http://www.delphipraxis.net/internal...=string+teilen
http://www.delphipraxis.net/internal...=string+teilen
http://www.delphipraxis.net/internal...hlight=explode

[Blackheart]

Stringroutinen

[p80286]

@patti
[OT] in meinem Alter braucht man wirklich etwas länger bis man auf cheque kommt.
[/OT]

@Mr.XYZ
Klaus hat es in #2 eigentlich schon beschrieben:

Delphi-Quellcode:

TrennPos:=pos(':',MyString);
MyVar:=copy(MyString,Trennpos,lengthg(Mystring)-TrennPos);

Gruß
K-H

[Mr.XYZ]

was ist daran falsch?

Delphi-Quellcode:

   carry:=profil.Strings[0];
   split:=pos(profil.Strings[0],':');
   Label2.Caption:=copy(profil.Strings[0],split,length(carry));

[p80286]

mit

Delphi-Quellcode:

     split:=pos(profil.Strings[0],':');

suchst Du profil.Strings[0] in ':' !
umgekehrt wird ein Schuh daraus.

Gruß
K-H

edit: Tippfehler

[Mr.XYZ]

okay habe das Problem schon gelöst!!:)

[Mr.XYZ]

Ich wollte mal wisse, ob man auch Textdateien die auf einem Server sind lesen kann :?:
Wen ja wie? :?

[implementation]

Die musst du natürlich erst herunterladen.

[EDIT]
Hier ein Link

[Mr.XYZ]

kann ich das mit Delphi:?:
Oder muss das außerhalb des Programms geschehen:?:

[implementation]

Ja, mit Delphi kannst du das auch, das hat nämlich einen integrierten Browser.
Aber ich vermute mal eher, das du dein eigenes Programm meinst. :mrgreen:
Folge doch mal meinem Link.

[Mr.XYZ]

danke für den Link :!: :!:

[Mr.XYZ]

wie verändere ich die Größe eines Bildes im Codeteil?
weil

Delphi-Quellcode:

Char.Picture.Bitmap.Height:=50;

geht nicht.

[implementation]

Neue Frage, neuer Thread... :dp:

[Mr.XYZ]

okay kann ich machen!! :|