Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi liste.IndexOf? (https://www.delphipraxis.net/114425-liste-indexof.html)

grenzgaenger 25. Mai 2008 11:07

Re: liste.IndexOf?
 
Zitat:

Zitat von Jiro
Ja, aber wenn eine Zeile in der Datei ist, soll eine Zeile angezeigt werden, wenn 2 Zeilen drin sind 2

und wenn nur eine zeile drin steht? willste dann auch zwei zeilen anzeigen?
einfach mit for xx in list do durchlaufen

btw: solltest du mal deinen quellcode ordentlich formatieren... da bekommt man ja augenkrebs

DeddyH 25. Mai 2008 11:08

Re: liste.IndexOf?
 
Schleife für 2 Labels? :wiejetzt:

Jiro 25. Mai 2008 11:09

Re: liste.IndexOf?
 
immer noch die exception (wenns so aussieht):
Delphi-Quellcode:
procedure Ttextausgabe.FormActivate(Sender: TObject);
var
ausgabeliste : TStrings;
   i:integer;
 begin
begin
ausgabeliste := TStringlist.Create;
   if fileexists ('ausgabe.txt')


                   then

                        begin

          ausgabeliste.LoadFromFile('ausgabe.txt');

                ausgabefeld.Caption:=(ausgabeliste[0]);
                   ausgabeliste.Count;
                      for i := 0 to ausgabeliste.Count-1 do
                ausgabefeld2.Caption:=(ausgabeliste[1]);

                      end
                else
                   ausgabefeld.Caption:='                Keine ausgabe.txt vorhanden';

DeddyH 25. Mai 2008 11:12

Re: liste.IndexOf?
 
Delphi-Quellcode:
if fileexists ('ausgabe.txt') then
  begin
    ausgabeliste := TStringlist.Create;
    try
      ausgabeliste.LoadFromFile('ausgabe.txt');
      if ausgabeliste.Count > 0 then
        ausgabefeld.Caption:=(ausgabeliste[0]);
      if ausgabeliste.Count > 1 then              
        ausgabefeld2.Caption:=(ausgabeliste[1]);
    finally
      ausgabeliste.Free;
    end;
  end
else
  ausgabefeld.Caption:='                Keine ausgabe.txt vorhanden';

mkinzler 25. Mai 2008 11:14

Re: liste.IndexOf?
 
Dir scheinen ehrlich jegliche Grundlagen zu fehlen.

Delphi-Quellcode:
if ausgabeliste.Count > 0 then ausgabefeld.Caption := ausgabeliste[0];
if ausgabeliste.Count > 1 then ausgabefeld2.Caption := ausgabeliste[1];
wohl die Lösung mit den Labels alles andere als geschickt ist.

Klaus01 25. Mai 2008 11:15

Re: liste.IndexOf?
 
Hallo Jiro,

was ist denn der Hintergrund des ganzen.

Die Schleifendurchläufe auf einem Label auszugeben finde
ich recht sinnfrei.

Wenn Du nur wissen willst wieviele Zeilen Deine StringListe hat
dann kannst Du das, wie schon gesagt, mit StringList.count machen.
Erfüllt die Anzahl der Zeilen nicht Deine Kriterien, musst Du
entsprechend reagieren.

Grüße
Klaus

Die Muhkuh 25. Mai 2008 11:15

Re: liste.IndexOf?
 
Verwende absolute Pfade. Du weißt nie, wo Dein Arbeitspfad gerade hinzeigt, wenn Du nur die Datei angibst.

Delphi-Referenz durchsuchenExtractFilePath, Delphi-Referenz durchsuchenApplication.Exename

Jiro 25. Mai 2008 11:16

Re: liste.IndexOf?
 
THX, klappt jetzt!

mkinzler 25. Mai 2008 11:17

Re: liste.IndexOf?
 
Trotzdem solltest du dich etwas mit den Grundlagen beschäftigen.

DeddyH 25. Mai 2008 11:20

Re: liste.IndexOf?
 
Zitat:

Zitat von mkinzler
Trotzdem solltest du dich etwas mit den Grundlagen beschäftigen.

Das kann nie schaden :lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:19 Uhr.
Seite 2 von 3     12 3      

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