Listview eintrag ersetzten...

raven · Beiträge: 54

hi leutz

ich habe eine listview mit 2 spalten ... in der rechten spalte steht ein status drin ... wenn da "Fertig" oder "Fehler" drinsteht dann soll das so bleiben, wenn was anderes drinsteht, dann soll es durch abort ersetzt werden ... ich hab nun folgendes geschrieben was aus meinen augen eigentlich funtzen müsste ... tut es aber nich, es schreibt überall Abort rein auch wenn fehler oder fertig drinsteht...

kann mir einer helfen?

Der code:

markieren

Quelltext

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

       for f := 0 to form1.filebox.items.count-1 do
           begin
                if (log.Items.Item[f].SubItems.Text = 'Fertig') or (log.Items.Item[f].SubItems.Text = 'Fehler') then
                begin
                application.ProcessMessages;
                end
                else
                begin
                log.Items.Item[f].SubItems.Text := 'Abort';
                end;
              end;

Aya · Verfasst: Di 11.02.03 21:50

Hi,

mach doch mal in die For-Schleife das rein:

markieren

Quelltext

1:	ShowMessage('"'+log.Items.Item[f].SubItems.Text+'"');

Dann siehst du ob du eventuell irgendein unsichtbares Zeichen o.ä. nich berücksichtigst...

Au'revoir,
Aya~

PS: Groß und Kleinschreibung beachtet?

_________________
Aya
I aim for my endless dreams and I know they will come true!

raven · Beiträge: 54

@aya

danke aber das einzige was irgendwie komisch ist, is das das zweite gänsefüschen in der 2. zeile ersceint in der messagebox also das es nach dem wort einen zeilenumbruch gibt ...

da die werte aber so

log.Items.Item[k].SubItems.Text := 'Fehler';

festgelegt werden muss das normal stimmen wi es ist...

weiß einer weiter??

smiegel · Verfasst: Di 11.02.03 22:59

Hallo,

versuche es einmal so:

markieren

Quelltext

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

for f := 0 to form1.filebox.items.count-1 do 
begin 
  if (log.Items.Item[f].SubItems[0] = 'Fertig') or (log.Items.Item[f].SubItems[0] = 'Fehler') then 
  begin 
    application.ProcessMessages; 
   end 
   else 
   begin 
     log.Items.Item[f].SubItems[0] := 'Abort'; 
   end; 
end;

Außerdem verstehe ich nicht, warum die Schleife die Items aus einer "FileBox" und die Listview "log" heißt?

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

Aya · Verfasst: Di 11.02.03 23:14

markieren

Quelltext

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

      for f := 0 to form1.filebox.items.count-1 do 
           begin 
                if (Trim(log.Items.Item[f].SubItems.Text) = 'Fertig') or (Trim(log.Items.Item[f].SubItems.Text) = 'Fehler') then 
                begin 
                application.ProcessMessages; 
                end 
                else 
                begin 
                log.Items.Item[f].SubItems.Text := 'Abort'; 
                end; 
              end;

sollte gehen

_________________
Aya
I aim for my endless dreams and I know they will come true!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

@raven: Ich hab mal eine Frage: Warum besorgst Du dir die Anzahl an Einträge mit folgendem Code

markieren

Quelltext

1:	form1.filebox.items.count-1

aber die Einträge sprichst Du wie folgt an:
log.Items.Item[f].. ???

Die Einträge sind doch dann eigentlich so anzusprechen:

markieren

Quelltext

1:	form1.filebox.items [f]...

Gruß
TINO

raven · Beiträge: 54

@aya

danke das funtzt

kannste mir auch noch kurz sagen was das TRIM bewirkt? würde mich ma interessieren warum es so geht

Ehemaliges Mitglied Erhaltene Danke: 1

raven hat folgendes geschrieben:

@aya

danke das funtzt

kannste mir auch noch kurz sagen was das TRIM bewirkt? würde mich ma interessieren warum es so geht

Ob du es glaubst oder nicht, die Frage kannst du dir selber beantworten. :roll:

Aya · Verfasst: Mi 12.02.03 14:18

Hi,

Trim löscht einfach alle "unsichtbaren" Zeichen am anfang und ende eines Strings..

Au'revoir,
Aya

_________________
Aya
I aim for my endless dreams and I know they will come true!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme