Re: Odwołanie do konkretnego wiersza w string

2017-11-20T08:45:38+01:00

Wiem, że trochę późno. może sie przyda dla potomności
[syntax=delphi]procedure TForm2.Button1Click(Sender: TObject);
var
TF: TStringlist;
i:integer;
begin
TF:=TStringlist.Create;
TF.LoadFromFile('C:\tekst.txt');
for i := 0 to TF.Count-1 do
begin
Memo2.Lines.Add(inttostr(AnsiPos(TF[i],'*TYTUL*')));
end;
TF.Free;
end;[/syntax]

Statystyki: Napisane przez Rekumkacz — 20 lis 2017, o 08:45

Odwołanie do konkretnego wiersza w string

2017-05-24T14:36:42+01:00

Cześć, piszę program i mam problem z działaniem na stringach w delphi. Poniżej zamieściłem kod który wyszukuje w pliku txt napisu *TEKST* i wrzuca wynik do okna memo.
Wynikiem takiego działania jest efekt taki jak poniżej(tylko w pierwszej linii jest ten tekst):

1
0
0
0
0
0

Ok. Odnalazło mi linię z tekstem. Ale efektem docelowym jest to, aby w oknie memo wyświetliła się część tekstu znajdująca się w linii po odnalezionym fragmencie tekstu. Ktoś mógłby mi pomóc uzyskać ten efekt? Nie wiem ani jak pobrać numer wiersza w którym znaleziono tekst, ani jak się odwołać do konkretnej linni stringa a w internecie nie mogę jakoś znaleźć odpowiedzi.

[syntax=delphi]procedure TForm2.Button1Click(Sender: TObject);
var
TF : TextFile;
S : String;
F : String;
X : Integer;
C : Integer;
begin
AssignFile(TF, 'C:\tekst.txt');
try
Reset(TF);
while not Eof(TF) do
begin
Readln(TF, S);

X := AnsiPos(S,'*TYTUL*');
// X := Length(S);
F := inttostr(X);
// F := MidStr(S, 3, 3) ;
Memo2.Lines.Add(F);
end;
finally
CloseFile(TF);
end;
end;[/syntax]

WĄTEK DO WYRZUCENIA, ZNALAZŁEM BŁĄD W SWOIM ROZUMOWANIU

Statystyki: Napisane przez Bumcfksz — 24 maja 2017, o 14:36

ATNEL tech-forum

Re: Odwołanie do konkretnego wiersza w string

Odwołanie do konkretnego wiersza w string