Texte aus einer Datei lesen?

[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