pytanko (czytanie z plików linijka po linijce... znowu to

0

moze wychodze na lamera ale jak bym wiedzial jak wszycho zrobic to bym sie nie pytal... poswieccie z 5 minut jak mozecie i napiszcie mi prcedurke przeszukujaca plik tekstowy linijka po linijce i sprawdzajaca czy dana linijka zaczyna sie od podanego w procedurze parametru i jak tak to zeby wyswietlilo wszycho oproc tego poczatku w parametrze (ps. moze jeszcze ladowacten plik do listBOx'a i usuwac ta linie i nadpisywac ten plik)...
prosilbym o gotowe procedurki na meila: [email protected] lub [email protected] lub tutaj na forum...

Imperior: Gdybyście nie wiedzieli to często dopisuje temat wątku w przypadku jego braku do nawiasu :D :D To pisałem ja Imperior a nie autor posta :D

0

jezeli xle zrozumialem text to sorry

walnij na formę memo

var
i : integer;
s : string;

procedura : string[i tutaj długość danej procedurki ja dałem 1 bo procka zaczyna się od "\"
filename : string;
begin
filename := 'C:\plik.txt');
memo1.lines.loadformfile(filename);
for i:=0 to memo1.lines.count - 1 do
begin
procedura := lowercase(memo1.lines[i]);
if procedura = '\' then
begin
s := lowercase(memo1.lines[i]);
delete(s,1,1); //usuwał z pozycji o 1 znak
memo1.lines := s;
end;
end;
end;

i chyba działa :]--

0

mozesz troche jasniej to wytlumaczyc? brzmi prosto, ale troche niedokladnie wytlumaczone. Ale mysle ze Ci pomoge (jak wytlumaczysz ;) ).--Vroc
&ltDelphi Knight&gt

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0