stringlist mit posex und copy bearbeiten

Samarek · Verfasst: Sa 19.09.09 13:06

hi

wüsste gern mal wie ich mit pos, posex und copy aus einer stringlist bestimmte zeichenketten rausbekomme
irgendwie check ich die delphi-hilfe da nich so ganz

_________________
Dank und Gruß
Samarek

noo.bee · Beiträge: 120

also bin auf dem gebiet auch sehr neu

schau mal hier - das hat mich auch um einiges schlauer gemacht

www.delphi-treff.de/...verarbeitung/page/2/

Sauger Chris · Verfasst: Sa 19.09.09 14:38

hiho das hier sollte dir weiter helfen

markieren

Delphi-Quelltext

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

var posi1,a : integer;
    finish : Tstringlist;
begin
finish := TStringList.Create;
finish.loadfromfile('c:\datei.txt');
try
for a:=0 to finish.Count -1 do
begin
      posi1    := pos('Such text', finish.Strings[a]);

listview.Items.Add.Caption:= copy(finish.Strings[a],posi1,50); // posi 1 + 50 zeichen in die listview komp schreiben
end;
except
finish.free;
end;

Samarek · Verfasst: Sa 19.09.09 15:00

ahja, das hilft mir weiter
vielen lieben dank

jaenicke · Verfasst: Sa 19.09.09 20:16

Das LoadFromFile gehört aber auch in den Ressourcenschutzblock, sonst hat man nen schönes Speicherleck, wenn dort ein Fehler auftritt. ;-)

Also ordentlich formatiert so ca.:

markieren

Delphi-Quelltext

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

var
  posi1, a: Integer;
  finish: TStringList;
begin
  finish := TStringList.Create;
  try
    finish.LoadFromFile('c:\datei.txt');
    for a := 0 to finish.Count - 1 do
    begin
      posi1 := Pos('Such text', finish[a]);
      ListView.Items.Add.Caption := Copy(finish[a], posi1, 50); // posi 1 + 50 zeichen in die listview komp schreiben
    end;
  except
    finish.free;
  end;

Sauger Chris · Verfasst: So 20.09.09 04:36

jaenicke ich hab an dich gedacht wo ich den post geschrieben hab,
habs nur zu schnell getippselt

aber hast recht =)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme