Nur ein teil der text datei auslesen

[cran7]

so hab mal wieder ein problem
ich denk ma es is einfach zu lösen aber ich kenn mich da noch net so aus,
also:
ich will das etwas aus einer text datei in einem editfeld wiedergegeben wird, aber nicht die ganze textdatei sondern nur nach z.b. sart

weis aber leider nicht wie ich das hinbekommn soll, hoffe auf antwort
mfg cran7

[DeddyH]

Wie sieht die Textdatei denn aus?

[cran7]

also das is ne textdatei da steht nur

start xyz

xyz variert halt

[DeddyH]

Delphi-Quellcode:

const Dateiname = 'C:\test.txt';

procedure TForm1.Button1Click(Sender: TObject);
const SuchStr = 'start ';
var sl: TStringList;
    i: integer;
    wasduwillst: string;
begin
  wasduwillst := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(Dateiname);
    for i := 0 to Pred(sl.Count) do
      begin
        if Pos(SuchStr,trim(sl[i])) = 1 then
          begin
            wasduwillst := Copy(sl[i],Pos(SuchStr,sl[i]) + Length(SuchStr),Length(sl[i]));
            break;
          end;
      end;
  finally
    FreeAndNil(sl);
  end;
  if Length(wasduwillst) > 0 then
    ShowMessage(wasduwillst);
end;

[cran7]

klappt thx

weist du wo es dazu n tut gibt? wo das alles erklärt is...
halte nämlich nich soviel davon einfach nur zu kopiern, will das ganze ja auch verstehn

[DeddyH]

Schau mal auf http://www.dsdt.info/tutorials/, da wirst Du bestimmt fündig.

[jjep]

Auf dieser WebSeite gibt es auch gute Referenzen

Hier für die Stringverarbeitung: String-Referenz

[cran7]

thx