Mam plik.txt, w którym są linie zaczynające się od np:
01.bkebe
02.coś
Jak wczytać do Edita linię nr 2? {hello}
Za pomoc {browar} --Pozdrawiam!
RockY
Delphi 5
[email protected]
GG: 3615957
Mam plik.txt, w którym są linie zaczynające się od np:
01.bkebe
02.coś
Jak wczytać do Edita linię nr 2? {hello}
Za pomoc {browar} --Pozdrawiam!
Delphi 5
[email protected]
GG: 3615957
Zobacz to: http://www.4programmers.net/forum/index.php?action=show&id=3972--Delphi 6
Pozdrowienia{hello} ,
Imperior
memo1.lines.loadfromfile('C:\OPEK\blebleble.blebleble');
edit1.text := memo1.lines[1]; //nie 2 wtedy by wczytalo linie nr 3!!! [0 = 1,1=2 itp.] :)
Nie zrozumieliśmy się :(
Nie chodzi o to, aby wczytać konkretną linię z pliku txt (tyle to ja jeszcze umię)
Chcę, aby wczytać linię zaczynającą się od 02, ale bez 02 (nie chodzi aby wczytać linię nr 2!).
Zawartość owego pliku jest następująca np:
05.Jacek
01.Agatka
04.Brygida
154.Gertruda--Pozdrawiam!
Delphi 5
[email protected]
GG: 3615957
prosze bardzo procedurka wczytuje do Edita linijke ze tekstem "02" na poczatku :-) bez "02" i kropki po "02"
var
TF: TextFile;
S: String;
begin
AssignFile(TF, 'C:\windows\pulpit\plik.txt');
Reset(TF);
while not Eof(TF) do
begin
Readln(TF, S);
if Copy(S,1,2) = '02' then
begin
Delete(S,1,3);
Edit1.Text := S;
end;
end;
CloseFile(TF);
end;
jezeli w pliku mamy cos takiego:
01.trallaala
02.bububububub
1000500100900.niewiadomoco
to w Edicie pojawi sie: "bububububub"---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-
Proponuje szukac kropki np. funkcja Pos a nie przyjmowac sztywno ze jest na pozycji 3. Program bedzie wtedy elastyczniejszy i latwiej bedzie go zmusic do znalezienia linijki w rodzaju:
154.Gertruda
Pozdrawiam, Pawel--Pawel
Delphi6
procedurka z mala poprawka:
var
TF: TextFile;
S, Szukany: String;
begin
AssignFile(TF, 'C:\windows\pulpit\plik.txt');
Reset(TF);
Szukany := '033';
while not Eof(TF) do
begin
Readln(TF, S);
if Copy(S,1,Length(Szukany)) = Szukany then
begin
Delete(S,1,Length(Szukany)+1);
Edit1.Text := S;
end;
end;
CloseFile(TF);
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-