Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - stringlist mit posex und copy bearbeiten


Samarek - Sa 19.09.09 13:06
Titel: stringlist mit posex und copy bearbeiten
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


noo.bee - Sa 19.09.09 13:35
also bin auf dem gebiet auch sehr neu :D schau mal hier - das hat mich auch um einiges schlauer gemacht ;)

http://www.delphi-treff.de/tutorials/objectpascal/stringverarbeitung/page/2/


Sauger Chris - Sa 19.09.09 14:38
hiho das hier sollte dir weiter helfen :)


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 - Sa 19.09.09 15:00
ahja, das hilft mir weiter
vielen lieben dank


jaenicke - 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.:

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 - So 20.09.09 04:36
jaenicke ich hab an dich gedacht wo ich den post geschrieben hab,
habs nur zu schnell getippselt :P aber hast recht =)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!