Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[DragonsTear]

Schon besser ;)

Jetzt gibt er mir nur noch den gesamten String aus in dem die Zeichnen enthalten sind...

Aber ich will ja eig nur den Teilstring zwischen den zwei Zeichen, deswegen hab ichs ja mit Copy versucht, nur das hat irgendwie net so geklappt wie ichs wollte....

[marabu]

Wenn einen der Ehrgeiz packt:

Delphi-Quellcode:

function TForm1.CreateTypLists(fn: TFileName; cStart, sStop: Char): TStrings;
var
  i, iStart, iStop: Integer;
  s: String;
begin
  Result := TStringList.Create;
  Result.LoadFromFile(fn);
  for i := Pred(Result.Count) downto 0 do
  begin
    iStart := Pos(cStart, Result[i]);
    iStop := Pos(cStop, Result[i]);
    if (iStart = 0) or (iStop < iStart) 
      then Result.Delete(i)
      else Result[i] := Copy(Result[i], Succ(iStart), Pred(iStop - iStart));
  end;
end;

Freundliche Grüße

marabu

[DragonsTear]

Hm, das funktioniert.

Jetzt kommt aber die Glanz und Gloria Frage, weil damit dasse das einfach reinpostet verstehe ichs noch nicht ganz :

Du hast jetzt das was ich vorhatte rückwarts gemacht...

Dafür die forto down Schleife.

Falls der Begriff nicht gefunden wurde, wurde die Zeile gelöscht. Soweit habe ich das gecheckt...

Hm, succ und pred kannte ich noch nicht... Mal wieder was gelernt , danke!

[marabu]

Zitat:

Zitat von DragonsTear

Jetzt kommt aber die Glanz und Gloria Frage, weil damit dasse das einfach reinpostet verstehe ichs noch nicht ganz

Ist jetzt wohl mehr eine Feststellung als eine Frage, oder?

Klar - ich hätte dir auch mehr prosaische Tipps geben können, aber mit der Delphi Online-Hilfe und dem dank seiner Kompaktheit überschaubaren Code solltest du dein Lerntempo deutlich steigern können. Wenn du lieber anders lernst, dann musst du es schreiben und ich poste keinen Code.

marabu

[DragonsTear]

Jo ;)

Nein war net bös gemeint, ich stand etwas auf der Leitung, weil ich succ und peod erstmal nachschauen musste...

Hm, inner Delphihilfe finde ich pos komischerweise net... Ich habs online gefunden , und die Lösung lag bei succ und prod und darauf wär ich so net gekommen ;)

Vielen Dank nochmal